求VBA代码，关于EXCEL隐藏行和取消隐藏的问题

Question

现在A1有值为"隐藏"，点击A1时（单击或者双击都可以）希望将第2到第10行隐藏掉，A1变为“显示2-10行”。再点击A1时，第2到10行显示出来。

Answer 1

请用下面代码，在工作表标签上点鼠标右键，从快捷菜单中选“查看代码”，调出该工作表的VBA模块，粘贴下面代码就行了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "隐藏" Then
Rows("2:10").EntireRow.Hidden = True
Range("a1") = "显示2-10行"
Exit Sub
End If
If Target.Value = "显示2-10行" Then
Rows("2:10").EntireRow.Hidden = False
Range("a1") = "隐藏"
End If
End If
End Sub

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If .Row = 1 And .Column = 1 Then

If .Text = "隐藏" Then

.Parent.Rows("2:10").Hidden = True

.Value = "显示2-10行"

Exit Sub

End If

If .Text = "显示2-10行" Then

.Parent.Rows("2:10").Hidden = False

.Value = "隐藏"

Exit Sub

End If

End If

End With

End Sub