Sub Macro1()
'
' Macro1 Macro
'
If Cells(13, 1) = "A" Then
Cells(13, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(13, 1) = "B" Then
Cells(13, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(13, 1) = "C" Then
Cells(13, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(13, 2).Interior.Color = RGB(0, 0, 0)
End If
'
If Cells(14, 1) = "A" Then
Cells(14, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(14, 1) = "B" Then
Cells(14, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(14, 1) = "C" Then
Cells(14, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(14, 2).Interior.Color = RGB(0, 0, 0)
End If
If Cells(15, 1) = "A" Then
Cells(15, 2).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(15, 1) = "B" Then
Cells(15, 2).Interior.Color = RGB(0, 255, 0)
ElseIf Cells(15, 1) = "C" Then
Cells(15, 2).Interior.Color = RGB(0, 0, 255)
Else
Cells(15, 2).Interior.Color = RGB(0, 0, 0)
End If
If Cells(13, 1) = "A" Or Cells(14, 1) = "A" Or Cells(15, 1) = "A" Then
Cells(14, 3).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(13, 1) = "B" Or Cells(14, 1) = "B" Or Cells(15, 1) = "B" Then
Cells(14, 3).Interior.Color = RGB(0, 255, 0)
Else
Cells(14, 3).Interior.Color = RGB(0, 0, 255)
End If
End Sub