Excel VBA代码，用于切换隐藏和取消隐藏行

我已将excel工作表中的几行分组。我添加了几个按钮来隐藏和取消隐藏行。但我想结合代码，只有一个按钮，它更像一个切换按钮。我无法做到这一点。这些是我的个人职能

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

在此方面的任何帮助都将不胜感激。 请注意：我没有任何VBA的经验，我需要这样做，以满足我的马安格对他的一项工作的要求

谢谢

试试这个：

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

---

您希望切换按钮如何工作？按下时，它会显示

Rowlevels:1

，并隐藏另一个，反之亦然？我已经尝试过，但不起作用-如果Rowlevels=1，则ActiveSheet.Outline.ShowLevels Rowlevels:=2，否则ActiveSheet.Outline.ShowLevels Rowlevels:=1如果编辑了我的响应，看看它是否有效。