一般機能で出来るかどうか判りません。 マクロだと以下で出来ます。 ただし、色が気に入らない場合は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のコードが含まれています。
緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他
|