エクセルです。
例えば、
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
【Excel VBA】ブックを開いた時、指定のシート以外非表示にするマクロ
Visual Basic(VBA)
-
VBAで指定シート以外の選択
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
実行時エラー'1004': WorkSheetクラスのVisibleプロパティを設定できません
Visual Basic(VBA)
-
5
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
6
【VBA】複数のシートの指定した列を非表示・表示をさせたい
Excel(エクセル)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
11
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
15
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
16
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
17
エクセル・マクロ シートの非表示でマクロのエラー
Visual Basic(VBA)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
特定のシートのみ再計算させな...
-
エクセルで複数のシートに画像...
-
EXCELの図形(テキストボックス)...
-
エクセルの2つのシートを並び...
-
エクセルでブック内の倍率がバ...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルのシート連番の振り直し
-
エクセルで、シートの名前を変...
-
ハイパーリンクでジャンプした...
-
DATE関数 4月31日などのあ...
-
エクセルマクロでシート名を条...
-
ワークシートそのものの色を変...
-
(エクセル)Indirect関数で、ハ...
-
Wordで差し込み印刷時に表示す...
-
特定の複数のシートに同じ処理...
-
accessへエクセルの複数のシー...
-
EXCELで存在しないシート...
-
エクセルのシー名を二段表示に...
-
エクセル2003で、複数のシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
ハイパーリンクでジャンプした...
-
Wordで差し込み印刷時に表示す...
-
エクセルで、シートの名前を変...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
Accessのテーブルを既存のExcel...
-
確定申告用の医療費集計フォー...
-
エクセルのシート連番の振り直し
-
【Excel】エクセルの1ファイル...
-
エクセルの複数シートでのリン...
-
【Excel VBA】データ貼り付け先...
-
エクセルでリンク貼り付けした...
おすすめ情報