第1个回答 2013-04-23
rem 双击 A1 隐藏或显示 2 到 4 行
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
v0 = "隐藏ROWS(2:4)"
v1 = "显示ROWS(2:4)"
r = Target.Row
c = Target.Column
v = Target.Value
If r = 1 And c = 1 Then
Rows("2:4").EntireRow.Hidden = (v = v0)
If v = v0 Then
Range("A1") = v1
Else
Range("A1") = v0
End If
Range("A2").Select
End If
End Sub本回答被网友采纳