《Excel VBA编程Do … Loop循环.docx》由会员分享,可在线阅读,更多相关《Excel VBA编程Do … Loop循环.docx(2页珍藏版)》请在三一办公上搜索。
1、Excel VBA编程 Do Loop循环Excel VBA编程 Do Loop循环 DoLoop语句提供了一种结构化与适应性更强的方法来执行循环。它可以用于控制循环次数未知的循环结构。另外,当使用该语句去运行语句块时,条件为True或直到条件变成True时,重复此语句。当为False时,则立即跳出该语句。 语法: Do While | Until condition statements Exit Do statements Loop 或者, Do statements Exit Do statements Loop While | Until condition 其中,在该循环结构中,主要
2、包含以下两个参数,其功能如下: l l condition 可选参数。数值表达式或字符串表达式,其值为True或False。如果condition是Null,则condition会被当作False。 Statements 一条或多条命令,它们将被重复执行,直到condition为True。 接下来介绍DoLoop语句的用法。在下面的示例中,内层的DoLoop语句循环到第10次时将标志值设置为False,并用Exit Do语句强制退出内层循环。外层循环则在检查到标志值为False时,退出该循环,其代码如下: Dim Check, Counter Check = True: Counter = 0 设置变量初始值。 Do 外层循环。 Do While Counter 20 内层循环。 Counter = Counter + 1 计数器加一。 If Counter = 10 Then 如果条件成立。 Check = False 将标志值设成 False。 Exit Do 退出内层循环。 End If Loop Loop Until Check = False 退出外层循环。