
エクセルです。
例えば、
A,B,C,Dと言うシートがあり、
A以外を非表示にさせたい場合は、
Sub test()
Dim SName As String '表示したいシート名
SName = "A"
Sheets(Array("B", "C", "D")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
で出来ますが、
SName = "B"の場合など、どのシート名を指定した場合でも
その指定したシート名以外のシートを非表示にするVBAコードを教えてくれませんか?
しかも、例題でA,B,C,Dとしましたが
実際のシート名は、A会社、B会社、C事業部、D部署・・・等
関連性のないシート名だし、10シート以上あります。
Sheets(Array("B", "C", "D")).Select
の部分を,VBAでどううまくやればいいのかわかりません。
SNameで指定したシート名以外をArrayしたいです。
ご回答よろしくお願いします。

No.1ベストアンサー
- 回答日時:
Arrayにしたいということなのでご要望とは違いますが
1つだけの指定なら下記のように。
Dim sht As Worksheet
SName = "A"
For Each sht In ThisWorkbook.Sheets
If sht.Name <> SName Then sht.Visible = xlSheetHidden
Next
No.2
- 回答日時:
こんばんは!
一例です。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【Excel VBA】ブックを開いた時、指定のシート以外非表示にするマクロ
Visual Basic(VBA)
-
VBAで指定シート以外の選択
Visual Basic(VBA)
-
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
-
4
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
5
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
6
実行時エラー'1004': WorkSheetクラスのVisibleプロパティを設定できません
Visual Basic(VBA)
-
7
【VBA】複数のシートの指定した列を非表示・表示をさせたい
Excel(エクセル)
-
8
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
9
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
10
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
11
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
12
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
13
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
14
VBA シートの切り替えができないようにするには
PowerPoint(パワーポイント)
-
15
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
16
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
19
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでブック内の倍率がバ...
-
EXCELで複数のシートを一度に「...
-
エクセルシートの見出しの文字...
-
【ExcelVBA】マクロの入ったシ...
-
特定のシートのみ再計算させな...
-
エクセルの複数シートでのリン...
-
ハイパーリンクでジャンプした...
-
EXCELの図形(テキストボックス)...
-
エクセルのシー名を二段表示に...
-
Accessのテーブルを既存のExcel...
-
エクセルで複数のシートに画像...
-
エクセルで目次に自動でページ...
-
エクセルの2つのシートを並び...
-
別シートの文字列があったら現...
-
ワークシートそのものの色を変...
-
エクセルを開くとメニューバー...
-
Wordで差し込み印刷時に表示す...
-
エクセルのファイルサイズが急...
-
エクセル、特定のシートにパス...
-
エクセルでリンク貼り付けした...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルシートの見出しの文字...
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
EXCELの図形(テキストボックス)...
-
EXCELで存在しないシート...
-
エクセルで複数のシートに画像...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
ワークシートそのものの色を変...
-
Wordで差し込み印刷時に表示す...
-
Accessのテーブルを既存のExcel...
-
エクセルのファイルサイズが急...
-
エクセルの複数シートでのリン...
-
エクセルで、シートの名前を変...
-
エクセルの2つのシートを並び...
-
EXCELの「シートの見出し」のフ...
-
Excelでマクロ設定したが反映さ...
おすすめ情報