VBA - While Wend 循环

在 While…Wend 循环中，如果条件为 True，则执行所有语句，直到遇到 Wend 关键字。

如果条件为 false，则退出循环，并且控制跳转到 Wend 关键字之后的下一条语句。

语法

以下是 VBA 中 While..Wend 循环的语法。

While condition(s)
   [statements 1]
   [statements 2]
   ...
   [statements n]
Wend

流程图

示例

Private Sub Constant_demo_Click()
   Dim Counter :  Counter = 10   
   
   While Counter < 15     ' 测试计数器的值。
      Counter = Counter + 1   ' 增量计数器。
      msgbox "The Current Value of the Counter is : " & Counter
   Wend   ' 如果 Counter Value 变为 15，则 While 循环退出。
End Sub   

执行上述代码时，会在消息框中打印以下内容。

The Current Value of the Counter is : 11 

The Current Value of the Counter is : 12 

The Current Value of the Counter is : 13 

The Current Value of the Counter is : 14 

The Current Value of the Counter is : 15

❮ vba_loops.html