
excelで以下のマクロを作りました。
Sub Macro1()
Dim 文字 As Range
For Each 文字 In Range("e6:ai21")
Select Case 文字.Text
Case "|"
文字.Font.Name = "MS Pゴシック"
文字.Font.Size = 35
Case Else
文字.Font.Name = "MS明朝"
文字.Font.Size = 11
End Select
Next 文字
End Sub
1つのシートのセル範囲(e6:ai21)に対するマクロです。
このマクロを、シートが10個(sheet1~sheet10)ありその内の8個(sheet3~sheet10に1度にできるようにするにはどうすればいいのですか。
教えてください。よろしくお願いします。
No.3ベストアンサー
- 回答日時:
ちょっとスマートになりました。
シートがいくつあっても対応できます。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 = "MS Pゴシック"
文字.Font.Size = 35
Case Else
文字.Font.Name = "MS明朝"
文字.Font.Size = 11
End Select
Next 文字
End With
Next i
End Sub
No.2
- 回答日時:
Sub 複数シートに書式設定()
Sheets(Array("Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10")).Select
Range("E6:AI21").Select
With Selection.Font
.Name = "MS 明朝"
.Size = 11
End With
With Application.ReplaceFormat.Font
.Name = "MS Pゴシック"
.Size = 35
End With
Selection.Replace What:="|", Replacement:="|", LookAt:=xlWhole, ReplaceFormat:=True
Sheets("Sheet3").Select
End Sub
No.1
- 回答日時:
これでいちよできそうですが、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 = "MS Pゴシック"
文字.Font.Size = 35
Case Else
文字.Font.Name = "MS明朝"
文字.Font.Size = 11
End Select
Next 文字
Next i
End Sub
早々ありがとうございます。
2行目から3行目までは、このように処理するのですね。
参考になりました。
お礼遅れて申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
別シートのマクロを実行する方法
Excel(エクセル)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
-
4
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
5
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
6
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
7
【エクセルマクロ】複数シートで同じマクロを実行
Excel(エクセル)
-
8
別シートのマクロボタンをマクロで実行させることができるかどうか
Excel(エクセル)
-
9
エクセル マクロ 別シートから実行すると動かない
Excel(エクセル)
-
10
複数シートのボタンに同一の動作をさせたい
Excel(エクセル)
-
11
Excel_マクロ_現在開いているシートにマクロを実行したいです
Visual Basic(VBA)
-
12
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
13
VBAであるマクロを全てのシートに対して流したい
PowerPoint(パワーポイント)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
16
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
17
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
Excelシート上のマクロを登録したボタンの削除が出来ません
Excel(エクセル)
-
20
ExcelVBAを複数シートで実行する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Notionが、テーブルビューを一...
-
1MBでドレくらいの文章を書くこ...
-
Excel csvから開くと上限文字数...
-
スペイン語で「i」や「o」の上...
-
A4のレポート用紙1枚で2000文字...
-
化学式を簡単に入力する方法
-
フォトショップで、スキャナ取...
-
イラストレーターで、文字ツー...
-
マル秘マークを入れたい
-
英文の字下げ、について
-
イラストレータの文字のカーソ...
-
ワード 縦書フォームにおける...
-
Excelのファイル名について
-
テキスト型は何故255文字ま...
-
ドキュワークス文書にて、フリ...
-
LINEの入力文字枠にリンク付き...
-
PDFファイルに文字を書き込む方法
-
イラストレーターで、円に沿っ...
-
10分間で1200文字打てる...
-
Lotsu Notes7 同一文章内リン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Notionが、テーブルビューを一...
-
1MBでドレくらいの文章を書くこ...
-
Excel csvから開くと上限文字数...
-
A4のレポート用紙1枚で2000文字...
-
スペイン語で「i」や「o」の上...
-
4個の文字a,b,b,cから3個の文字...
-
作ったマクロを複数のシートで...
-
イラストレーターで、文字ツー...
-
イラストレーターで、円に沿っ...
-
フォトショップで、スキャナ取...
-
LINEの入力文字枠にリンク付き...
-
ペイントでのテキスト修正
-
テキスト型は何故255文字ま...
-
マル秘マークを入れたい
-
VB6 String型変数の文字数制限
-
英文の字下げ、について
-
ラテン文字(aなどの上に点が二...
-
RIGHTの関数で、指定した文字数...
-
Lotsu Notes7 同一文章内リン...
-
パワーポイントで数式を使うには?
おすすめ情報