Sub hantei()
  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