【Excel VBA】取消隱藏所有工作表

內容目錄

VBA取消隱藏所有工作表

當一次隱藏太多工作表，只能一張一張「取消隱藏」嗎？
如以下隱藏了「1月」~「12月」工作表，讓我們使用VBA快速取消隱藏所有工作表。

輸入巨集

※輸入以下指令※

Sub 取消隱藏所有工作表()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = xlSheetVisible
Next WS
End Sub

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。

執行後則取消隱藏所有工作表，可以看到「1月~「12月」工作表皆取消隱藏了。

語法說明

Dim WS As Worksheet
‘宣告變數「WS」型態為「工作表」。
For Each WS In ThisWorkbook.Sheets
‘使用For Each句，針對所有工作表進行處理
WS.Visible = xlSheetVisible
‘將「WS」工作表取消隱藏狀態，則為取消所有工作表