¿Cómo usar Do While Loop en Excel VBA?

Un bucle Do…While se usa cuando queremos repetir cierto conjunto de declaraciones siempre que la condición sea verdadera. La condición se puede comprobar al principio o al final del bucle.

Diagrama de flujo:

Usos del bucle Do-While:

El ciclo Do While se usa de dos maneras:

• Ciclo Do…while que comprueba la condición al INICIO del ciclo.
• Bucle Do…while que comprueba la condición al   FINAL del bucle.

Sintaxis 1:

Do While condition
  [statements]
  [Exit Do]
  [statements]
Loop  

Sintaxis 2: 

Do While 
 [statements]
[Exit Do]
[statements]
Loop  condition

Implementando un bucle Do While:

Siga los pasos a continuación para implementar un ciclo Do-While:

Paso 1: definir una macro

Private Sub Demo_Loop()
End Sub

Paso 2: Definir variables

j=2
i=1

Paso 3: Escribe Do While Loop. Puedes escribir condición al principio o al final

Do While i < 5

Paso 4: escribir declaraciones para ejecutar en bucle

msgbox "Table of 2 is : " & (j*i)
     i=i+1

Paso 5: Fin del bucle.

Ahora echemos un vistazo a algunos de los ejemplos.

Ejemplo 1: bucle Do…while que comprueba la condición al INICIO del bucle. El siguiente ejemplo usa el ciclo Do…while para verificar la condición al inicio del ciclo. Las declaraciones dentro del bucle se ejecutan, solo si la condición es verdadera. Imprimiremos Tabla de 2 usando el ciclo Do…while;

Private Sub Demo_Loop()
        j=2
       i=1
      Do While i < 5
     msgbox "Table of 2 is : " & (j*i)
      i=i+1
      Loop
End Sub

Producción:

Ejemplo 2: bucle Do…while que comprueba la condición al FINAL del bucle. El siguiente ejemplo verifica la condición al final del ciclo. La principal diferencia entre estas dos sintaxis se explica en el siguiente ejemplo.

Private Sub Demo_Loop()
      i = 10
     Do
     i = i + 1
     MsgBox "The value of i is : " & i
  Loop While i < 3 'Condition is false.Hence loop is executed once.
End Sub

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

Producción: