Excel VBA编程Do … Loop循环.docx

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 其中，在该循环结构中，主要包含以下两个参数，其功能如下： 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 ' 退出外层循环。