Excel VBAでセルのフォント色を変更するには
FontオブジェクトのColorプロパティに値を設定します。
サンプルではA1~A5セルの各セルに
InStr関数で検索を行い、対象文字列が存在する場合は、
Colorプロパティに値(色定数)を設定し、
セル色を赤色に変更しています。
Sub 検索文字列のあるセルを赤に() Dim strWord As String '検索文字列 Dim intLeft As Integer '検索文字列開始位置 strWord = "GANASYS" For i = 1 To 5 '文字列が検索された場合の開始位置を取得 intLeft = InStr(Cells(i, 1).Value, strWord) If intLeft <> 0 Then '検索文字列のあるセルを赤色にする。 Cells(i, 1).Font.Color = vbRed End If Next End Sub
結果は以下のようになります。