指定したシート名以外を非表示にするには？ＶＢＡ

質問

エクセルです。

例えば、
Ａ，Ｂ，Ｃ，Ｄと言うシートがあり、
Ａ以外を非表示にさせたい場合は、

Sub test()
Dim SName As String '表示したいシート名

SName = "A"
Sheets(Array("B", "C", "D")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

で出来ますが、
SName = "Ｂ"の場合など、どのシート名を指定した場合でも
その指定したシート名以外のシートを非表示にするＶＢＡコードを教えてくれませんか？

しかも、例題でＡ，Ｂ，Ｃ，Ｄとしましたが
実際のシート名は、Ａ会社、Ｂ会社、Ｃ事業部、Ｄ部署・・・等
関連性のないシート名だし、１０シート以上あります。

Sheets(Array("B", "C", "D")).Select
の部分を，ＶＢＡでどううまくやればいいのかわかりません。

SNameで指定したシート名以外をArrayしたいです。
ご回答よろしくお願いします。

回答No.1

DreamyCat · ベストアンサー

Arrayにしたいということなのでご要望とは違いますが
１つだけの指定なら下記のように。

Dim sht As Worksheet
SName = "A"

For Each sht In ThisWorkbook.Sheets
If sht.Name <> SName Then sht.Visible = xlSheetHidden
Next

お礼

そうですね。
無理やりArrayを使わなくてもいいんですね。
出来ました。ありがとうございました。

回答No.2

tom04

こんばんは！
一例です。
Sheet名を格納する方法ではなく、順番にSheet名を検索していく方法です。

Sheet名が「A」以外のSheetを非表示にするとします。
※　実際は再表示する必要があると思いますので、
余計なお世話かもしれませんが、再表示のコードも一緒に載せておきます。

標準モジュールに↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub 非表示()
Dim k As Long
For k = 1 To Worksheets.Count
If Worksheets(k).Name <> "A" Then
Worksheets(k).Visible = False
End If
Next k
End Sub

Sub 再表示()
Dim k As Long
For k = 1 To Worksheets.Count
If Worksheets(k).Visible = False Then
Worksheets(k).Visible = True
End If
Next k
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

非表示、再表示
どちらのマクロも作ってもらえて感謝です。

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