Excel VBA代码可切换隐藏和取消隐藏行

Question

我在Excel工作表中将几行分组。 我添加了几个按钮来隐藏和取消隐藏行。 但是我想组合代码，只有一个按钮，其功能更像是切换按钮。 我无法实现这一目标。 这些是我的个人职能。

Sub Button1_Click()
    ActiveSheet.Outline.ShowLevels Rowlevels:=1
End Sub
Sub Button2_Click()
    ActiveSheet.Outline.ShowLevels Rowlevels:=2
End Sub

任何帮助，不胜感激。 请注意：我没有使用VBA的任何经验，我需要做这件事，以满足我的女主人对他的一项工作的要求。

谢谢

Answer 1

尝试这个：

Activesheet.rows(x & ":" & y).hidden=Not activesheet.rows(x & ":" & y).hidden

其中x到y是要隐藏的行数。 例如：

Sub Button1_Click()
    ActiveSheet.Rows("2:4").Hidden = Not ActiveSheet.Rows("2:4").Hidden
End Sub