- 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
参照サイト