VBAであるマクロを全てのシートに対して流したい

お世話になります。

現在シート単位に実行するマクロ１があります。

これを、全てのシートに対して、マクロ1を実行したいのですが、どのようにすればよいでしょうか？
※現在は、シートが終わる毎に手動でマクロ１を実行して、それが終われば次のシートへという形です。

大変お手数ですが、何卒よろしくお願いします。

No.3 ベストアンサー 回答者： onlyrom 回答日時： 2009/03/10 16:04

全てのシートに同じマクロ、ということは

そのマクロはアクティブシートに対して処理してるはずですから
該当シートをアクティブにしながら実行されなければいけないので
以下のようになります。

'-------------------------------------------
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 回答者： A88No8 回答日時： 2009/03/10 17:12

すみません

突っ込むコードが漏れていましたね。今さら無意味なんですが、ご参考まで。Call文の直前に入れます。
　　Sheets(Worksheets(i).Name).Select

No.4 回答者： A88No8 回答日時： 2009/03/10 16:58

こんにちは

＃１です。
　すでに＃３の方が決定打のFOR EACH文で投稿されているので、私のフォローは無意味だと思いますが、シートをアクティブにするコードが足りないです。

No.2 回答者： pascal3141 回答日時： 2009/03/10 14:14

マクロのシート名を変数にしてやればいいではないでしょうか。

-------------------------------------
dim WS as object :’シート変数
dim WN(10) as String ：'シート名（今は１０シートにした。）

'シート名セット
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等ではなく、個別の、不規則な名前なのです。

１つのエクセルに１００シート、それが、５０個ほどありますので、名前を指定することなく、実行したいのです。

よろしくお願いします。

補足日時：2009/03/10 15:15

No.1 回答者： A88No8 回答日時： 2009/03/10 14:11

こんにちは

オーソドックスな？一例です。
Option Explicit
Sub TestMain()
　Dim i As Integer

　For i = 1 To Worksheets.Count
　　'Call マクロ１
　Next
End Sub

この回答への補足

ご返事ありがとうございます。

上記の'callマクロ1 の箇所だけ変更して実行したのですが、
シートが次のシートにいかず、同じシートで、シート数分マクロ１を繰り返してしまいます。

一つのシートにマクロ１を１回だけ実行して、次のシートに移動したいのです。

よろしくお願いします。

補足日時：2009/03/10 15:17