Excel VBA：當點擊圖像時切換行隱藏/取消隱藏

Question

我是VBA的新品牌，並且有一個圖像，我想要分配一個宏以便當用戶單擊它時，它將取消隱藏一系列行，用戶再次點擊它，它隱藏了行。

我的形象：

Image1.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