VBAで全シートを一括選択したい

質問

VBAを勉強し始めたばかりの初心者です。

エクセルで非表示に切り替えられているシートを
一括で表示に切り替えできるマクロを作成しているのですが
「全シートの選択」方法がわかりません。

ひとつずつのシートなら
下記のマクロでうまくいくのですが・・・
２行目の「("Sheet3")」を全シートに切り替えれば
うまくいくかなって思っているのですけど
方法がわかりません。
よい方法をご存知の方、よろしくご教授願います。

Sub Macro1()
Sheets("Sheet3").Visible = True
Sheets("Sheet1").Select
End Sub

回答No.4

noname#112806 · ベストアンサー

Dim sht As Worksheet

For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next

これでどうでしょうか？

お礼

ありがとうございました！

tamackyさんのおかげで、無事解決に至りました。
ほんとうにありがとうございました。

回答No.3

asahina02

こんな感じになるんでしょうか

For idx = 1 To Worksheets.Count
With Worksheets(idx)
.Select Replace:=False
.Visible = True
End With
Next idx

お礼

ありがとうございました！
解決しました！

回答No.2

meron_

シート数分
Worksheets(i).Visible = True
をループしてみては？

お礼

ありがとうございました。

解決いたしました。

回答No.1

nonpq

直接回答コードを書かずにすみません。

下記サイトで私はエクセルＶＢＡの基本を勉強しました。

http://www6.plala.or.jp/MilkHouse/begin/contents202/contents20201.html
（シート選択のページ）
このサイトに書いてある解説をヒントにコードが書けるとあとあと楽になると思います。

お時間があるときに一度ごらんになってみるのもいいと思います。

お礼

ご回答ありがとうございます。
さっそくサイトを見たのですが・・・

私の説明不足でしたが、シート名は毎月変わっていくので
シート名を指定する方法では無理でした。

でも、タメになりそうなサイトなので
これからもじっくり読んでみようと思います。

雑な説明にもかかわらず、ありがとうございました。