【ExcelVBA】特定の値の時にフォント色を変更する処理

はじめに

特定の値の時、文字のフォント色を変更する必要があったので、フォント色を変更するテスト処理を実装しました。

テスト処理開始前のデータ

テスト処理開始前のデータは下記のデータです。

実装したソースコード

実装したソースコードは下記になります。

'特定の値の時、文字色を変える処理
Sub color_test()
    'ワークシートオブジェクト変数の定義
    Dim ws1 As Worksheet
    '開始行、最終行変数の定義
    Dim first_row_num, last_row_num As Long
    'セルの値変数の定義
    Dim value1 As String
    'カウント変数の定義
    Dim i As Long
    
    'ws1変数をセット
    Set ws1 = ThisWorkbook.Worksheets("Sheet2")
    '開始行をセット
    first_row_num = 3
    '最終行をセット
    last_row_num = ws1.Cells(Rows.count, 2).End(xlUp).Row
    
    '開始行から最終行までの「名前」列の値を読み、
    '名前が「田村保乃」か「守屋麗奈」の場合、文字フォント色を青色に、それ以外は黒色にする。
    For i = first_row_num To last_row_num
        value1 = ws1.Range("B" & i).Value
        If value1 = "田村保乃" Or value1 = "守屋麗奈" Then
            ws1.Range("B" & i).Font.Color = RGB(12, 118, 158)
        Else
            ws1.Range("B" & i).Font.Color = RGB(0, 0, 0)
        End If
    Next i
    
    
End Sub

テスト結果

テスト結果は下記の画像です。

最後に

参考にしていただけると幸いです。