VBA学習ツール無料配布！#28 テーマ:vbaで文字色を設定しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim row As Integer
    Dim FirstRow As Integer
    Dim DataLen As Integer
    Dim cell As Range
    Set ws = ThisWorkbook.Worksheets("読み込みシート")
    ' シート「読み込みシート」をアクティベートする
    ws.Activate
    ' 「データ」の最初の行を定義
    FirstRow = 6
    ' 「データ」の長さを定義
    DataLen = 5
    ' 各セルをループ
    For row = FirstRow To FirstRow + (DataLen - 1)
        Set cell = ws.Cells(row, 2)
        If InStr(cell.Value, "重要") > 0 Then
            cell.Font.Color = RGB(255, 0, 0) ' 「重要」を含む場合、赤色に設定
        Else
            cell.Font.Color = RGB(0, 0, 255) ' 含まない場合、青色に設定
        End If
    Next row
    ' メッセージボックスで通知
    MsgBox "文字色設定を完了しました。", vbInformation
End Sub