vba do loop的幾個例子

 　　一、Do…Loop語句的語法

　　Do[While I Until<邏輯表達式>]

　　<循環體>

　　Loop[While I Until<邏輯表達式>]

　　當邏輯表達式的值為True時，使用While關鍵字執行循環體，直到邏輯表達式的值為False時跳出循環體，即執行Do While-Loop循環語句。

　　當邏輯表達式的值為False時，使用Until關鍵字執行循環體，直到邏輯表達式的值為True時跳出循環體，即執行Do Until-Loop循環語句。

　　在大多數情況下Do while.Loop循環語句與Do Until—Loop循環語句可以互換使用，只需將循環條件取反即可。但對於需要先判斷再執行的一些操作，最好使用Do While-Loop循環語句。

　　另外，使用Do-Loop循環語句時，需要在循環體內使用“Exit Do”語句跳出Do-Loop循環，進而執行Loop後面的一條語句。

　　二、do…loop的幾個例子

　　①例子

　　Dim myCnt As Long

　　myCnt = 1

　　Do While myCnt <= 5

　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

　　myCnt = myCnt + 1

　　Loop

　　當myCnt小於等於5時循環，否則就退出循環。

　　②例子

　　Dim myCnt As Long

　　myCnt = 1

　　Do

　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

　　myCnt = myCnt + 1

　　Loop While myCnt<=5

　　③例子

　　Dim myCnt As Long

　　myCnt = 1

　　Do

　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value

　　myCnt = myCnt + 1

　　If myCnt>5 Then Exit Do

　　Loop

　　④例子

　　counter = 0

　　myNum = 9

　　Do Until myNum = 10

　　myNum = myNum - 1

　　counter = counter + 1

　　If myNum < 10 Then Exit Do

　　Loop

　　MsgBox "The loop made " & counter & " repetitions."