エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい

質問

エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい。
エクセルで”書式→シート→表示しない”を実行するとエクセルのシートを非表示にすることが出来ます。
逆に”書式→シート→表示する”にすると隠れているシートが表示出来ます。
この非表示のシートを表示させるVBAマクロの記載を教えて下さい。

但し、”Sheets(シート名).Visible = True”の様にシート名を記載すれば非表示のシートが表示されるのは知っています。今回知りたいのは、シート名の分からない全ての非表示のシートを表示させるVBAマクロの記載方法を教えて下さい。

回答No.3

m_and_dmp · ベストアンサー

エクセルマクロのヘルプに出ています。

For Each sh In Sheets
sh.Visible = True
Next sh

お礼

m_and_dmp様
回答ありがとうございます。
この方法で解決できました。
ありがとうございます。

回答No.2

jcctaira

以下でできるかと思います。

Sub シート表示()
　Dim I As Integer
　For I = 1 To Sheets.Count
　　If Sheets(I).Visible = False Then Sheets(I).Visible = True
　Next I
End Sub

※また、全シート表示なので単純に以下の方法でも良いかと思います。
Sub シート表示()
　Dim I As Integer
　For I = 1 To Sheets.Count
　　Sheets(I).Visible = True
　Next I
End Sub

お礼

jcctaira様
回答ありがとうございました。
この方法で隠れているシートの表示は出来ると思います。
但し、今回は、”For Each sh In Sheets”でマクロを作成していたため使いませんでした。
でも、この方法を理解していれば、隠れシートは無視するマクロも出来るのでとても良い方法と思っています。ありがとうございました。

回答No.1

fujiponxx

マクロの記録で記録してみるとわかるんじゃない？

お礼

fujiponxx様
回答ありがとうございました。