Excel非表示シートを簡単操作で再表示（VBA）

非表示になったシートがたくさんあるワークブックは、シートの再表示を何度も操作するのは面倒臭い。

…ので、ネットで調べてみるとこんなマクロが！

--------------------------------------------------------------------------

Sub UnHideSheets()



Dim objSheet As Object

Dim intRet As Integer


For Each objSheet In ActiveWorkbook.Sheets

If objSheet.Visible = False Then

intRet = MsgBox("シート『" & objSheet.Name & "』を再表示しますか？", vbYesNo)

If intRet = vbYes Then objSheet.Visible = True

End If

Next


End Sub

--------------------------------------------------------------------------


このVBAを実行するとシートの再表示をダイアログで確認しながら再表示可。

上記のSubプロシージャを、VBE（Visual Basic Editor）を起動して標準モジュールに貼り付ければOK。

あとはマクロ実行するなり、よく使用するのであればボタン登録してもいい。





ちなみに非表示になっているシートの全表示をするのであれば、for～next間を

If objSheet.Visible = False Then objSheet.Visible = True

のみにすればいい。