' ‹³‰È�‘145ƒy�[ƒW�@—û�K3 --- �@IF�@•¶
Sub —û�K3()
  Dim i As Integer
  
  Range("E10").Select
  
  For i = 1 To 5
     If ActiveCell.Offset(0, -1).Value >= 80 Then
        ActiveCell.Value = "�‡Ši"
     Else
        ActiveCell.Value = "•s�‡Ši"
     End If
     ActiveCell.Offset(1, 0).Select
  Next
End Sub
' ‹³‰È�‘145ƒy�[ƒW�@—û�K3 --- �@SELECT CASE •¶
Sub —û�K31()
  Dim i As Integer
  
  Range("D10").Select
  
  Do While ActiveCell.Value <> ""
     If ActiveCell.Value >= 80 Then
        ActiveCell.Offset(0, 1).Value = "—D"
     ElseIf ActiveCell.Value >= 70 Then
        ActiveCell.Offset(0, 1).Value = "—Ç"
     ElseIf ActiveCell.Value >= 60 Then
        ActiveCell.Offset(0, 1).Value = "‰Â"
     Else
        ActiveCell.Offset(0, 1).Value = "•s‰Â"
     End If
     ActiveCell.Offset(1, 0).Select
  Loop
End Sub
' ‹³‰È�‘145ƒy�[ƒW�@—û�K4
Sub —û�K4()
  Dim total As Single
  
  Range("C11").Select
  Do While ActiveCell.Value <> ""
     total = total + ActiveCell.Value
     ActiveCell.Offset(0, 1).Value = total
     ActiveCell.Offset(1, 0).Select
  Loop
End Sub