excelマクロ記述

ＥＸＣＥＬのＢＯＯＫがあり、ｎ枚のシートを含んでいます。
Macro１という名称のマクロで、
そのBook内のすべてのシートにMacro2というマクロを実行させる
という場合、Macro１はどのように書けばいいのですか。
次次にシートを開くという操作をどう表すか？
このMacro2では、例えばシートの文字の表示を７５％のサイズで表示のようなものを考えています。
またそのときmacro2は、何か記述の追加が必要ならそれはどのようなものか。
よろしくお願いいたします。

Sub Macro１(　)
' Macro1 Macro
' 次次とシートを開き、７５%サイズにする
ｘｘｘｘｘｘｘｘ

Sub Macro2(　)
' Macro1 Macro
ActiveWindow.Zoom = 75
End Sub

End Sub

No.1 回答者： wild_turkey 回答日時： 2005/07/13 14:45

こんな感じで動くと思います。

Sub Macro1()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count Step 1 'シート枚数分繰り返し
ActiveWorkbook.Sheets(i).Activate '次々とシートを開く
ActiveWindow.Zoom = 75 '７５％サイズにする
Next i
End Sub

この回答へのお礼

おかげで解決しました。どうもありがとうございます。

お礼日時：2005/07/13 15:59

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2005/07/13 14:48

いっぺんにできますよ。

Sub test()
For Each ws In Worksheets
ws.Activate
ActiveWindow.Zoom = 75
Next
End Sub

この回答へのお礼

おかげで解決しました。どうもありがとうございます。

お礼日時：2005/07/13 15:59

No.3 回答者： pascal3141 回答日時： 2005/07/13 15:32

次のようにするとできます。

どちらも標準モジュールにコピペ。Macr2の処理を変えると、色々な処理をさせることができます。
==========================
Sub Macro1()
Dim Ws As Object
' Macro1 Macro
' 次次とシートを開き、７５%サイズにする
For Each Ws In Sheets
Ws.Activate
Macro2
Next
End Sub
=========================
Sub Macro2()
' Macro1 Macro
ActiveWindow.Zoom = 75
End Sub

この回答へのお礼

おかげで解決しました。どうもありがとうございます。

お礼日時：2005/07/13 15:58

No.4 回答者： Wendy02 回答日時： 2005/07/13 15:48

こんにちは。

＞Macro１という名称のマクロで、
＞そのBook内のすべてのシートにMacro2というマクロを実行させる
＞という場合、Macro１はどのように書けばいいのですか。
＞次次にシートを開くという操作をどう表すか？
＞このMacro2では、例えばシートの文字の表示を７５％のサイズで表示のようなものを考えています。

サブルーチンにする必要があるかないかは別として、以下のようになりますね。

Sub Macro1 ()
　Call Macro2
End Sub

Sub Macro2()
　Sheets.Select
　ActiveWindow.Zoom = 75
　ActiveSheet.Select
End Sub

＞またそのときmacro2は、何か記述の追加が必要ならそれはどのようなものか。

あえて付けるなら、Private ステートメントをつけます。
Private Sub Macro2()
　　・
　　・
　　・
End Sub

この回答へのお礼

おかげで解決しました。どうもありがとうございます。

お礼日時：2005/07/13 15:58