excelマクロ記述

質問

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

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

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

End Sub

回答No.2

merlionXX · ベストアンサー

いっぺんにできますよ。

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

お礼

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

回答No.4

Wendy02

こんにちは。

＞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

お礼

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

回答No.3

pascal3141

次のようにするとできます。どちらも標準モジュールにコピペ。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

お礼

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

回答No.1

wild_turkey

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

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

お礼

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