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

Answer 2

尝试类似的内容：

Sub Macro1()

' Macro1 Macro ' '
Rows("7:21").Select

If Rows("7:21").Hidden = True Then
    Selection.EntireRow.Hidden = False
Else
    Selection.EntireRow.Hidden = True
End If

End Sub

剩下要做的就是将它附加到按钮上。

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

2 个答案: