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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) シート名を簡単に書く方法があれば教えてください。 4 2023/08/24 12:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
-
4
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
5
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
6
別シートのマクロを実行する方法
Excel(エクセル)
-
7
複数シートのボタンに同一の動作をさせたい
Excel(エクセル)
-
8
別シートのマクロボタンをマクロで実行させることができるかどうか
Excel(エクセル)
-
9
ExcelVBAを複数シートで実行する方法
Excel(エクセル)
-
10
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
11
VBAであるマクロを全てのシートに対して流したい
PowerPoint(パワーポイント)
-
12
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
13
【エクセルマクロ】複数シートで同じマクロを実行
Excel(エクセル)
-
14
VBAで指定シート以外の選択
Visual Basic(VBA)
-
15
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
16
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
17
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
18
モジュール内のマクロを全て実行させるには
Excel(エクセル)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1MBでドレくらいの文章を書くこ...
-
文字列(セル)から一部の文字...
-
Inkscapeで文字を変形するには
-
英文の字下げ、について
-
ペイントでテキストを入れると...
-
Photoshopで写真の下に文字を入...
-
パソコン1分で100字打てるのは...
-
テキスト型は何故255文字ま...
-
円に沿って左回りで文字を打ちたい
-
教えて!gooの文字数について
-
イラストレーターで、円に沿っ...
-
[正規表現]ある文字からある文...
-
作ったマクロを複数のシートで...
-
Illustratorで上付き・下付き文...
-
Photoshop Elements 文字均等割付
-
フォトショップで、スキャナ取...
-
ドキュワークス文書にて、フリ...
-
photoshop(CS6)の文字入力問題
-
エクセルVBA 特定文字以外の行...
-
PDFファイルに文字を書き込む方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1MBでドレくらいの文章を書くこ...
-
作ったマクロを複数のシートで...
-
Notionが、テーブルビューを一...
-
WPS OFFICEでの縦書きについて
-
4個の文字a,b,b,cから3個の文字...
-
スペイン語で「i」や「o」の上...
-
パワーポイント、四角い枠の中...
-
photoshop(CS6)の文字入力問題
-
フォトショップで、スキャナ取...
-
VB6 String型変数の文字数制限
-
テキスト型は何故255文字ま...
-
ラテン文字(aなどの上に点が二...
-
英文の字下げ、について
-
ペイントでのテキスト修正
-
マル秘マークを入れたい
-
イラストレーターで、円に沿っ...
-
イラストレーターで、文字ツー...
-
TeraPadで環境依存文字を入力す...
-
ペイントでテキストを入れると...
-
Inkscapeで文字を変形するには
おすすめ情報