No.1ベストアンサー
- 回答日時:
こんな感じで。
Sub Sample()
Dim ShName As String
Dim i As Long
Dim ara As Variant
For i = 1 To Sheets.Count
Select Case Sheets(i).Name
Case "Sheet1", "Sheet2", "勤務表"
Case Else
ShName = ShName & "*" & Sheets(i).Name
End Select
Next
ShName = Mid(ShName, 2)
If ShName <> "" Then
ara = Split(ShName, "*")
Sheets(ara).Select
Else
MsgBox "選択できません"
End If
End Sub
bonaron様ありがとうございます!
出来ました。
勉強と活用させていただきます。
またこちらにお世話になる事あると思いますが
その際はよろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) VBA ワークシート指定の1行目を選択をしたい 2 2022/08/20 18:10
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Excel(エクセル) エクセルの書式設定について教えてください。 2 2023/02/03 09:59
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) エクセルマクロ初心者です aブックからbブックの転記がしたいのですがbブックのシートを指定するコード 5 2023/03/15 17:09
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
Excel VBA 特定の複数のシートのみ保存する方法
Excel(エクセル)
-
-
4
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
5
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
10
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
11
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
12
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
13
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
14
“すべてのシートを選択”状態から特定のシートだけを外すには?
Excel(エクセル)
-
15
シート名一致すれば印刷、一致しなければメッセージbox
Visual Basic(VBA)
-
16
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
17
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
18
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
19
EXCEL VBA 特定シート以外のシート削除
Excel(エクセル)
-
20
ExcelのVBAでフォームが表示されない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
【ExcelVBA】全シートのセルの...
-
excelのマクロで該当処理できな...
-
【Excel VBA】Worksheets().Act...
-
Excel VBA 複数行を数の分だけ...
-
特定の文字を含むシートだけマ...
-
ユーザーフォームに入力したデ...
-
XL:BeforeDoubleClickが動かない
-
エクセルのシート名変更で重複...
-
ブック名、シート名を他のモジ...
-
シートが保護されている状態で...
-
エクセルで通し番号を入れてチ...
-
実行時エラー'1004': WorkSheet...
-
VBAで大量のファイルをシート名...
-
Excelマクロのエラーを解決した...
-
VBAの授業でナンプレを制作して...
-
シート名の一部を変更する方法...
-
ExcelのデータをJavaの配列に格...
-
エクセルVBA Ifでシート名が合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報