| 
 一般機能で出来るかどうか判りません。マクロだと以下で出来ます。
 ただし、色が気に入らない場合はRGBのコードをテキトーに変えて下さい。
 
 Sub 色付け()
 Dim C As Integer, R As Integer
 For R = 2 To 6
 For C = 3 To 9
 Select Case WorksheetFunction.CountIf(Range("C2:I6"), Cells(R, C).Value)
 Case 2
 Cells(R, C).Font.Color = RGB(102, 0, 51)
 Case 3
 Cells(R, C).Font.Color = RGB(102, 255, 0)
 Case 4
 Cells(R, C).Font.Color = RGB(102, 255, 255)
 Case 5
 Cells(R, C).Font.Color = RGB(204, 0, 0)
 Case Else
 Cells(R, C).Font.Color = RGB(0, 0, 0)
 End Select
 Next
 Next
 For R = 7 To 11
 For C = 3 To 9
 Select Case WorksheetFunction.CountIf(Range("C7:I11"), Cells(R, C).Value)
 Case 2
 Cells(R, C).Font.Color = RGB(102, 0, 51)
 Case 3
 Cells(R, C).Font.Color = RGB(102, 255, 0)
 Case 4
 Cells(R, C).Font.Color = RGB(102, 255, 255)
 Case 5
 Cells(R, C).Font.Color = RGB(204, 0, 0)
 Case Else
 Cells(R, C).Font.Color = RGB(0, 0, 0)
 End Select
 Next
 Next
 End Sub
 
 
 この記事にはVBAのコードが含まれています。
 
 緑の太文字→注釈
 茶色の太文字→条件分岐
 赤の太文字→ループ
 青の太文字→その他
 
 |