Bucles de repetición:Do…Loop

Este bucle comprueba que se ejecute una serie de instrucciones hasta que se cumpla una condición determinada. Por ejemplo en el siguiente código forzamos que se escriban los números desde el 1 al 11, para ello usamos una variable contador que la inicializamos en 0 y a partir de aquí le sumamos 1 hasta que llege al 11.

Sub ejemplo_Do_Loop()
Dim i As Byte
i = 0
Do Until i = 11
i = i + 1
Cells(i, 1) = i
Loop

End Sub

Una variante de este bucle sería Do…while…loop

Sub ejemplo_Do_while_loop()
Dim i As Byte
i = 0
Do While i < 20
i = i + 1
Cells(i, 1) = i
Loop

End Sub

 

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: