🍊
【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
テスト結果
テスト結果は下記の画像です。
最後に
参考にしていただけると幸いです。
Discussion