Заменить текст и изменить цвет шрифта

Я застрял. Я успешно смог заменить 3 текста в столбце на конкретный текст. Но я не могу изменить шрифт замененных текстов на красный. Поблагодарите помощь. Благодаря Ниже текущий кодЗаменить текст и изменить цвет шрифта

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"

источник

2017-01-31 Adsar

Вы можете сослаться здесь: http://stackoverflow.com/questions/30567552/change-font-color-for-a-part -of-text-in-cell –

Просто добавьте следующие строки в начало вашего кода.

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

Теперь добавьте строку ниже после того, как все MatchCase:=True,

ReplaceFormat:=True

источник

2017-01-31 06:06:13 sn152

это очень хороший трюк! –

это прекрасный @ sn152 – Adsar

Заменить текст и изменить цвет шрифта

ответ

Смежные вопросы