EXCEL VBA で特定の文字に色をつけるマクロを書きたいのですが

コードはどのように書けばよいのでしょうか？

(1)そのようなコードを持っていらっしゃったらいただけないでしょうか？

(2)または、参考になるページがありましたら教えていただけないでしょうか？

現在勉強を始めたところですが、よろしくお願いいたします。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2005/05/27 21:36

セルの文字列の中に,

たとえば
aaaeeessseee
ssddd
dfg
weeeff
のセルの中の
eeeに赤色文字にする。
セル範囲Range("A1:C6")を対象にしてます。
ーーーー
Sub test01()
Dim cl As Range
For Each cl In Range("a1:c6")
r = InStr(cl, "eee")
If r <> 0 Then
cl.Characters(r, 3).Font.Color = vbRed
End If
Next
End Sub

この回答へのお礼

ありがとうございます！まだ、コードを書ける段階ではありませんが、試して見ます。
早く、imogasiさんのように、使えるようになりたいと思います。

お礼日時：2005/05/28 03:16

No.2 回答者： BLUEPIXY 回答日時： 2005/05/27 20:13

例えば

Range("A1").Characters(2, 3).Font.Color = vbBlue
とすれば、
A1のセルに入力されている文字の２文字目から３文字を青にします。
Colorでなく
ColorIndexを使う方法もあります

この回答へのお礼

わざわざ答えていただき、誠にありがとうございます。ポイントをお渡しできなくて申し訳ないです。このコードも試させていただきます。

お礼日時：2005/05/28 03:19

No.1 回答者： gutugutu 回答日時： 2005/05/27 12:32

下記参考になると思います。

参考URL：http://www.hiroyuki.tank.jp/soft/macro/mokuji.htm

この回答へのお礼

ありがとうございます。参考になりそうです！！

初めて、教えて！gooに書き込んだのですが、こんなに早く反応してくださる方がいるとは思いませんでした。

お礼日時：2005/05/27 17:47