Excel フォントの色を変更する方法を教えてください

FindKey でオートフィルタをかけました。この変数に該当する文字の色をすべて赤色に変える方法はあるのでしょうか。表はB7からC100の範囲です。よろしくお願い致します。

Sub Test2()

Dim intRowEnd As Integer
Dim FindKey As String

'最終行の取得
intRowEnd = Sheets("Sheet1").UsedRange.Rows.Count

'フィルタの解除
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

'InputBoxの表示
FindKey = InputBox("キーワードを入力してください")

'検索キーワードでフィルタをかける
Sheets("Sheet1").Range(Cells(7, 2), Cells(intRowEnd, 3)).AutoFilter _
Field:=2, _
Criteria1:="*" & FindKey & "*"

'キーワードの文字を赤にする


End Sub

No.1 回答者： fujillin 回答日時： 2023/12/09 23:14

こんばんは

セルの文字色を全部変えるのなら、フィルター後の表示セルの
　.Font.Color
を指定することで可能です。

検索対象となっている文字だけの色を変えたい場合は、各セルについて対象文字の位置を検索して、その部分について
　.Characters(Start, Length).Font.Color
で色を指定することになります。

以下をご参考になさってください。
https://workteria.forward-soft.co.jp/blog/detail …

この回答へのお礼

ご回答頂き有難うございます。試してみようと思います。

お礼日時：2023/12/10 07:05