EXCEL VBA do loop的几个例子

2013-06-24 16:01 阅读 504 次 评论关闭

一、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后面的一条语句。

二、doloop的几个例子

①例子

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."

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA do loop的几个例子 | 猎微网
分类:Excel VBA 标签:, , , ,

评论已关闭!