Excel VBA：单击图像时切换行隐藏/取消隐藏

Question

我是 VBA 的新手，并且有一个图像，我想为其分配一个宏，以便当用户单击它时，它会取消隐藏一系列行，当用户再次单击它时，它会隐藏这些行。

我的形象：

图片1.jpg

我已将以下 maco 分配给此图像：

Sub sbHidingUnHideRows()
'To Hide Rows 22 to 25
Rows("9:14").EntireRow.Hidden = False
End Sub

当用户单击图像时，这会取消隐藏我的行。 但是如何在第二次单击时再次隐藏行？ 像一个切换按钮？

这是我尝试过的：

Sub sbHidingUnHideRows()
'To Hide Rows 22 to 25
Rows("9:14").EntireRow.Hidden = True
Else
Rows("9:14").EntireRow.Hidden = False
End Sub

请有人告诉我我哪里出错了吗？

提前致谢

Answer 1

尝试这个

Sub sbHidingUnHideRows()
    If Rows("22:25").EntireRow.Hidden = True Then
        Rows("22:25").EntireRow.Hidden = False
    Else
        Rows("22:25").EntireRow.Hidden = True
    End If
End Sub