VBA - Mientras se realizan bucles

en un While…Wend bucle, si la condición es Verdadera, todas las declaraciones se ejecutan hasta que Wend se encuentra la palabra clave.

Si la condición es falsa, se sale del bucle y el control salta a la siguiente declaración después de la Wend palabra clave.

Sintaxis

A continuación se muestra la sintaxis de un While..Wend bucle en VBA.

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

Diagrama de flujo

Ejemplo

Private Sub Constant_demo_Click()
   Dim Counter :  Counter = 10   
   
   While Counter < 15     ' Test value of Counter.
      Counter = Counter + 1   ' Increment Counter.
      msgbox "The Current Value of the Counter is : " & Counter
   Wend   ' While loop exits if Counter Value becomes 15.
End Sub

Cuando se ejecuta el código anterior, imprime lo siguiente en un cuadro de mensaje.

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