
エクセルです。
例えば、
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
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
6
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
7
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
8
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
9
実行時エラー'1004': WorkSheetクラスのVisibleプロパティを設定できません
Visual Basic(VBA)
-
10
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
16
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
17
Excelでマクロ実行中に画面を固定する方法
Visual Basic(VBA)
-
18
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
19
Excel-VBAでInputBox+Pulldownは可能??
Visual Basic(VBA)
-
20
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
特定のシートのみ再計算させな...
-
エクセルでブック内の倍率がバ...
-
エクセルシートの見出しの文字...
-
エクセルのファイルサイズが急...
-
EXCELの図形(テキストボックス)...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
Wordで差し込み印刷時に表示す...
-
エクセルのシー名を二段表示に...
-
エクセルを開くとメニューバー...
-
ワークシートそのものの色を変...
-
エクセル、特定のシートにパス...
-
EXCELで存在しないシート...
-
Nintendo Switch 2 キャリング...
-
エクセルの複数シートでのリン...
-
Accessのテーブルを既存のExcel...
-
エクセルで複数のシートに画像...
-
エクセルのシート連番の振り直し
-
vba Listviewでのチェックボッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルシートの見出しの文字...
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
EXCELの図形(テキストボックス)...
-
EXCELで存在しないシート...
-
エクセルで複数のシートに画像...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
ワークシートそのものの色を変...
-
Wordで差し込み印刷時に表示す...
-
Accessのテーブルを既存のExcel...
-
エクセルのファイルサイズが急...
-
エクセルの複数シートでのリン...
-
エクセルで、シートの名前を変...
-
エクセルの2つのシートを並び...
-
EXCELの「シートの見出し」のフ...
-
Excelでマクロ設定したが反映さ...
おすすめ情報