【Excel VBA】隱藏除第一張外其餘工作表

內容目錄

VBA隱藏除第一張外其餘工作表

當我們想隱藏工作表時，只能一張一張隱藏嗎？
如以下想隱藏「1月」~「12月」工作表，讓我們使用VBA快速隱藏除第一張外其餘工作表。

※輸入以下指令※

Sub 隱藏除第一張外其餘工作表()
For i = 2 To Worksheets.Count
Worksheets(i).Visible = xlSheetHidden
Next
End Sub

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

執行後則隱藏除第一張外其餘工作表。

於工作表點選右鍵-「取消隱藏」，可以看到「1月~「12月」工作表皆被隱藏了。

For i = 2 To Worksheets.Count
‘使用For迴圈， i 從 2 開始直到工作表數量
Worksheets(i).Visible = xlSheetHidden
‘將第「i」個工作表設定為隱藏狀態，則為隱藏第二張至最後一張工作表