No.3ベストアンサー
- 回答日時:
全てのシートに同じマクロ、ということは
そのマクロはアクティブシートに対して処理してるはずですから
該当シートをアクティブにしながら実行されなければいけないので
以下のようになります。
'-------------------------------------------
Sub Test()
Application.ScreenUpdating = False
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Select
Call マクロ1
Next Sht
Application.ScreenUpdating = True
End Sub
'--------------------------------------
全てのシートをアクティブにしながら実行しますので画面がちらつきます。
それを抑えるのが、ScreenUpdatingメソッドです。
違いを見る為に最初は、それを抜いて実行してみてください。
No.5
- 回答日時:
すみません
突っ込むコードが漏れていましたね。今さら無意味なんですが、ご参考まで。Call文の直前に入れます。
Sheets(Worksheets(i).Name).Select
No.4
- 回答日時:
こんにちは
#1です。
すでに#3の方が決定打のFOR EACH文で投稿されているので、私のフォローは無意味だと思いますが、シートをアクティブにするコードが足りないです。
No.2
- 回答日時:
マクロのシート名を変数にしてやればいいではないでしょうか。
-------------------------------------
dim WS as object :’シート変数
dim WN(10) as String :'シート名(今は10シートにした。)
'シート名セット
WN(1)="Sheet1":'ココのシート名は自由
WN(2)="Sheet2"":'ココのシート名は自由
WN(3)="Sheet3"":'ココのシート名は自由
WN(10)="Sheet10"":'ココのシート名は自由
'処理中に画面がチラチラしないようにする
Application.ScreenUpdating = False
'実行
For i=1 to 10
Set WS=Worksheets(WN(I))
'マクロ実行(この中のマクロのシート名は、WN(I)に直す。)
Next I
-------------------------------------
のような感じで作ります。
この回答への補足
ご返事ありがとうございます。
シート名がデフォルトのSheet1等ではなく、個別の、不規則な名前なのです。
1つのエクセルに100シート、それが、50個ほどありますので、名前を指定することなく、実行したいのです。
よろしくお願いします。
No.1
- 回答日時:
こんにちは
オーソドックスな?一例です。
Option Explicit
Sub TestMain()
Dim i As Integer
For i = 1 To Worksheets.Count
'Call マクロ1
Next
End Sub
この回答への補足
ご返事ありがとうございます。
上記の'callマクロ1 の箇所だけ変更して実行したのですが、
シートが次のシートにいかず、同じシートで、シート数分マクロ1を繰り返してしまいます。
一つのシートにマクロ1を1回だけ実行して、次のシートに移動したいのです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:44
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:14
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) シート名を簡単に書く方法があれば教えてください。 4 2023/08/24 12:40
- Excel(エクセル) マクロ削除再抽出する方法を教えて下さい。 6 2022/11/26 11:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
-
4
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
5
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
6
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
7
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
8
ExcelVBAを複数シートで実行する方法
Excel(エクセル)
-
9
複数のシートの同じセルに入力するvbaを教えてください
Excel(エクセル)
-
10
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
11
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロを複数シートに実行する...
-
コマンドボタンがデザインモー...
-
エクセルを開いたとき常に同じ...
-
EXCELでワークシートを開いたら...
-
【 Excel】シートの見出しに自...
-
エクセルで回数をカウントする...
-
エクセルでシートの並び替えで...
-
VBA シート名を先月の名前に...
-
VBAで作るexcel検索窓
-
エクセルシート内での閲覧制限
-
VBAで条件によってシート見出し...
-
EXCELのエラー
-
エクセルの複数のワークシート...
-
マクロを特定の複数シートで実...
-
エクセルで串刺ししたシートの...
-
エクセル2010 マクロを実行す...
-
ExcelのSheetに作られたMacro1...
-
全てのシートから特定文字を含...
-
Excel:複数シートから条件に合...
-
シートを保護した時でも並べ替...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドボタンがデザインモー...
-
マクロを複数シートに実行する...
-
【 Excel】シートの見出しに自...
-
EXCELでワークシートを開いたら...
-
エクセルを開いたとき常に同じ...
-
VBAで条件によってシート見出し...
-
EXCELでマクロを使わずに図形の...
-
マクロを特定の複数シートで実...
-
エクセルでシートの並び替えで...
-
エクセルの複数のワークシート...
-
複数シートの保護・解除
-
エクセルで複数のSheetを一括フ...
-
エクセルで回数をカウントする...
-
EXCELのエラー
-
Excel:複数シートから条件に合...
-
VBA シート名を先月の名前に...
-
EXCELの起動時に常に同じ...
-
Excelで,特定のシートを開いた...
-
Excelのマクロの呼び出し元を知...
-
メッセージボックスでシート名...
おすすめ情報