Estructuras repetitivas: Do While ... Loop

Descargar el fichero: do_while_loop.xlsm

Cuando conocemos cuantas veces se ha de repetir el bucle usamos la estructura FOR ... NEXT, pero cuando desconocemos el número de veces que se ha de repetir el bucle debemos ir a una estructura del tipo DO WHILE ... LOOP, o alguna de sus variantes. Esto es lo que vamos a ver en esta ocasión.

Do While ... Loop

Hacer mientras se cumpla la condición.

La sintaxis de esta estructura es la siguiente:

Do While condición
....
....
Loop

Esta estructura permite hacer un bucle que se repetirá mientras se siga cumpliendo la condición. El flujo del programa se ejecuta de arriba hacia abajo. Al llegar a la linea superior del bucle se analiza la condición y si es verdadera se ejecutan las líneas interiores del bucle. Al llegar al Loop se devuelve el flujo del programa al inicio, y se vuelve a analizar la condición. Este proceso se repite mientras la condición sea verdadera, por tanto, en algún momento se debe producir algún cambio en las sentencias interiores del bucle que hagan que la condición se transforme en falsa para que no se siga repitiendo el bucle de forma indefinida. En el momento en el que la condición es falsa el bucle ya no se ejecuta y se devuelve el control del flujo del programa a las sentencias que se encuentres debajo del Loop.

Hemos diseñado un ejemplo donde generamos números aleatorios entre 1 y 100, y se los asignamos a la variable i.

i = Int(Rnd * 100) + 1

Con la variable s vamos a sumar los valores que va tomando i. Esto es lo que se denomina un ACUMULADOR, que va añadiendo valores a la variable s.

s = s + i

Esta expresión no se debe interpretar como lo haríamos en matemáticas. En programación el signo igual indica que lo que hay a la derecha se va a asignar a la variable que hay a la izquierda.

La interpretación correcta es que tomamos el antiguo valor de la variable s y le sumamos lo que vale i, y esa suma se asigna al nuevo valor que ahora toma la variable s.

Los valores que van tomando las variables i y s se escriben en las columnas 2 y 3, que son las columnas B y C.

Para que la fila vaya cambiando en el instrucción Cells(fila, columna) hemos creado una variable que precisamente se llama fila y que dentro del bucle, y al final de éste, incrementa uno.

fila=fila+1

De esta forma, la filas se van incrementando de uno en uno a medida que el bucle va haciendo sus ciclos. Esto es lo que en informática se llama CONTADOR.

La condición que hace que se repita el bucle es s<1000, lo que provoca que el bucle se repita MIENTRAS se cumpla que s, que es el acumulado de la variable i, sea inferior a 1000.

El resultado es que disponemos de dos columnas con números aleatorios. En la columna B los números aleatorios son enteros entre 1 y 100, y en la columna C se encuentran sus acumulados. El último número de la columna C será un número entre 1000 y 1099, que al ser mayor o igual a 1000, hará que la macro se detenga.

Necesitamos borrar el rango que hemos escrito en las columnas B y C, para que al generar una nueva serie ve valores se haga sobre una zona limpia. Esto se hace con la macro Borra.

Do ... Loop While

Do
....
....
Loop While condición

Esta estructura es similar a la anterior pero la condición se evalúa al final. La consecuencia inmediata de esto es que el flujo del programa entra en el bucle directamente la primera ver que se ejecuta. Al final se evalúa la condición y se decide si se repite el bucle, pero al menos se ha ejecutado una vez.

Do ... Loop Until

Hacer hasta que se cumpla la condición

Do
....
....
Loop Until condición

La condición se evalúa y el bucle se repite hasta que se cumpla la condición.

Hemos tenido que cambiar la condición para obtener resultados similares. Ahora la condición es s>=1000 ya que el bucle se repite hasta que se cumpla la condición.

También podríamos haber puesto el comando NOT, sin necesidad de tocar la condición. Quedaría así:

Loop Until Not (s < 1000)

Una variante poco ortodoxa

La siguiente macro (Bucles4) es una variante de la anterior. Decimos que es poco ortodoxa debido a que el Loop no lleva condición que haga que finalice, por lo que en teoría los ciclos del bucle seguirían indefinidamente. Para detener estos infinitos ciclos del bucle lo que hacemos es incluir dentro del bucle un condicional (IF) que haga que cuando se cumple cierta condición la macro finalize (END).

Sub Bucles4()
Dim i As Byte
Dim s As Integer
Dim fila As Byte
Borra
s = 0
fila = 1
Do
   i = Int(Rnd * 100) + 1
   s = s + i
   Cells(fila, 2) = i
   Cells(fila, 3) = s
   fila = fila + 1
   If s > 1000 Then End
Loop
End Sub

Hoja 2

En la Hoja2 disponemos de una tabla y deseamos desplazarnos por ella hasta que encontremos una celda vacía.

Sub Desplaza()
Do While Not IsEmpty(ActiveCell)
   ActiveCell.Offset(1, 0).Activate
Loop
End Sub

Nos situamos en una celda que contiene datos, por ejemplo, la celda B4 y ejecutamos la macro. al finalizar la ejecución el cursor aparecerá en la primera celda vacía que encuentre en la columna B.

La línea

ActiveCell.Offset(1, 0).Activate

lo que hace es desplaze el cursor una celda hacia abajo respecto a su posición actual. Como esta línea esta dentro de un bucle se ejecutará repetidamente hasta que el flujo del programa se salga de bucle.

El bucle se repite mientras la celda activa no sea una celda vacía. Esto supone, que el cursor se vaya desplazando por la columna donde se dejara inicialmente y que no pare de bajar hasta que se encuentre con una celda vacía.

Este bucle es muy útil para encontrar en una base de datos el final de la tabla. Para ello, debemos situar el cursor en la columna donde se encuentre el campo llave o campo clave. Esto ha de ser así ya que sabemos que al tratarse de una variable sin espacios vacíos el cursor bajará hasta el final.

Práctica (Hoja 3)

Le invitamos a crear un código que se desplace hacia arriba y que se sitúe en una tabla en la cabecera de la columna donde se entrontrara inicialmente el cursor.

En la Hoja3, sitúe el cursor en la celda B24. El objetivo es que la macro desplace el cursor de forma ascendente hasta la celda que hace el papel de cabecera de esta columna, en nuestro caso, la celda B3.

Hoja 4

Convertir en mayúsculas los valores de un rango. Esto se hace con UCase y queremos pasar a minúsculas se usaría LCase. Veamos el código.

Sub Ciudades()
Dim R As Range
Set R = ActiveCell.CurrentRegion
Dim Inicial As Long
Dim Final As Long
Inicial = 1
Final = R.Count
Dim i As Long                      'Índice
Dim Ciudad As String               'Texto de la celda
i = Inicial
Do
  Ciudad = R.Cells(i).Value        'Toma la ciudad
  R.Cells(i).Value = UCase(Ciudad) 'Escribe la ciudad en mayúsculas
  i = i + 1                        'Contador
Loop While i <= Final
End Sub