Excel VBA：点击图片时切换行隐藏/取消隐藏

我是全新的VBA，并有一个图像，我想分配一个macros，以便当用户点击它，它取消隐藏的行范围，当用户再次点击它，它隐藏的行。

我的形象：

Image1.jpg

我已经为此图像分配了以下maco：

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

这会在用户单击图像时取消隐藏我的行。 但是，我怎么能让行再次隐藏第二次点击？ 像一个切换button？

这是我试过的：

 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