Close

検索文字列を含むセルのフォント色を変える

Excel VBAでセルのフォント色を変更するには
FontオブジェクトのColorプロパティに値を設定します。
e_0047

サンプルでは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

結果は以下のようになります。
e_0048

 

Share on facebook
Share on twitter
Share on linkedin