テキストを置き換えてフォントの色を変更

Question

私は立ち往生しています。私は、3つのテキストを特定のテキストに置き換えることに成功しました。しかし、置き換えられたテキストのフォントをRedに変更することはできません。助けていただければ幸いです。以下のおかげ はちょうどあなたのコードの先頭に以下の行を追加し、現在のコード

Worksheets("HPR").Columns("E").Replace _ 
What:="IM", Replacement:="Non-IM", _ 
SearchOrder:=xlByColumns, MatchCase:=True 

Worksheets("HPR").Columns("E").Replace _ 
What:="Comp", Replacement:="Non-IM", _ 
SearchOrder:=xlByColumns, MatchCase:=True 

Worksheets("HPR").Columns("E").Replace _ 
What:="", Replacement:="Non-IM", _ 
SearchOrder:=xlByColumns, MatchCase:=True" 

Answer 1

です。今

With Application.ReplaceFormat.Font 
    .Subscript = False 
    .Color = 255 
    .TintAndShade = 0 
End With 

すべてのあなたがここに参照することができますMatchCase:=True,

ReplaceFormat:=True