![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
-
4
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
5
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
6
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
7
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
8
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロを複数シートに実行する...
-
【 Excel】シートの見出しに自...
-
コマンドボタンがデザインモー...
-
エクセルでシートの並び替えで...
-
VBA シート名を先月の名前に...
-
エクセルの複数のワークシート...
-
EXCEL 複数シートを1つの...
-
複数シートの保護・解除
-
エクセルを開いたとき常に同じ...
-
VBAで条件によってシート見出し...
-
Excelで,特定のシートを開いた...
-
EXCELでワークシートを開いたら...
-
エクセル2013でマクロのボタン...
-
AccessのVBAで、Excelのマクロ...
-
EXCELの起動時に常に同じ...
-
EXCELのエラー
-
【Excel VBA】シート見出しの色...
-
Excel VBAで他のシートを印刷す...
-
エクセルシートのセルに現在時...
-
全てのシートから特定文字を含...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロを複数シートに実行する...
-
コマンドボタンがデザインモー...
-
エクセルを開いたとき常に同じ...
-
【 Excel】シートの見出しに自...
-
エクセルでシートの並び替えで...
-
VBAで条件によってシート見出し...
-
EXCELでワークシートを開いたら...
-
EXCELでマクロを使わずに図形の...
-
マクロを特定の複数シートで実...
-
エクセルの複数のワークシート...
-
EXCELのエラー
-
複数シートの保護・解除
-
VBA シート名を先月の名前に...
-
エクセル2013でマクロのボタン...
-
VBAで作るexcel検索窓
-
EXCELの起動時に常に同じ...
-
シートを保護した時でも並べ替...
-
Excelで,特定のシートを開いた...
-
Excelのマクロの呼び出し元を知...
-
メッセージボックスでシート名...
おすすめ情報