マクロを複数シートに実行するには？

ブック内全ての複数のシート（sheet30くらい）に、
同じマクロ作業を実行するには どのようにすればよいでしょうか？

No.4 回答者： hana-hana3 回答日時： 2010/02/19 20:21

＞初心者なものなので、この方法を教えて頂ければ助かります。

具体的な処理内容が解らないので、もっとも単純な処理方法を記載します。
マクロ sample を実行すると、ブックのシートを順番にアクティブにしながら、Macro1 というマクロを実行します。

Sub sample()
Dim WS As Worksheet
For Each WS In Workbooks
WS.Activate
Call Macro1 'Ｃａｌｌに続けて、実行したいマクロ名を記述
Next
End Sub

Sub Macro1()
'処理
End Sub

No.3 回答者： hana-hana3 回答日時： 2010/02/19 16:06

標準モジュールにマクロを記載すればどのシートからも実行できます。

マクロ内部でシート名を指定している場合は、どのシートでも動くように修正する必要があります。

マクロボタンもツールバー等に設定すると、全てのシートに設置する必要もなくなります。
個別のシートで実行するのではなく、プログラムで一括で全てのシートにマクロを適用する事も可能です。

この回答への補足

ありがとうございます！
＞プログラムで一括で全てのシートにマクロを適用する
初心者なものなので、この方法を教えて頂ければ助かります。

補足日時：2010/02/19 16:17

No.2 回答者： myRange 回答日時： 2010/02/19 11:08

例えば、

●全シートのセルＢ５、に、"あいうえお"と入れる場合
'-------------------------------
Sub Test()
　Dim sht As Worksheet
　For Each sht In Worksheets
　　　sht.Range("A1").Value = "あいうえお"
　Next sht
End Sub
'---------------------

●Sheet３以外のシートのセルＢ５、に、"あいうえお"と入れる場合
'--------------------------------
Sub Test()
　Dim sht As Worksheet
　For Each sht In Worksheets
　　　If sht.Name <> "Sheet3" Then
　　　　　sht.Range("A1").Value = "あいうえお"
　　　End If
　Next sht
End Sub
'----------------------

以上です。

No.1 回答者： FEX2053 回答日時： 2010/02/19 11:02

標準モジュールにマクロを記述すれば、全てのシート（カレントワークシート）

で同等に動作しますよ。つか、普通にマクロの記録をすれば、標準モジュール
に記録され、そのままどのシートでも動作する筈なんですが。