Sub MarkRed()
Dim i
i = 2
While Cells(i, 2) <> ""
If Cells(i, 3) < 60 Then
Cells(i, 3).Font.Color = vbRed
End If
i = i + 1
Wend
End Sub
--------------------------------------------------------------------------------------------------------------------------------
Sub 成績平均点()
Dim i, count, total
total = 0
count = 0
i = 13
Do While Cells(i, 2) <> ""
total = total + Cells(i, 3)
count = count + 1
i = i + 1
Loop
If count > 0 Then
Cells(14, 5) = total / count
End If
End Sub