作ったマクロを複数のシートで実行できるようにしたい。

質問

excelで以下のマクロを作りました。

Sub Macro1()
　　Dim 文字 As Range
　　For Each 文字 In Range("e6:ai21")
　　　Select Case 文字.Text
　　　　Case "|"
　　　　　文字.Font.Name = "ＭＳ Ｐゴシック"
　　　　　文字.Font.Size = 35
　　　　Case Else
　　　　　文字.Font.Name = "ＭＳ明朝"
　　　　　文字.Font.Size = 11
　　　End Select
　　　Next 文字
　　End Sub

１つのシートのセル範囲（e6:ai21）に対するマクロです。

このマクロを、シートが１０個(sheet1～sheet10)ありその内の８個(sheet3～sheet10に１度にできるようにするにはどうすればいいのですか。

教えてください。よろしくお願いします。

回答No.3

tetnon2000 · ベストアンサー

ちょっとスマートになりました。シートがいくつあっても対応できます。
Sub Macro1()
　Dim 文字 As Range
　Dim i As Integer

　　For i = 1 To Sheets.Count
　　　 With Sheets(i)
　　　　 For Each 文字 In Range("e6:a121")
　　　　　 Select Case 文字.Text
　　　　　　 Case "|"
　　　　　　　 文字.Font.Name = "ＭＳ Ｐゴシック"
　　　　　　　 文字.Font.Size = 35
　　　　　　 Case Else
　　　　　　　 文字.Font.Name = "ＭＳ明朝"
　　　　　　　 文字.Font.Size = 11
　　　　　　 End Select
　　　　　 Next 文字
　　　　End With
　　Next i
End Sub

お礼

こんなに簡単にできるのですね。
おかげさまで、うまくいきました。
ありがとうございました。

回答No.2

NCU

Sub 複数シートに書式設定()
　　Sheets(Array("Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10")).Select
　　Range("E6:AI21").Select
　　With Selection.Font
　　　　.Name = "ＭＳ 明朝"
　　　　.Size = 11
　　End With
　　With Application.ReplaceFormat.Font
　　　　.Name = "ＭＳ Ｐゴシック"
　　　　.Size = 35
　　End With
　　Selection.Replace What:="|", Replacement:="|", LookAt:=xlWhole, ReplaceFormat:=True
　　Sheets("Sheet3").Select
End Sub

お礼

arrayを使うのですね。
初心者なのでarrayはよくわかりませんが、
実行したら、できました。
ありがとうございました。

回答No.1

tetnon2000

これでいちよできそうですが、for each　を使った、もっとスマートな方法があると思いますので、勉強してください。（どうしても思い出せないので)
Dim 文字 As Range
Dim Mybook As Workbook
Dim i As Integer

For i = 1 To 10
Sheets("sheet" & i).Select
For Each 文字 In Range("e6:ai21")
Select Case 文字.Text
Case "|"
文字.Font.Name = "ＭＳ Ｐゴシック"
文字.Font.Size = 35
Case Else
文字.Font.Name = "ＭＳ明朝"
文字.Font.Size = 11
End Select
Next 文字
Next i
End Sub

お礼

早々ありがとうございます。
２行目から３行目までは、このように処理するのですね。
参考になりました。
お礼遅れて申し訳ありません。