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

En este artículo, vamos a ver el bucle Do Until en Excel VBA usando un ejemplo adecuado.

Implementación:

En las pestañas de Microsoft Excel, seleccione la pestaña Desarrollador . Inicialmente, es posible que la pestaña Desarrollador no esté disponible. 

La pestaña Desarrollador se puede habilitar fácilmente mediante un proceso de dos pasos:

• Haga clic derecho en cualquiera de las pestañas existentes en la parte superior de la ventana de Excel.
• Ahora seleccione Personalizar la cinta en el menú desplegable.

• En el cuadro de opciones de Excel , marque la casilla Desarrollador para habilitarlo y haga clic en Aceptar.

• Ahora, la pestaña Desarrollador está visible.

Ahora haga clic en la opción Visual Basic en la pestaña Desarrollador y cree un nuevo módulo para escribir el programa usando la instrucción Seleccionar caso.

Developer  -> Visual Basic -> Tools -> Macros

• Ahora crea una macro y dale un nombre adecuado.

• Esto abrirá la ventana del Editor donde puede escribir el código.

Hacer hasta bucle

En el bucle Do Until se comprueba la condición. Las declaraciones dentro del bucle se ejecutan cuando la condición se vuelve FALSA. Cuando la condición se vuelve VERDADERA, el ciclo termina. En el caso de Do Until podemos escribir la condición ya sea al principio o al final. Hay dos sintaxis posibles en el caso de Do Until Loop. La palabra clave Do se usa para realizar las tareas hasta que se cumplan ciertos criterios. 

La sintaxis es:

Do Until condition/expression
    Statement 1
    Statement 2
    Statement 3
    ...
    Statement n
Loop

Una sintaxis alternativa es:

Do
    Statement 1
    Statement 2
    Statement 3
    ...
    Statement n
Loop Until Condition/expression

Diagrama de flujo :

Ejemplo: Imprima la edad de todos los empleados de una organización cuya edad se encuentre entre treinta y cuarenta años.

Código:

Sub Do_Until_Age_Emp()
'Initialize and declare the age of the employee
Dim Age As Integer: Age = 30
'Condition to print the age of employees between 30 to 40 years
Do Until Age > 38
    Age = Age + 1
    MsgBox ("Age:" & Age)
Loop
End Sub

En el código anterior, la condición es Hacer hasta la edad > 38. Ejecutará la edad de los empleados de 31 a 39 años porque cuando la edad llega a los 39, la condición se vuelve VERDADERA y el ciclo termina. En el cuadro de mensaje de Excel obtenemos las edades de los empleados entre 30 a 40 años.

Producción :

Edad : 31

Edad : 32

Edad : 33

Edad : 34

Edad : 35

Edad : 36

Edad : 37

Edad : 38

Edad : 39

Del mismo modo, el código anterior también se puede escribir como:

Sub Do_Until_Age_Emp()
'Initialize and declare the age of the employee
Dim Age As Integer: Age = 30
'Start of Do Until Loop
Do
    Age = Age + 1
    MsgBox ("Age:" & Age)
Loop Until Age > 38        'Condition to print the age of employees between 30 to 40 years
End Sub