1-11.IF語(yǔ)句小結(jié)

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

If 條件判斷 then 條件成立結(jié)果

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

例子：

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

條件成立結(jié)果

End If

例子：

If A > 10 Then

A = A + 1

B = B + A

C = C + B

End If

4.塊形式的嵌套

If 條件判斷  Then
條件成立時(shí)的結(jié)果

ElseIf條件判斷 Then
條件成立時(shí)的結(jié)果

……

Else
條件不成立時(shí)的結(jié)果

End If

例子：

Sub 等級(jí)判斷()

    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 語(yǔ)法小結(jié)

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

Loop

while：當(dāng)這個(gè)條件為True時(shí)就   循環(huán)

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

或者可以使用下面這種語(yǔ)法：

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

Loop [{While | Until}表達(dá)式]

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

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

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

3.  Exit Do ,Do...Loop，If...Then通常結(jié)合使用.

4.  如果 Exit Do 使用在嵌套的 Do...Loop 語(yǔ)句中，則 Exit Do 會(huì)將控制權(quán)轉(zhuǎn)移到 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()'注意這是一個(gè)死循環(huán)，按F8運(yùn)行（中止死循環(huán)：ctrl+暫停鍵）

Do

b = b + 1

    Do

        a = a + 1

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

    Loop

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

Loop

End Sub

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

For Each...Next 語(yǔ)句

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

語(yǔ)法結(jié)構(gòu)：

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

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

Next

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

1-20B.For...NEXT小結(jié)與實(shí)例

For...Next 語(yǔ)句

以指定次數(shù)來(lái)重復(fù)執(zhí)行一組語(yǔ)句。

語(yǔ)法

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

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

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

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

例子：

sucai_excel01.rar

3.可以將一個(gè) For...Next 循環(huán)放置在另一個(gè) 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