通过单按钮隐藏和取消隐藏行

Question

我浏览了以前发布的与此主题相关的几个问题，并相信该社区中的某个人将能够协助我进行询问。我是VBA的新手，所以如果我的问题很简单，我会提前道歉。

我的目标是使用与按钮关联的单个宏来隐藏，然后在再次单击按钮后取消隐藏选定的行数（这些行将始终相同）。我希望通过单独的单独单击来完成所有这些操作，而无需利用任何消息框或定时延迟。我已经记录了带有操作及其标准的宏，并将其粘贴到下面。唯一缺少的部分是在再次单击按钮并运行下一个动作之前，需要分离这些动作的代码。在此先感谢您的协助。

Sub Macro1()    
    Rows("7:21").Select  
    Selection.EntireRow.Hidden = True    
    Rows("7:21").Select   
    Selection.EntireRow.Hidden = False
End Sub

Answer 1

您可以通过以下方式进行切换：

Sub ToggleRows()

    With Rows("7:21")
      .Hidden = Not .Hidden
    End With

End Sub