エクセルのマクロについて教えてください。

下記のマクロを作成したいのですが、
どのようにコードを設定してよいかがわかりません、
親切にコード共教えていただける方、何卒宜しくお願い致します。
私の行いたいことを下記に列記いたします。
マクロを実行すると指定セルの文章の中の特定の文字だけを色付け（赤文字）にできる方法を教えてください。
宜しくお願い致します。
文章がある指定セルは
「C25」「D25]「E25」になります。
‘検索して文字色を変更する特定文字は
「軽微な変更説明書」
建設評価
「変更申告書」
「軽微該当証明書」
上記文字の「」は有りです。
このVBAはあるセルを操作するたびに実行できるように設定しておりますので、
同じマクロを何度も実行しても、
キーワード以外の文字色が変更にならないようにしたいのです。
何卒、宜しくお願い致します。

質問者からの補足コメント

• ご連絡ありがとうございます
  大変失礼いたしました、
  シート名は「申請の流れ」
  で、お願い致します
  宜しくお願い致します

    補足日時：2025/01/30 21:04

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/01/30 21:11

以下のようにしてください。

Public Sub 特定文字列色付け()
Dim ws As Worksheet
Set ws = Worksheets("申請の流れ")
Dim rg As Range
Dim words As Variant
Dim wd As Variant
Dim ret As Variant
words = Array("「軽微な変更説明書」", "建設評価", "「変更申告書」", "「軽微該当証明書」")
For Each rg In ws.Range("C25,D25,E25")
rg.Font.ColorIndex = xlAutomatic
For Each wd In words
ret = InStr(1, rg.Value, wd, vbBinaryCompare)
If ret > 0 Then
rg.Characters(Start:=ret, Length:=Len(wd)).Font.Color = -16776961
End If
Next
Next
End Sub

この回答へのお礼

回答ありがとうございます
又、詳しいコードも教えて頂き、
感謝いたします
早速試もさせて頂きます

お礼日時：2025/01/30 21:13

No.2 回答者： tatsumaru77 回答日時： 2025/01/30 21:01

不明点です。

シート名が提示されていませんが、アクティブシートの「C25」「D25]「E25」セルの文字列の色を変えると理解して良いですか。

No.1 回答者： yajyokitahoy 回答日時： 2025/01/30 18:41

EXCELのパソコン教室やってますけど