For循环与条件语句

For循环

语法：

for 循环变量 = 初值 to 终值
循环体
Next 循环变量

Sub ...
    For i = n to m `
        ...
    Next i
End Sub

条件语句

IF条件语句

If 判断条件 Then
结果1
Else
结果2
End If

例：

Sub IF条件语句()

    If Range("H2").Value >= 90 Then
        Range("I2").Value = "优秀"
    ElseIf Range("H2").Value >= 70 Then
        Range("I2").Value = "良好"
    ElseIf Range("H2").Value >= 60 Then
        Range("I2").Value = "及格"
    Else
        Range("I2").Value = "不及格"
    End If

End Sub

Select Case 语句

语法：

Select Case 判断对象
Case is >= 条件1
判断结果1
Case is >= 条件2
判断结果2
Case Else
判断结果3
End Select

例：

Sub selectCase条件语句()

    Select Case Range("H2").Value
        Case Is >= 90
            Range("I2").Value = "优秀"
        Case Is >= 70
            Range("I2").Value = "良好"
        Case Is >= 60
            Range("I2").Value = "及格"
        Case Else
            Range("I2").Value = "不及格"
    End Select

End Sub

条件循环

For Each 语句

For Each 变量 in 集合名称
执行语句
Next 变量

例：

    Sub forEach循环()
    
        For Each i in Range(" A1: D5 ")
            i.Value = 100
        Next
        
    End Sub

Do While 语句

Do While 循环条件
执行语句
Loop

例：

Sub doWhile循环()
    
    i = 1
    
    Do While i <= 5
        Worksheets.Add
        i = i + 1
    Loop
    
End Sub

Sub doWhile循环进阶()
    
    i = 1
    
    Do 
        If i > 5 Then Exit Do
        Worksheets.Add
        i = i + 1
    Loop
    
End Sub

注：

• 循环条件放在do while语句的开头和结尾，不同的位置效果不一定相同。

• for each..next不用另外设置循环条件，但是for each...next语句只能在一个集合的所有对象里进行循环，每个对象只循环一次。