Nos queda por comentar una serie de estructuras de control muy parecidas entre ellas, por lo que lo haremos de foma conjunta. Muy pronto comprenderéis el motivo. Las estructuras son:
While – Wend
Do – While – Loop
Do – Until – Loop
Todas ellas son estructuras pensadas para realizar iteraciones hasta que se cumpla una condición; esa es su principal característica, la condición será cualquiera:
- encontrar una celda vacia (IsEmpty(ActiveCell)
- que se cumpla una condición (ActiveCell.value = «ENTORNO»)
- o cualquier otra
Los bucles while, correran mientras se cumplan la condicion, mientras que los until lo haran hasta que se cumpla la condición.
Con esta nuevas herramientas, vamos a ver como conseguiríamos encontrar un dato dentro de una hoja; aquí está la macro:
Dim x As String
Dim found As Boolean
Range("A2").Select ' indica la primera linea
x = "test" 'indica la variable a buscar
found = False 'inicializa la respuesta a false
' buscara hasta que se encuentre una celda en blanco
Do Until IsEmpty(ActiveCell) Or found
' Comprueba si la celda contiene el valor buscado
If ActiveCell.Value = x Then
found = True
Else 'si no encontrado, avanza celda y continua
ActiveCell.Offset(1, 0).Select
End If
Loop
' Check for found.
If found Then
MsgBox "El valor se encuentra en " & ActiveCell.Address
Else
MsgBox "El valor no existe"
End If
Como podéis ver, el bucle se inicia con la instrucción
Do Until IsEmpty(ActiveCell) Or found
o sea que realizará todas las instrucciones que hay hasta el loop mientras no se cumpla una de las dos condiciones que le hemos puesto.
Cuando el bucle termina, a continuación de la instrucción Loop, hacemos una comparación para averiguar si hemos salido porque hemos encontrado el texto, o porque hemos llegado al final de la lista
Esta pequeña macro, la podemos mejorar, y hacer que nos sirva para utilizarla en más sitios; para ello, empezaremos por hablar de lo que es una función. Hasta ahora, para escribir una macro, hemos estado utilizando la palabra Sub, que corresponde a Subrutina. Una subrutina,puede ser llamada desde cualquier sitio, pero no puede devolver parámetros a la orden que la llama, por el contrario, una función puede devolver un valor a quien la utiliza, además, en las macros no hemos estado utilizando parámetros, pero para ésta función, los necesitamos. Los parámetros son datos que se pasan a la función en la instrucción que los llama, vamos a ver como queda nuestra subrutina convertida en función.
Function buscar(x As String) As Boolean
Dim found As Boolean
found = False 'inicializa la respuesta a false
' buscara hasta que se encuentre una celda en blanco
Do Until IsEmpty(ActiveCell) Or found
' Comprueba si la celda contiene el valor buscado
If ActiveCell.Value = x Then
found = True
Else 'si no encontrado, avanza celda y continua
ActiveCell.Offset(1, 0).Select
End If
Loop
buscar = found
End Function
Veamos las diferencias:
En la primera linea escribimos
Function buscar(x As String) As Boolean
Declaramos una función en ves de una Subrutina, que se llama buscar, y que espera un parámetro de tipo string que dentro de la función tendrá como nombre x. Por ultimo, le indicamos que devolverá un valor Booleano (Verdadero/Falso)
Retiramos de dentro de la función las linea
Dim x As String
porque la definición la estamos haciendo al definir el parámetro buscar(x As String).
También retiramos las lineas que nos seleccionaban el área de trabajo, y el valor de x; la primera, porque esperamos que la selección la hagan fuera, y la segunda, porque el valor de x nos lo pasaran por parámetro.
Por último, como nuestra función debe retornar Verdadero o Falso, retiramos las lineas que generan los mensajes, y nos limitamos a igualar el nombre de la función a la variable que contiene el resultado de la búsqueda:
buscar = found
Esto hará que la función devuelva el resultado encontrado.
Vamos a ver ahora como utilizaríamos esta función:
Sub trabajo()
Range("A1:A20").Select
If buscar("test") Then
MsgBox "El valor se encuentra en " & ActiveCell.Address
Else
MsgBox "El valor no existe"
End If
End Sub
Esta vez hemos definido una macro (trabajo) que lo que hace es seleccionar un rango, y llamar a la función buscar con la string a buscar (test).
La llamada la hace dentro de la condición de un if porque la función devuelve un valor booleano y el if lo utilizará para lanzar el mensaje de verdadero o falso.
