| |
こんにちは。かみちゃん です。
>仕事で使用しているシートにマクロを作った（シート１枚のみに適用）んですが、ブック内のシートにも同時に展開できるようにしたい
複数のシートを処理する方法として、次の３パターンが考えられます。
Sub Macro1()
Dim ws As Worksheet
'すべてのシートを処理する場合
For Each ws In Worksheets
ws.Activate
MsgBox ActiveSheet.Name
Call 生産実績数値変更
Next
'特定のシート（例：Sheet2）以外のすべてのシートを処理する場合
For Each ws In Worksheets
If ws.Name <> "Sheet2" Then
ws.Activate
MsgBox ActiveSheet.Name
Call 生産実績数値変更
End If
Next
'特定のシート（例：Sheet1、Sheet4）のみ処理する場合
For Each ws In Worksheets(Array("Sheet1", "Sheet4"))
ws.Activate
MsgBox ActiveSheet.Name
Call 生産実績数値変更
Next
End Sub
Sub 生産実績数値変更()
'〜記述省略〜
End Sub
|
|
かみちゃん
- 05/11/23(水) 19:58 -
