[ExcelVBA]非表示のシートをすべて再表示する

Contents

マクロでExcelの非表示シートをまとめて再表示するサンプルコード

Excelで非表示になっている複数のワークシートをすべてを再表示させるサンプルコードです。

手動では1つのシートずつでしか再表示ができないため、非表示になっているシートが多いほど、再表示に時間がかかります。
一括でまとめて再表示したい時はExcel VBAでやる必要があります。
（手動でのExcel操作はこちら）

以下の内容をコードに入力し、F5キーで実行してみます。

Sub シートをまとめて再表示()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = True
    Next
End Sub

上記のコードをマクロウィンドにコピペし実行すると、非表示になっているシートが一括で表示されます。

イミディエイトウィンドウから実行してすべてのシートを再表示することもできます。

for each ws in sheets:ws.visible=true:next

イミディエイトウィンドウでの実行は、マクロを保存する必要がなく、一時的に実行したい場合に便利です。