199

view

添付の図を見ると、C13、E13も点数と項目数があるのですが、質問では抜けているのでしょうか？
また、添付にはB列が２つあるのですが、これは無視ということにしています。
入力されているシートのシートイベントに記述します。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim j As Long
If Intersect(Target, Range("D4,D7,D10,D13,D16,E4,E7,E10,E13,E16")) Is Nothing Then Exit Sub
Select Case Target.Offset(, -1).Value
Case "S"
Range(Target.Offset(-2, -1), Target).Interior.ColorIndex = 8
Case "A"
Range(Target.Offset(-2, -1), Target).Interior.ColorIndex = 39
Case "B"
Range(Target.Offset(-2, -1), Target).Interior.ColorIndex = 6
Case "C"
With Range(Target.Offset(-2, -1), Target)
.Interior.ColorIndex = 3
.Font.Bold = True
.Font.ColorIndex = 2
End With
End Select

Select Case Target.Value
Case 0
Range(Target.Offset(-2), Target).Interior.ColorIndex = 8
Case 1, 2
Range(Target.Offset(-2), Target).Interior.ColorIndex = 39
Case 3 To 5
Range(Target.Offset(-2), Target).Interior.ColorIndex = 6
Case Is >= 6
With Range(Target.Offset(-2), Target)
.Interior.ColorIndex = 3
.Font.Bold = True
.Font.ColorIndex = 2
End With
End Select
End Sub

複数の条件がある場合は、SELECT CASEステートメントを使うと視認性が良くなります。IFステートメントでもよいのですが、修正する場合に面倒です。
構文がある程度お分かりであれば、意味が分かるようにしています。
質問にあってないのでしたら、参考程度にとどめてください。