VBA Brush Up 06：Repeating Actions in VBA-优快云博客

本文详细介绍了VBA中各种循环结构的应用，包括Do...While、Do...Until等循环语句的使用方法，并提供了实例代码展示如何实现无限循环及如何提前退出循环。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Technorati 标签: VBA, loop, for, while, do

来自：Julitta Korol，“Access.2003.Programming.by.Example.with.VBA.XML.and.ASP”，by Wordware Publishing, Inc. 2005, p91-p101

（1）Using the Do…While Loop

 
 Do While condition 
    statement1 
    statement2 
    statementN 
Loop

（2）continuously display an input box until the user enters the correct password

 
 Do While pWord <> "DADA" 
    pWord = InputBox("What is the Report password?") 
Loop

（3）Another Approach to the Do…While Loop

 
 Do 
    statement1 
    statement2 
    statementN 
Loop While condition

When you test the condition at the bottom of the loop, the statements inside the loop are executed at least once.

（4）Infinite Loops：

 
 Sub SayHello() 
    Do 
        MsgBox "Hello." 
    Loop 
End Sub

To stop the execution of the infinite loop, you must press Ctrl+Break. When Visual Basic displays the message box “Code execution has been interrupted,”click End to end the procedure.

（5）Do…Until repeats a block of code as long as something is false.

 
 Do Until condition 
    statement1 
    statement2 
    statementN 
Loop

（6）

 
 Do 
    statement1 
    statement2 
    statementN 
Loop Until condition

If you want the statements to execute at least once, no matter what the value of the condition, place the condition on the line with the Loop statement.

（7）

 
 For counter = start To end [Step increment] 
    statement1 
    statement2 
    statementN 
Next [counter]

（8）

 
 For Each element In Group 
    statement1 
    statement2 
    statementN 
Next [element]

Element is a variable to which all the elements of an array or collection will be assigned. This variable has to be of the Variant data type for an array and of the Object data type for a collection. Group is a name of a collection or an array.

（9）Exiting Loops Early: Exit For, Exit Do, Exit Sub, Exit Function.

（10）When writing nested loops, you must make sure that each inner loop is completely contained inside the outer loop. Also, each loop has to have a unique counter variable.