【Excelマクロ】非表示のシートを一括して再表示するマクロ

Excelでなぜかできないこと。シートを複数選択してまとめて非表示にはできるけど、それを再表示しようと思うと1枚ずつ選ばないと再表示はできない。そんなとき、マクロを使えば一括して再表示が簡単にできます。

シートの非表示は一括ができるのに再表示は1枚ずつしかできない

複数のシートを一括して非表示にするのは簡単です。ShiftキーやCtrlキーを使って複数のシートを選択した状態で、右クリック ⇒「非表示」で一括して非表示にすることができます。

「じゃあ、再表示するときも同じように複数のシートを選択して」と思いますが、再表示のダイヤログではシートを複数選択することはできません。

そのため手作業でシートを再表示しようと思うと1枚ずつ選んで再表示していくしかありません。

迂闊に大量のシートを非表示にしてしまうと、再表示するのに非常に手間がかかります。

そんなときに活躍するのがマクロです。

マクロでは、ワークシートオブジェクトの「Visible」プロパティを「True」にすることで再表示が可能です。

作業中のエクセルブックで非表示になっているワークシートを一括して再表示するマクロのコードです。

Sub sheet_redisplay()

Dim sh As Worksheet
   
For Each sh In Workheets
	sh.Visible = True
Next

End Sub

for構文を使ってすべてのワークシートについて、「Visible」プロパティを「True」にしています。

ほんの数行のマクロでシートの再表示のストレスから解放されます。こういった簡単なマクロをあらかじめ登録しておくと作業が楽になります。