1-11.IF語句小結

1.單行形式1（If...Then）

If 條件判斷 then 條件成立結果

 注意 在單行形式中，按照 If...Then 判斷的結果也可以執(zhí)行多條語句。所有語句必須在同一行上并且以冒號分開。

例子：

Sub test()

If A > 10 Then A = A + 1 : B = B + A : C = C + B

End Sub

2. 單行形式1（If 條件判斷 Then 條件成立 Else 條件不成立）

例子：

Sub test()

If 2 > 1 Then MsgBox "yes" Else MsgBox "no"

End Sub

3.塊形式（If...Then…End）

If 條件判斷 Then

條件成立結果

End If

例子：

If A > 10 Then

A = A + 1

B = B + A

C = C + B

End If

4.塊形式的嵌套

If 條件判斷  Then
條件成立時的結果

ElseIf條件判斷 Then
條件成立時的結果

……

Else
條件不成立時的結果

End If

例子：

Sub 等級判斷()

    If Sheet1.Range("b1") >= 90 Then

        Sheet1.Range("b2") = "優(yōu)"

    ElseIf Sheet1.Range("b1") >= 80 Then

        Sheet1.Range("b2") = "良"

    ElseIf Sheet1.Range("b1") >= 70 Then

        Sheet1.Range("b2") = "中"

    Else

        Sheet1.Range("b2") = "差"

    End If

End Sub

1-18B.DO...LOOP 語法小結

Do [{While | Until} 表達式]
[執(zhí)行的一條或多條語句]
[Exit Do]
[[執(zhí)行的一條或多條語句]

Loop

while：當這個條件為True時就   循環(huán)

until：直到這個條件為True時就 跳出循環(huán)

或者可以使用下面這種語法：

Do
[執(zhí)行的一條或多條語句]
[Exit Do]
[執(zhí)行的一條或多條語句]

Loop [{While | Until}表達式]

用Do…Loop循環(huán)要注意的幾點：

1.  While與Until是放在Do后面還是Loop后面，取決于是先判斷再循環(huán)，還是先循環(huán)再判斷。前者則在Do后面，后者則在Loop后面。

2.  可以在Do...Loop中的任何位置放置任意個數(shù)的 Exit Do 語句，隨時跳出 Do...Loop 循環(huán)。

3.  Exit Do ,Do...Loop，If...Then通常結合使用.

4.  如果 Exit Do 使用在嵌套的 Do...Loop 語句中，則 Exit Do 會將控制權轉移到 Exit Do 所在位置的外層循環(huán)。

Sub test()

Dim a%

Do

a   = a + 1

If a > 10 Then

MsgBox a & "終于大于10"

Exit Do

End If

Loop

End Sub

Sub Test2()'注意這是一個死循環(huán)，按F8運行（中止死循環(huán)：ctrl+暫停鍵）

Do

b = b + 1

    Do

        a = a + 1

        If a > 3 Then MsgBox "即將跳出內層循環(huán)": Exit Do

    Loop

MsgBox "即將進行外層循環(huán)"

Loop

End Sub

1-19.循環(huán)語句之FOR EACH NEXT

For Each...Next 語句

注釋：針對一個數(shù)組或集合中的每個元素，重復執(zhí)行一組語句。

語法結構：

For Each 遍歷集合或數(shù)組中所有元素的變量 In 對象集合或數(shù)組的名稱
[執(zhí)行的一條或多條語句]

[Exit For]
[執(zhí)行的一條或多條語句]

Next

注意：For Each在集合對象或數(shù)組元素循環(huán)完后，就退出來循環(huán)。

1-20B.For...NEXT小結與實例

For...Next 語句

以指定次數(shù)來重復執(zhí)行一組語句。

語法

For 計數(shù)變量 = 初始值 To 終止值 [Step 步長值]
[執(zhí)行的一條或多條語句]
[Exit For]
[執(zhí)行的一條或多條語句]

Next [計數(shù)變量]可以忽略不寫

1.循環(huán)中可以在任何位置放置任意個 Exit For 語句，隨時退出循環(huán)。

2.Exit For與 If...Then經(jīng)常一起使用，目的是：找到符合條件后，跳出循環(huán)，而不必再進行不必要的循環(huán)。

例子：

sucai_excel01.rar

3.可以將一個 For...Next 循環(huán)放置在另一個 For...Next 循環(huán)中，組成嵌套循環(huán)。

For I = 1 To 10

    For J = 1 To 10

        For K = 1 To 10

            ...

        Next K

    Next J

Next I