Question

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

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

对此有任何帮助表示赞赏。请注意：我对VBA没有任何经验，我需要这样做才能满足我的maanger对他的一项工作的要求。

由于

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

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

1 个答案: