指定のセルと内容が一緒なら、セルの色を変える

  • 3つまでの条件でいいなら「条件付き書式の設定」でよい。
  • 4以上の条件ならマクロ(VBA)使うしかないです。

A2/A3/A4/A5/A6 のセルの内容と一致したセルの色を変えるマクロ

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Exit_label

    Select Case Target.Value '内容を比較
        Case ActiveSheet.Range("A2").Value
            Target.Interior.ColorIndex = 38 '塗りつぶしを紺
            Target.Font.ColorIndex = 0 '文字色を黒
        Case ActiveSheet.Range("A3").Value
            Target.Interior.ColorIndex = 40 '塗りつぶしを青
            Target.Font.ColorIndex = 0 '文字色を黒
        Case ActiveSheet.Range("A4").Value
            Target.Interior.ColorIndex = 36 '塗りつぶしを水色
            Target.Font.ColorIndex = 0 '文字色を黒
        Case ActiveSheet.Range("A5").Value
            Target.Interior.ColorIndex = 34
            Target.Font.ColorIndex = 0 '文字色を黒
        Case ActiveSheet.Range("A6").Value
            Target.Interior.ColorIndex = 37
            Target.Font.ColorIndex = 0 '文字色を黒
        Case Else
            Target.Interior.ColorIndex = xlNone '塗りつぶしを自動
            Target.Font.ColorIndex = 0 '文字色を黒
        End Select
Exit_label:

End Sub

参照サイト