EXCELでセル内の文字の書式変更の仕方を教えてください

質問

EXCELで指定した複数のセルの文字列のうち、頭の数文字のみ書式を変えたいと思っています。
ひとつだけであれば変えたい文字の部分を選択し、書式変更すればいいのですが、複数ある為一括で変更出来る方法がないか探しています。
そこで何かやり方があれば教えてください。マクロでもかまいません。
宜しくお願いします。

あいうえお…はそのまま。(1)、（2）、(3)のみ書式変更
　　　　　A 　　　　　　B 　 　　　C
1 (1)あいうえお　(1) A　　(1) 1
2 (2)かきくけこ　(2) B　　(2) 2
3 (3)さしすせそ　(3) C　　(3) 3

回答No.2

merlionXX · ベストアンサー

A1からC3の範囲で先頭の3文字の書式を指定するサンプルです。

Sub test01()
Dim c As Range
For Each c In Range("A1:C3")
With c.Characters(Start:=1, Length:=3).Font
.Name = "HG丸ゴシックM-PRO"
.Size = 12
.ColorIndex = 3
End With
Next c
End Sub

お礼

サンプルを基にしたら狙い通りの事が出来ました。
サンプルの中身については理解していないところがありますが、
今後中身について勉強していきたいと思います。
今回は本当にありがとうございました。

回答No.1

akina_line

こんにちは。

　とりあえず、マクロの記録機能で書式変更の操作をマクロ化してみるとどのようなオブジェクトを使えばよいのかが分かります。
　あとは、アクティブなレンジオブジェクトの全要素分、上記処理を繰り返せばよいでしょう。

では。

お礼

セル内の文字全部の書式を変更するのは記録機能でなんとなく分かったのですが、
特定の部分のみの場合はどう指定したらよいか分からず質問させてもらいました。
今後いろいろと勉強してみます。
今回は迅速な回答ありがとうございました。