基础 语句 及使用

---

Sub 循环语句()

For i = 1 To 10

  Range("A" & i).Value = i

Next i

End Sub

Sub 循环嵌套()

  For Each i In Range("A1:D5")
    i.Value = 100
  Next

End Sub

---

Sub 判断语句()
  '根据 B2 单元格的值 if 判断

  If Range("B2").Value >= 90 Then
    Range("C2").Value = "优秀"
  ElseIf Range("B2").Value >= 80 Then
    Range("C2").Value = "良好"
  ElseIf Range("B2").Value >= 60 Then
    Range("C2").Value = "及格"
  Else
    Range("C2").Value = "不及格”"
  End If

End Sub

---

Sub Case语句()

  '根据 B2 单元格的值判断

  Select Case Range("B2").Value
    Case Is >= 90
      Range("C2").Value = "优秀"
    Case Is >= 80
      Range("C2").Value = "良好"
    Case Is >= 60
      Range("C2").Value = "及格"
    Case Else
      Range("C2").Value = "不及格"
  End Select

End Sub