Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Macros
Macros
Una macro son un conjunto de instrucciones que sirven para automatizar procesos. Refiriéndonos a excel,
supongamos que realizamos frecuentemente la acción de seleccionar un rango para aplicarle negrita,
cambio de fuente y centrado. En lugar de hacer estas acciones manualmente, se puede elaborar una macro
e invocarla para que ejecute los tres procesos automáticamente.
A la hora de trabajar con macros en excel, deben tenerse claros ciertos conceptos de lo que se llama
programación orientada a objetos (OOP). No nos extenderemos demasiado sobre la OOP, pero si
definiremos a continuación los conceptos de Objeto, Propiedades y Métodos.
Objeto.
Cuando en el mundo real nos referimos a objeto significa que hablamos de algo más o menos abstracto
que puede ser cualquier cosa. Si decidimos concretar un poco más podemos referirnos a objetos coche,
objetos silla, objetos casa, etc. En OOP, la generalización (o definición) de un objeto se llama Clase, así
la clase coche seria como la representante de todos los coches del mundo, mientras que un objeto coche
seria un coche en concreto. De momento, no definiremos ni estudiaremos las clases sino que nos
concentraremos en los objetos, tenga en cuenta pero que cualquier objeto está definido por una clase.
Cuando decimos que la clase coche representa a todos los coches del mundo significa que define como es
un coche, cualquier coche. Dicho de otra forma y para aproximarnos a la definición informática, la clase
coche define algo que tiene cuatro ruedas, un motor, un chasis,... entonces, cualquier objeto real de cuatro
ruedas, un motor, un chasis,... es un objeto de la clase coche.
Propiedades.
Cualquier objeto tiene características o propiedades como por ejemplo el color, la forma, peso, medidas,
etc. Estas propiedades se definen en la clase y luego se particularizan en cada objeto. Así, en la clase
coche se podrían definir las propiedades Color, Ancho y Largo , luego al definir un objeto concreto como
coche ya se particularizarían estas propiedades a, por ejemplo, Color = Rojo, Ancho = 2 metros y Largo =
3,5 metros.
Métodos.
La mayoría de objetos tienen comportamientos o realizan acciones, por ejemplo, una acción evidente de
un objeto coche es el de moverse o lo que es lo mismo, trasladarse de un punto inicial a un punto final.
Cualquier proceso que implica una acción o pauta de comportamiento por parte de un objeto se define en
su clase para que luego pueda manifestarse en cualquiera de sus objetos. Así, en la clase coche se
definirían en el método mover todos los procesos necesarios para llevarlo a cabo (los procesos para
desplazar de un punto inicial a un punto final), luego cada objeto de la clase coche simplemente tendría
que invocar este método para trasladarse de un punto inicial a un punto final, cualesquiera que fueran esos
puntos.
Repasemos a continuación todos estos conceptos pero ahora desde el punto de vista de algunos de los
objetos que nos encontraremos en Excel como WorkSheet (Objeto hoja de cálculo) o Range (Objeto
casilla o rango de casillas).
Un objeto Range está definido por una clase donde se definen sus propiedades, recordemos que una
propiedad es una característica, modificable o no, de un objeto. Entre las propiedades de un objeto Range
están Value , que contiene el valor de la casilla , Column y Row que contienen respectivamente la fila y
la columna de la casilla, Font que contiene la fuente de los caracteres que muestra la casilla, etc.
Página 1
Range , como objeto, también tiene métodos, recordemos que los métodos sirven llevar a cabo una acción
sobre un objeto. Por ejemplo el método Activate, hace activa una celda determinada, Clear, borra el
contenido de una celda o rango de celdas, Copy, copia el contenido de la celda o rango de celdas en el
portapapeles,...
Conjuntos.
Una conjunto es una colección de objetos del mismo tipo, para los que conozcan algún lenguaje de
programación es un array de objetos. Por ejemplo, dentro de un libro de trabajo puede existir más de una
hoja (WorkSheet), todas las hojas de un libro de trabajo forman un conjunto, el conjunto WorkSheets.
Cada elemento individual de un conjunto se referencia por un índice, de esta forma, la primera, segunda y
tercera hoja de un libro de trabajo, se referenciarán por WorkSheets(1), WorkSheets(2) y WorkSheets(3).
Objetos de Objetos.
Es muy habitual que una propiedad de un objeto sea otro objeto. Siguiendo con el coche, una de las
propiedades del coche es el motor, y el motor es un objeto con propiedades como cubicaje, caballos,
número de válvulas, etc. y métodos, como aumentar_revoluciones, coger_combustible, mover_pistones,
etc.
En Excel, el objeto WorkSheets tiene la propiedad Range que es un objeto, Range tiene la propiedad
Font que es también un objeto y Font tiene la propiedad Bold (negrita). Tenga esto muy presente ya que
utilizaremos frecuentemente Propiedades de un objeto que serán también Objetos. Dicho de otra forma,
hay propiedades que devuelven objetos, por ejemplo, la propiedad Range de un objeto WorkSheet
devuelve un objeto de tipo Range .
Hay una sutil diferencia entre las definiciones del título. Programación orientada a Objetos, significa que
el programador trabaja con objetos fabricados por él mismo, es decir, el programador es quien
implementa las clases para luego crear objetos a partir de ellas. Lo que haremos nosotros, por el
momento, será utilizar objetos ya definidos por la aplicación Excel (WorkSheets, Range,...) sin
implementar ni nguno de nuevo, por lo que en nuestro caso es más correcto hablar de programación
basada en objetos. Observe que esta es una de las grandes ventajas de la OOP, utilizar objetos definidos
por alguien sin tener que conocer nada sobre su implementación, sólo debemos conocer sus propiedades y
métodos y utilizarlos de forma correcta.
Bueno, después de esta extensa pero necesaria introducción pasemos ya a hacer alguna cosa en Excel. No
es necesario que se aprenda lo anterior al pié de la letra y tampoco es necesario que lo comprenda al cien
por cien, sólo téngalo presente para las definiciones que vienen a continuación y verá como va asimilando
los conceptos de Objeto, propiedades, métodos, etc.
Página 2
Editor de Visual Basic.
El editor de visual básic es la aplicación que utilizaremos para construir las macros que interactuaran
junto con los libros de trabajo. A continuación prepararemos un archivo en el que escribiremos las
primeras instrucciones en Visual basic.
1. Active opción Herramientas/ Macro/ Editor de Visual Básic. Se abrirá la ventana siguiente.
Maximize la ventana para trabajar más cómodamente y procure tener activadas la ventana Explorador de
proyectos y la ventana Propiedades (Ver/ Explorador de proyectos y Ver/ Ventana propiedades).
Un módulo sirve para agrupar procedimientos y funciones. El procedimiento y la función son entidades
de programación que sirven para agrupar instrucciones de código que realizan una acción concreta.
Para insertar un módulo active opción del menú Insertar/ Módulo. Se activará una nueva ventana, si
aparece demasiado pequeña, maximícela.
Página 3
Insertar un procedimiento.
Ya hemos dicho que un procedimiento es un bloque de instrucciones de código que sirven para llevar a
cabo alguna tarea específica. Un procedimiento empieza siempre con la instrucción
Sub Nombre_Procedimiento
End Sub.
Ejemplo 1
Sub Primero
End Sub
Observe el código.
Range("A1").Value="Hola"
En esta línea estamos indicando que trabajamos con un objeto Range. Para indicarle que nos referimos a
la casilla A1, encerramos entre paréntesis esta referencia (más adelante verá otra forma de referirnos a las
casillas). De este objeto, indicamos que queremos establecer un nuevo valor para la propiedad Value,
observe que para separar el objeto de su propiedad utilizamos la notación punto.
Recuerde que el conjunto Range es un objeto que pende del objeto WorkSheets, así por ejemplo el
siguiente código haría lo mismo que el anterior.
Bueno, de hecho no hace lo mismo, en la primera opción, el texto "Hola" se pone dentro de la casilla A1
de la hoja activa, mientras que en el segundo es en la casilla A1 de primera hoja ( del conjunto de hojas).
La segunda notación es más larga, pero también más recomendable ya que se especifican todos los
objetos. En muchas ocasiones se pueden omitir algunos objetos precedentes, no le aconsejamos hacerlo,
sus programas perderán claridad y concisión.
Si desea hacer referencia a la hoja activa puede utilizar ActiveSheet, así, el primer ejemplo lo dejaremos
de la manera siguiente.
Sub Primero
ActiveSheet.Range("A1").Value = "Hola"
End Sub
Página 4
Si desea poner "Hola" (o cualquier valor) en la casilla activa, puede utilizar la propiedad (objeto)
Activecell de WorkSheets. Así para poner "Hola" en la casilla activa de la hoja activa seria,
Sub Primero
ActiveSheet.ActiveCell.Value = "Hola"
End Sub
Para terminar con este primer ejemplo. WorkSheets están dentro del Objeto WorkBooks (libros de
trabajo) y WorkBooks están dentro de Application. Application es el objeto superior, es el que
representa la aplicación Excel. Así, el primer ejemplo, siguiendo toda la jerarquía de objetos quedaría de
la forma siguiente.
Sub Primero
Application.WorkBooks(1).WorkSheets(1).Range("A1").Value = "Hola"
End Sub
Insistiendo con la nomenclatura, Application casi nunca es necesario especificarlo, piense que todos los
objetos penden de este, WorkBooks será necesario implementarlo si en las macros se trabaja con
diferentes libros de trabajo (diferentes archivos), a partir de WorkSheets, es aconsejable incluirlo en el
código, sobre todo si se quiere trabajar con diferentes hojas, verá, sin embargo, que en muchas ocasiones
no se aplica.
2. Active opción de la barra de menús Ejecutar/ Ejecutar Sub Userform. También puede hacer clic
sobre el botón o pulsar la tecla F5.
1. Active opción de la barra de menús Herramientas/ Macro/ Macros. Se despliega una ventana que
muestra una lista donde estás todas las macros incluidas en el libro de trabajo.
Página 5
Ejemplo 2
En este segundo ejemplo simplemente ampliaremos la funcionalidad de la macro del ejemplo 1. Además
de escribir "Hola" en la casilla A1 de la celda A1, la pondremos en negrita y le daremos color al texto.
Para ello utilizaremos las propiedades Bold y Color del objeto Font.
Sub Segundo
ActiveSheet.Range("A1").Value = "Hola"
ActiveSheet.Range("A1").Font.Bold = True
ActiveSheet.Range("A1").Font.Color = RGB(255,0,0)
End Sub
True.
True, que traducido es verdadero, simplemente indica que la propiedad Bold está activada. Si se deseara
desactivar, bastaría con igualarla al valor False.
La función RGB.
Observe que para establecer el color de la propiedad se utiliza la función RGB(Red, Green, Blue), los
tres argumentos para esta función son valores del 0 a 255 que corresponden a la intensidad de los colores
Rojo, Verde y Azul respectivamente.
Sólo tiene que cambiar a la forma Casilla_Inicial:Casilla_Final. Por ejemplo aplicar el último ejemplo
al rango de casillas que va de la A1 a la A8, ponga.
Sub Segundo
ActiveSheet.Range("A1:A8").Value = "Hola"
ActiveSheet.Range("A1:A8").Font.Bold = True
ActiveSheet.Range("A1:A8").Font.Color = RGB(255,0,0)
End Sub
Página 6
Variables.
A continuación vamos a repetir el programa Ejemplo1, pero en lugar de poner "Hola" en la casilla A1 de
la hoja activa, dejaremos que el usuario entre un texto desde teclado y a continuación guardaremos ese
valor en esa casilla. Observe que el valor que entre del usuario debe guardarse en algún lugar para poder
ponerlo después en la casilla A1; pues bien, ese valor se guardará en una variable. Una variable es
simplemente un trozo de memoria que la función o procedimineto se reserva para guardar datos, la forma
general de declarar una variable es
Siendo variable el nombre que se asigna a la misma y Tipo el tipo de datos que se guardarán (números,
texto, fecha, boleanos,...). En nuestro ejemplo, declararemos la variable de tipo String (tipo texto), y lo
haremos de la forma siguiente.
Con esto estamos indicando que se reserve un trozo de memoria (el que sea) , que se llama Texto y que el
tipo de datos que se guardarán ahí serán caracteres.
La Función InputBox.
Esta función muestra una ventana para que el usuario pueda teclear datos. Cuando se pulsa sobre
Aceptar, los datos entrados pasan a la variable a la que se ha igualado la función. Vea la línea siguiente.
Si en la ventana que muestra InputBox pulsa sobre el botón Aceptar, los datos tecleados se guardarán el la
variable Texto.
Sintaxis de InputBox.
InputBox(Mensaje, Título, Valor por defecto, Posición horizontal, Posición Vertical, Archivo
ayuda, Número de contexto para la ayuda).
Mensaje : Es el mensaje que se muestra en la ventana. Si desea poner más de una línea ponga
Chr(13) para cada nueva línea, vea el ejemplo siguiente.
Valor por defecto: Es el valor que mostrará por defecto el cuadro donde el usuario entra el valor.
Parámetro opcional.
Archivo Ayuda: Es el archivo que contiene la ayuda para el cuadro. Parámetro opcional.
Número de contexto para la ayuda: Número asignado que corresponde al identificador del
archivo de ayuda, sirve para localizar el texto que se debe mostrar. Si se especifica este
parámetro, debe especificarse obligatoriamente el parámetro Archivo Ayuda.
Página 7
Ejemplo 3
Sub Entrar_Valor
End Sub
Sub Entrar_Valor
Ejemplo 4
Repetiremos el ejemplo 3, pero en lugar de entrar los valores sobre la casilla A1, haremos que el usuario
pueda elegir en que casilla quiere entrar los dat os, es decir, se le preguntará al usuario mediante un
segundo Inputbox sobre que casilla quiere entrar el valor del primer Inputbox. Serán necesaria dos
variables, una para guardar la casilla que escoja el usuario y otra para guardar el valor.
Option Explicit
Sub Entrar_Valor
ActiveSheet.Range(Casilla).Value = Texto
End Sub
Página 8
La sentencia Option Explicit.
En visual basic no es necesario declarar las variables, por ejemplo, en el programa anterior se hubiera
podido prescindir de las líneas
A pesar de ello, le recomendamos que siempre declare las variables que va a utilizar, de esta forma sabrá
cuales utiliza el procedimiento y que tipo de datos guarda cada una, piense que a medida que vaya
aprendiendo, creará procedimientos cada vez más complicados y que requerirán el uso de más variables,
si no declara las variables al principio del procedimiento ocurrirán dos cosas. Primero, las variables no
declaradas son asumidas como tipo Variant (este es un tipo de datos que puede almacenar cualquier
valor, número, fechas, texto, etc. pero tenga en cuenta que ocupa 20 Bytes y para guardar una referencia a
una casilla, la edad de alguien, etc. no son necesarios tantos bytes); segundo, reducirá considerablemente
la legibilidad de sus procedimient os ya que las variables las irá colocando a medida que las necesite, esto,
a la larga complicará la corrección o modificación del procedimiento.
Bueno, pues toda la explicación anterior es para que declare todas las variables que va a utilizar. La
sentencia Option Explicit al principio del módulo fuerza a que se declaren todas las variables. Si al
ejecutar el programa, se encuentra alguna variable sin declarar se producirá un error y no se podrá
ejecutar el programa hasta que se declare.
Si todavía no se ha convencido sobre la conveniencia de declarar las variables y utilizar Option Explicit,
pruebe el procedimiento siguiente, cópielo tal cual (Texto y Testo están puestos adrede simulando que
nos hemos equivocado al teclear).
Sub Entrar_Valor
Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos")
ActiveSheet.Range("A1").Value = Testo
End Sub
Observe que el programa no hace lo que se pretendía que hiciera. Efectivamente, Texto y Testo son dos
variables diferentes, como no se ha declarado ninguna ni se ha utilizado Option Explicit Visual Basic no
da ningún tipo de error y ejecuta el programa. Pruebe el siguiente módulo e intente ejecutarlo.
Option Explicit
Sub Entrar_Valor
Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos")
ActiveSheet.Range("A1").Value = Testo
End Sub
Observe que el programa no se ejecuta, al poner Option Explicit, forzamos a que se declaren todas las
variables. Visual Basic detecta que la variable Testo no ha sido declarada y así lo indica mostrando Error,
entonces es cuando es más fácil darnos cuenta del error que hemos cometido al teclear y cambiamos
Testo por Texto. Ahora imagine que el error se produce en un programa de cientos de líneas que necesita
otras tantas variables.
Página 9
Tipos de datos en Visual Basic para Excel. (Tabla copiada de la ayuda en línea de Visual Basic
para Excel).
Variant(con 22 bytes + longitud de El mismo intervalo que para un tipo String de longitud
caracteres) cadena variable
Definido por el Número requerido por El intervalo de cada elemento es el mismo que el
usuario (utilizando los elementos intervalo de su tipo de datos.
Type)
Copie el siguiente Ejemplo. Simplemente se piden dos números, se suman y se guardan el la casilla A1 de
la hoja activa.
Ejemplo 5
Option Explicit
Sub Sumar()
End Sub
Página 10
Ejecute el procedimiento y ponga respectivamente los valores 25 y 25. Observe que todo ha ido
correctamente y en la casilla A1 de la hoja activa aparece un 50.
Ahora, vuelva a ejecutar el programa y cuando se le pide el primer valor teclee "Hola". Observe que el
programa se detiene indicando un error en el tipo de datos. Efectivamente, observe que la función
InputBox devuelve siempre datos tipo String, en el primer ejemplo no ha habido ningún problema, al
entrar caracteres numéricos 1, estos pueden asignarse a variables tipo Integer porque Visual Basic hace
automáticamente la conversión, pero al entrar texto e intentarlo asignar a una variable Integer Visual
Basic muestra un error indicando que la variable no es adecuada para los datos que se desean guardar.
Para solucionar estos problemas se deben utilizar funciones de conversión de tipo. Estas funciones, como
su nombre indica, convierten datos de un tipo a otro, de String a Integer, de Integer a String, de Date a
String ,... Así el procedimiento anterior quedaría.
Option Explicit
Sub Sumar()
End Sub
La función Val(Dato String), convierte una cadena de caracteres a valor numérico. Si la cadena a
convertir contiene algún carácter no numérico devuelve 0. Así, si al pedir un valor se teclea "Hola", la
función Val, devolverá un cero.
1
Tenga en cuenta que para los ordenadores no es lo mismo el número 1 que el carácter "1". En los
lenguajes de programación actuales la conversión de carácter "1" a número 1 se hace automáticamente en
muchos casos, esto es bueno y es malo. Es bueno porque nos ahorra tener que hacer las conversiones y es
malo porque es más difícil controlar ciertos casos. Siga con los ejemplos y entenderá de lo que estamos
hablando. Sólo para su información, el ordenador guarda el número 1 de la siguiente manera 00000001,
mientras que el carácter "1" se guarda como 00110000 (el número 48 del código ASCII).
Página 11
Funciones de conversión de tipos. (Tabla copiada de la ayuda en línea de Visual Basic para Excel).
Bueno, después de esta introducción a las variables, pasemos a estudiar unos cuantos objetos y
propiedades que se utilizan habitualmente.
Sirve, como el objeto range, para referenciar una casilla o rango de casillas, pero en lugar de utilizar la
referencia de la forma A1, B1, X320,... utiliza la fila y la columna que ocupa la casilla dentro de la hoja (o
objeto WorkSheet). Por ejemplo, para poner hola en la casilla A1 de la hoja activa seria,
ActiveSheet.Cells(1,1).Value="Hola"
Pondrá en la celda A6 el valor "Hola", observe que en este ejemplo Cells comienza a contar filas y
columnas a partir del rango especificado en el objeto Range.
Página 12
Variables de Objetos.
Una variable objeto sir ve para hacer referencia a un objeto, esto significa que podremos acceder a las
propiedades de un objeto e invocar a sus métodos a través de la variable en lugar de hacerlo directamente
a través del objeto. Posiblemente no se utilice demasiado esta clase de variables (esta claro que esto
dependerá de las preferencias del programador), pero hay casos en los que no hay más remedio que
utilizarlas , por ejemplo en estructuras For Each ... Next como veremos, o cuando sea necesario construir
funciones que devuelvan rangos, referencias a hojas, etc.
Para declarar una variable objeto se utiliza también la palabra Dim de la forma siguiente,
Por Ejemplo
Dim R As Range
Dim Hoja As WorkSheet
Por Ejemplo
Set R= ActiveSheet.Range("A1:B10")
Set Hoja = ActiveSheet
Set Hoja = WorkSheets(1)
Ejemplo 6.
Algo muy simple, llenar el rango de A1 a B10 con la palabra "Hola" y después poner negrita, observe
como se asigna una variable objeto al objeto y luego como se trabaja con esa variable de la misma forma
que trabajaría directamente sobre el objeto.
Sub obj()
Dim R As Range
Set R = ActiveSheet.Range("A10:B15")
R.Value = "Hola"
R.Font.Bold = True
End Sub
El valor Nothing.
Algunas veces puede que sea necesario desasignar una variable del objeto al cual hace referencia, en este
caso debe igu alar la variable al valor Nothing de la forma siguiente.
Habitualmente se utiliza Nothing en una estructura condicional para comprobar si la variable objeto está
asignada. Observe que si se utiliza una variable objeto a la cual todavía no se le ha hecho ninguna
asignación el programa dará error y detendrá su ejecución. Es buena práctica hacer este tipo de
comprobaciones antes de trabajar con variables objeto. Veremos un ejemplo de esto en el tema siguiente.
Página 13
Estructuras condicionales.
Ahora que ya ha experimentado con unos cuantos objetos y propiedades, nos detendremos a estudiar las
estructuras condicionales. Las estructuras condicionales son instrucciones de programación que permiten
controlar la ejecución de un fragmento de código en función de si se cumple o no una condición.
Estudiaremos en primer lugar la instrucción if Condición then..End if (S i Condición Entonces...Fin Si)
La estructura condicional que se construye con la instrucción S i Condición Entonces... Fin Si tiene la
forma siguiente.
.
S i Condición Entonces
Senténcia1
Senténcia2
.
.
SenténciaN
Fin Si
.
.
Cuando el programa llega a la instrucción S i Condición Entonces , se evalúa la condición, si esta se
cumple (es cierta), se ejecutan todas las sentencias que están encerradas en el bloque, si no se cumple la
condición, se saltan estas sentencias. Esta estructura en Visual Basic tiene la sintaxis siguiente,
If Condición Then
Senténcia1
Senténcia2
.
.
SenténciaN
End If
Ejemplo 6.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y
guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es
superior a 1000, pedir descuento con otro InputBox y guardarlo en la casilla A2 de la hoja activa.
Calcular en A3, el precio de A1 menos el descuento de A2.
Sub Condicional()
ActiveSheet.Range("A3").Value = ActiveSheet.Range("A1").Value - _
ActiveSheet.Range("A2").Value
End Sub
Página 14
Ejemplo 7.
Sub Condicional()
Precio = 0
Descuento = 0
' Si el valor de la variable precio es mayor que 1000, entonces, pedir descuento
If Precio > 1000 Then
Descuento = Val(InputBox("Entrar Descuento", "Entrar"))
End If
ActiveSheet.Range("A1").Value = Precio
ActiveSheet.Range("A2").Value = Descuento
ActiveSheet.Range("A3").Value = Precio - Descuento
End Sub
Viendo los dos programas anteriores puede que le surja la duda de si emplear variables o directamente
valores almacenados en las celdas. La solución es fácil, lo que le parezca más conveniente en cada caso
concreto que desee solucionar. Las variables, aunque muchas veces "innecesarias", quizás dejan los
programas más legibles y claros. Y la legibilidad de un programa es lo más valioso del mundo para un
programador (profesionalmente hablando ), sobre todo si se da el caso (inevitable el 99,999...% de las
ocasiones) que se tenga que modificar un programa para dotarle de más funcionalidades, facilitar su
manejo, etc. En la mayoría de ejemplos que encontrará en este manual verá que se utilizan variables
preferentemente. Aunque muchas veces su función sea simplemente recoger datos de las celdas para
operarlas y dejarlas en otras celdas y, consecuentemente, aumente el número de operaciones, creemos que
con ello se gana en legibilidad y flexibilidad.
Ejemplo 8.
Macro que compara los valores de las casillas A1 y A2 de la hoja activa. Si son iguales pone el color de la
fuente de ambas en azul.
Sub Condicional2()
End If
End Sub
Página 15
• Estructura If..Else
Esta estructura se utiliza cuando se requiere una respuesta alternativa a una condición. Su estructura es la
siguiente.
S i Condición Entonces
Senténcia1
Senténcia2
.
.
SenténciaN
Sino
Senténcia1
Senténcia2
.
.
SenténciaN
Fin Si
Observe que, si se cumple la condición, se ejecuta el bloque de sentencias delimitado por S i Condición
Entonces y Si no se cumple la condición se ejecuta el bloque delimitado por Sino y Fin Si. En Visual
Basic la instrucción S i Condición Entonces ... Sino ... Fin Si se expresa con las instrucciones siguientes.
If Condición Then
Senténcia1
Senténcia2
.
.
SenténciaN
Else
Senténcia1
Senténcia2
.
.
SenténciaN
End If
Ejemplo 9.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y
guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es
superior a 1000, se aplica un descuento del 10% sino se aplica un descuento del 5%, el descuento se
guarda en la casilla A2 de la hoja activa. Colocar en A3, el total descuento y en A4 el total menos el
descuento.
Página 16
Sub Condicional_Else()
Precio = 0
' Si el valor de la variable precio es mayor que 1000, entonces, aplicar descuento del 10%
If Precio > 1000 Then
Descuento = Precio * (10 / 100)
ActiveSheet.Range("A2").Value = 0,1
ActiveSheet.Range("A1").Value = Precio
ActiveSheet.Range("A3").Value = Descuento
ActiveSheet.Range("A4").Value = Precio - Descuento
End Sub
Ejemplo 10.
Restar los valores de las casilla A1 y A2. Guardar el resultado en A3. Si el resultado es positivo o 0,
poner la fuente de A3 en azul, sino ponerla en rojo.
Sub Condicional_Else2()
ActiveSheet.Range("A3").Value = AvtiveSheet.Range("A1").Value - _
ActiveSheet.Range("A2").Value
End Sub
• Estructuras If anidadas.
No tiene que sorprenderle, dentro de una estructura if puede ir otra, y dentro de esta otra, y otra... Vea el
ejemplo siguiente.
Ejemplo 11.
Comparar los valores de las casilla A1 y A2 de la hoja activa. Si son iguales, escribir en A3 "Los valores
de A1 y A2 son iguales", si el valor de A1 es mayor que A2, escribir "A1 mayor que A2", sino, escribir
"A2 mayor que A1" .
Página 17
Sub Condicional()
Observe que la segunda estructura If..Else..End If queda dentro del Else de la primera estructura. Esta es
una regla general, cuando pone un End If, este cierra siempre el último If ( o Else) abierto.
• Operadores lógicos.
Estos operadores se utilizan cuando se necesitan evaluar dos o más condiciones para decidir si se ejecutan
o no determinadas acciones.
Utilizaremos este operador cuando sea preciso que para ejecutar un bloque de instrucciones se cumpla
más de una condición. Observe que deberán cumplirse todas las condiciones . Vea el ejemplo siguiente.
Ejemplo 12.
Sub Ejemplo_12()
Precio = 0
ActiveSheet.Range("A1").Value = Producto
ActiveSheet.Range("A2").Value = Precio
ActiveSheet.Range("A3").Value = Cantidad
ActiveSheet.Range("A4").Value = Total
Página 18
' Si total mayor que 10.000 y el producto es Patatas, aplicar descuento.
If Total > 10000 And Producto = "Patatas" Then
Descuento = Val(InputBox("Entrar Descuento", "Entrar"))
Total_Descuento = Total * (Descuento / 100)
Total = Total - Total_Descuento
ActiveSheet.Range("A5").Value = Total_Descuento
ActiveSheet.Range("A6").Value = Total
End If
End Sub
Observe que para que se ejecute el bloque de instrucciones entre If.. End If deben cumplirse las dos
condiciones que se evalúan, si falla cualquiera de las dos (o las dos a la vez), no se ejecuta dicho bloque.
Utilizaremos este operador cuando sea preciso que para ejecutar un bloque de instrucciones se cumpla
alguna de una serie de condiciones. Observe que sólo es necesario que se cumpla alguna de las
condiciones que se evalúan. Vea el ejemplo siguiente.
Ejemplo 13.
Sub Ejemplo_13()
Precio = 0
ActiveSheet.Range("A1").Value = Producto
ActiveSheet.Range("A2").Value = Precio
ActiveSheet.Range("A3").Value = Cantidad
ActiveSheet.Range("A4").Value = Total
End Sub
Página 19
Observe que para que se ejecute el bloque de instrucciones entre If.. End If sólo es necesario que se
cumpla alguna de las dos condiciones que se evalúan (o las dos a la vez). Sólo cuando no se cumple
ninguna de las dos no se ejecutan las instrucciones del bloque.
Este operador se utiliza para ver si NO se cumple una condición. El siguiente ejemplo hace lo mismo que
el ejemplo 7 pero utilizando el operador Not.
Ejemplo 14.
Entrar una cantidad que representa el precio de algo por el teclado con la instrucción InputBox y
guardarlo en la celda A1 de la hoja activa. Si el valor entrado desde el teclado (y guardado en A1) es
superior a 1000, pedir descuento con otro InputBox y guardarlo en la casilla A2 de la hoja activa.
Calcular en A3, el precio de A1 menos el descuento de A2.
Sub Ejemplo_14()
Precio = 0
Descuento = 0
' Si el valor de la variable precio NO es menor igual 1000, entonces, pedir descuento
If Not (Precio <= 1000) Then
Descuento = Val(InputBox("Entrar Descuento", "Entrar"))
End If
ActiveSheet.Range("A1").Value = Precio
ActiveSheet.Range("A2").Value = Descuento
ActiveSheet.Range("A3").Value = Precio - Descuento
End Sub
• Tablas de la verdad.
Vea las tablas siguientes para ver los resultados de evaluar dos condiciones con el operador And y con el
operador Or.
And. Or.
Condición1 Condición2 Resultado Condición1 Condición2 Resultado
Falsa Falsa Falso Falsa Falsa Falso
Falsa Cierta Falso Falsa Cierta Cierto
Cierta Falsa Falso Cierta Falsa Cierto
Cierta Cierta Cierto Cierta Cierta Cierto
Observe que con el operador AND deben de cumplirse todas las condiciones (dos o veinticinco) para que
el resultado sea cierto. Con el operador OR sólo es necesario que se cumpla una (de las dos o de las
veinticinco) para que el resultado sea cierto.
Página 20
• Estructura Select Case.
En ocasiones se dará el caso que en función del valor o rango de valores que pueda tener una variable,
una casilla, una expresión, etc. deberán llevarse a cabo diferentes acciones o grupos de acciones. Vea el
ejemplo siguiente.
Ejemplo 15.
Macro que suma, resta, multiplica o divide los valores de las casillas A1 y A2 dependiendo de si B1
contiene el signo +, -, x, :. El resultado lo deja en A3. Si en B1 no hay ninguno de los signos anteriores
en A3 debe dejarse un 0.
Sub Ejemplo_15()
Valor1 = ActiveSheet.Range("A1").Value
Valor2 = ActiveSheet.Range("A2").Value
Signo = ActiveSheet.Range("B1").Value
Total=0
ActiveCell.Range("A3").Value = Total
End Sub
Observe que en el ejemplo anterior todas las instrucciones if evalúan la misma variable. El programa
funciona correctamente pero para estos casos es mejor utilizar la instrucción Select Ca se, el motivo
principal es por legibilidad y elegancia. Select Case tiene la sintaxis siguiente,
Case valores :
Instrucciones.
Case valores :
Instrucciones.
.
.
Case valores:
Instrucciones.
Case Else
Instrucciones en caso que no sean ninguno de los valores anteriores.
End Select
Página 21
Vea el ejemplo anterior solucionado con esta estructura.
Ejemplo 16.
Sub Ejemplo_16()
Valor1 = ActiveSheet.Range("A1").Value
Valor2 = ActiveSheet.Range("A2").Value
Signo = ActiveSheet.Range("A3").Value
Case "+"
Total = Valor1 + Valor2
Case "-"
Total = Valor1 - Valor2
Case "x"
Total = Valor1 * Valor2
Case ":"
Total = Valor1 / Valor2
Case Else
Total = 0
End Select
ActiveCell.Range("A3").Value = Total
End Sub
Vea el ejemplo siguiente donde cada sentencia Case evalúa un rango de valores.
Ejemplo 17.
Programa que pide tres notas de un alumno mediante la función InputBox. Las notas van a parar
respectivamente a las casillas A1, A2 y A3 de la hoja activa. El programa calcula la media y la deja en
A4. Si la media está entre 0 y 2 deja en A5 el mensaje "Muy deficiente", si la nota es 3 deja en A5 el
mensaje "Deficiente", si la nota es 4 deja "Insuficiente", si es 5 "Suficiente", si es 6 "Bien", si está entre 7
y 8 deja "Notable", si es mayor que 8 deja "Sobresaliente".
Sub Ejemplo_17()
ActiveSheet.Range("A1").Value = Nota1
ActiveSheet.Range("A2").Value = Nota2
ActiveSheet.Range("A3").Value = Nota3
ActiveSheet.Range("A4").Value = Media
Página 22
Select Case Media
Case 0 To 2
ActiveSheet.Range("A5").Value = "Muy deficiente"
Case 3
ActiveSheet.Range("A5").Value = "Deficiente"
Case 4
ActiveSheet.Range("A5").Value = "Insuficiente"
Case 5
ActiveSheet.Range("A5").Value = "Suficiente"
Case 6
ActiveSheet.Range("A5").Value = "Bien"
Case 7 To 8
ActiveSheet.Range("A5").Value = "Notable"
Case >8
ActiveSheet.Range("A5").Value = "Sobresaliente"
End Select
End Sub
• Funciones de comprobación.
Antes de terminar con el tema de condicionales veremos unas funciones que nos serán útiles a la hora de
comprobar o validar el tipo de los datos ent rados desde teclado o simplemente los datos contenidos en una
casilla.
Sub Ejemplo_16()
Valor1 = ActiveSheet.Range("A1").Value
Valor2 = ActiveSheet.Range("A2").Value
Signo = ActiveSheet.Range("A3").Value
Case "+"
Total = Valor1 + Valor2
Case "-"
Total = Valor1 - Valor2
Case "x"
Total = Valor1 * Valor2
Case ":"
Total = Valor1 / Valor2
Case Else
Total = 0
End Select
ActiveCell.Range("A3").Value = Total
End Sub
Página 23
Imagine que en alguna de las casillas que se deben operar no hubiera ningún valor o bien datos
alfanuméricos. Al ejecutar la macro se producirá un error. Aunque con Visual Basic se puede controlar el
flujo del programa cuando se produce un error imprevisto, para solucionar este problema utilizaremos una
función de comprobación que nos diga si en las casillas A1 y A2 hay valores adecuados (numéricos) para
proseguir con la ejecución de la macro, en caso contrario se mostrará un error y no se ejecutará ninguna
de las operaciones.
Ejemplo 18.
Sub Ejemplo_18()
Valor1 = ActiveSheet.Range("A1").Value
Valor2 = ActiveSheet.Range("A2").Value
Signo = ActiveSheet.Range("A3").Value
Continuar = True
If IsEmpty(ActiveSheet.Range("B1")) Then
MsgBox Prompt:="la casilla B1 está vacía", Title:="ERROR"
Continuar= False
End If
If Continuar Then
Case "+"
Total = Valor1 + Valor2
Case "-"
Total = Valor1 - Valor2
Case "x"
Total = Valor1 * Valor2
Case ":"
Total = Valor1 / Valor2
Case Else
Total = 0
End Select
Página 24
ActiveCell.Range("A3").Value = Total
End if
End Sub
En lugar de los tres If de comprobación se hubiera podido utilizar el operador OR de la manera siguientes,
IsDate(Expresión). Comprueba si expresión tiene un valor que se puede interpretar como tipo
fecha.
IsEmpty(Expresión). Comprueba que expresión tenga algún valor, que se haya inicializado.
IsObject(Expresión). Comprueba si expresión (una variable) representa una variable tipo objeto.
Nothing. No es propiamente una función, sirve para comprobar si una variable objeto esta
asociada a un objeto antes de hacer cualquier operación con ella. Recuerde que para trabajar con
una variable objeto antes debe asignarse a uno (mediante la instrucción Set), en caso contrario se
producirá un error en el programa cuando utilice el objeto y se detendrá su ejecución.
Sub Obj()
Dim R As Range
.
.
' Si la variable R es Nothing es que no ha sido asignada, no se puede trabajar con ella
If R Is Nothing Then
MsgBox Prompt := "La variable Objeto no ha sido asignada", Buttons:=vbOk, _
Title := "Error"
Else
R.Value = "Hola"
End If
.
.
End Sub
Página 25
• La función MsgBox.
Esta función muestra un mensaje en un cuadro de diálogo hasta que el usuario pulse un botón. La función
devuelve un dato tipo Integer en función del botón pulsado por el usuario. A la hora de invocar está
función, s e permiten diferentes tipos de botones.
Sintáxis de MsgBox.
Botones : Opcional. Es un número o una suma de números o constantes (vea tabla Valores para
botones e Iconos), que sirve para mostrar determinados botones e iconos dentro del cuadro de
diálogo. Si se omite este argumento asume valor 0 que corresponde a un único Botón OK.
Título : Opcional. Es el texto que se mostrará en la barra del título del cuadro de diálogo.
Archivo de Ayuda : Opcional. Si ha asignado un texto de ayuda al cuadro de diálogo, aquí debe
especificar el nombre del archivo de ayuda donde está el texto.
Context: Opcional. Es el número que sirve para identificar el texto al tema de ayuda
correspondiente que estará contenido en el archivo especificado en el parámetro Archivo de
Ayuda.
Tabla para botones e iconos del cuadro MsgBox. (Tabla copiada del archivo de ayuda de
Microsoft Excel).
El primer grupo de valores (0 a 5) describe el número y el tipo de los botones mostrados en el cuadro de
diálogo; el segundo grupo (16, 32, 48, 64) describe el estilo del icono, el tercer grupo (0, 256, 512)
determina el botón predeterminado y el cuarto grupo (0, 4096) determina la modalidad del cuadro de
mensajes. Cuando se suman números para obtener el valor final del argumento buttons, se utiliza
solamente un número de cada grupo.
Nota Estas constantes las especifica Visual Basic for Applications. Por tanto, el nombre de las mismas
puede utilizarse en cualquier lugar del código en vez de sus valores reales.
Página 26
Los valores que puede devolver la función msgbox en función del botón que pulse el usuario se muestran
en la tabla siguiente.
Tabla de valores que puede devolver MsgBox. (Tabla copiada del archivo de ayuda de Microsoft Visual
Basic para aplicaciones).
Ejemplos de MsgBox.
Sub Tal()
.
.
' El cuadro Muestra los botones Si y No y un icono en forma de interrogante. Cuando se pulsa
' un botón, el valor lo recoge la variable X. En este caso los valores devueltos pueden ser 6 o 7
' que corresponden respectivamente a las constantes VbYes y VbNo, observe la instrucción If de
'después.
X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción",,)
Algunas veces puede que le interese simplemente desplegar un cuadro MsgBox para mostrar un mensaje
al usuario sin que se requiera recoger ningún valor. En este caso puede optar por la forma siguiente,
Lo que no puede hacer porque Visual Basic daría error es poner la primera forma sin igualarla a ninguna
variable. Por ejemplo, la expresión siguinete es incorrecta,
En este caso, aunque X reciba un valor, luego no se utiliza para nada, es decir simplemente se pone para
que Visual Basic dé error.
Página 27
• La instrucción With.
Suponemos que llegado a este punto le parecerá engorroso tener que referirse a los objetos siguiendo toda
o casi toda la jerarquía. Ya hemos indicado que es mejor hacerlo de esta manera porque el programa gana
en claridad y elegancia y, consecuentemente, el programador gana tiempo a la hora de hacer
modificaciones o actualizaciones. La sentencia With le ayudará a tener que escribir menos código sin que
por esto el programa pierda en claridad. Concretamente esta función sirve para ejecutar una serie de
acciones sobre un mismo Objeto. Su sintaxis es la siguiente.
With Objeto
Instrucciones
End With
Repetiremos el ejemplo 13 utilizando esta sentencia. Observe como con With se hace referencia al objeto
ActiveSheet.
Ejemplo 19.
Sub Ejemplo_19()
Precio = 0
With ActiveSheet
.Range("A1").Value = Producto
.Range("A2").Value = Precio
.Range("A3").Value = Cantidad
.Range("A4").Value = Total
End With
Página 28
Estructuras Repetitivas.
Este tipo de estructuras permiten ejecutar más de una vez un mismo bloque de sentencias.
Ejemplo 20.
Supongamos que tenemos que hacer un programa para entrar las notas de una clase de 5 alumnos que se
guardaran respectivamente en las celdas de A1 a A5 de la hoja activa. Después hacer la media que se
guardará en A6. Con las estructuras vistas hasta ahora, podríamos hacer:
Sub Ejemplo_20 ()
Media = 0
Media = Media / 5
ActiveSheet.Range("A6").Value = Media
End Sub
Para evitar esta tipo de repeticiones de código, los lenguajes de programación incorporan instrucciones
que permiten la repetición de bloques de código.
Página 29
• Estructura repetitiva Para (for).
Esta estructura sirve para repetir la ejecución de una sentencia o bloque de sentencias, un número definido
de veces. La estructura es la siguiente:
Var es una variable que la primera vez que se entra en el bucle se iguala a Valor_Inicial, las sentencias
del bucle se ejecutan hasta que Var llega al Valor_Final, cada vez que se ejecutan el bloque de
instrucciones Var se incrementa según el valor de Incremento.
En Visual Basic para Excel la estructura Para se implementa con la instrucción For ... Next.
Ejemplo 21.
Sub Ejemplo_21()
Dim i As Integer
Dim Total As Integer
Dim Valor As Integer
For i=1 To 10
Valor= Val(InputBox("Entrar un valor","Entrada"))
Total = Total + Valor
Next i
ActiveCell.Range("A1").Value = Total
End Sub
Página 30
Recorrer casillas de una hoja de cálculo.
Una operación bastante habitual cuando se trabaja con Excel es el recorrido de rangos de casillas para
llenarlas con valores, mirar su contenido, etc. Las estructuras repetitivas son imprescindibles para recorrer
grupos de celdas o rangos. Vea los siguientes ejemplos para ver ejemplos de utilización de estructuras
repetitivas para recorrer rangos de casillas, observe la utilización de las propiedades Cells y Offset.
Propiedad Cells.
Ya conoce esta propiedad, sirve para referenciar una celda o un rango de celdas s egún coordenadas de fila
y columna.
Ejemplo 22
Llenar el rango de las casillas A1..A5 con valores pares consecutivos empezando por el 2.
Sub Ejemplo_22()
Fila = 1
For i=2 To 10 Step 2
ActiveSheet.Cells(Fila,1).Value = i
Fila = Fila+1
Next i
End Sub
Ejemplo 23.
Llenar un rango de filas, empezando por una celda, que se debe especificar desde teclado, con una serie
de 10 valores correlativos (comenzando por el 1).
Sub Ejemplo_23()
ActiveSheet.Range(Casilla_Inicial).Activate
For i = 1 To 10
ActiveSheet.Cells(Fila, Columna).Value = i
Fila = Fila + 1
Next i
End Sub
Página 31
Propiedades ROW y COLUMN.
Como habrá deducido del ejemplo anterior devuelven la fila y la columna de un objeto range. En el
ejemplo anterior se utilizaban concretamente para obtener la fila y la columna de la casilla activa.
S ub Ejemplo_23()
ActiveSheet.Range(Casilla_Inicial).Activate
Fila = 1
For i = 1 To 10
ActiveSheet.Range(Casilla_Inicial).Cells(Fila, 1).Value = i
Fila = Fila + 1
Next i
End Sub
** Recuerde que cuando utilizamos Cells como propiedad de un rango (Objeto Range), Cells empieza a
contar a partir de la casilla referenciada por Range.
Ejemplo 24.
El mismo con el que introducíamos el tema (ejemplo 20), pero utilizando el for y propiedad Cells
Sub Ejemplo_24()
Media = 0
For Fila = 1 To 5
Nota=Val(InputBox("Entrar la " & Fila & " Nota : ", "Entrar Nota"))
ActiveSheet.Cells(Fila, 1) = Nota
Media = Media + Nota
Next Fila
Media = Media / 5
ActiveSheet.Cells(6, 1).Value = Media
End Sub
Página 32
Propiedad Offset.
Esta propiedad es también muy útil a la hora de recorrer rango. Offset, que significa desplazamiento, es
una propiedad del objeto Range y se utiliza para referenciar una casilla situada a n Filas y n Columnas de
una casilla dada. Vea los ejemplos siguientes.
Ejemplo 25.
El mismo con el que introducíamos el tema (ejemplo 20), pero utilizando el For y propiedad Offset
Sub Ejemplo_25()
Media = 0
ActiveSheet.Range("A1").Activate
For Fila = 0 To 4
Nota=Val(Input Box("Entrar la " & Fila+1 & " Nota : ", "Entrar Nota"))
ActiveCell.Offset(Fila, 0).Value = Nota
Media = Media + Nota
Next Fila
Media = Media / 5
ActiveCell.Offset(6, 1).Value = Media
End Sub
Ejemplo 26.
El mismo con el que introducíamos el tema (ejemplo 20), pero utilizando el For y propiedad Offset.
Observe que ahora vamos cambiando de celda activa.
Sub Ejemplo_26()
Media = 0
ActiveSheet.Range("A1").Activate
For i = 1 To 5
Página 33
Media = Media + Nota
‘ Hacer activa la casilla situada una fila por debajo de la actual
ActiveCell.Offset(1, 0).Activate
Next Fila
Media = Media / 5
ActiveCell.Value = Media
End Sub
Observe la diferencia entre los ejemplos 25 y 26, ambos utilizan la propiedad Offset de diferente forma,
en el ejemplo 25 la casilla activa siempre es la misma A1, Offset se utiliza para referenciar una casilla a
partir de esta. En A26 se va cambiando de casilla activa cada vez de forma que, cuando termina la
ejecución del programa la casilla activa es A6.
Cuando utilizar cada método, como casi siempre depende de lo que se pretenda hacer. Aquí es bastante
claro, si le interesa que no cambie la casilla utilice Offset como en el ejemplo 25, en caso que interese
que vaya cambiando, haga como en el Ejemplo 6. Por supuesto hay muchas variantes sobre el estilo de
recorrer Celdas, tanto con Cells como con Offset, solo tiene que ir probando y, como casi siempre, el que
más le guste.
En Visual Basic
** Los ejemplos que veremos a continuación sobre la instrucción Do While..Loop se harán sobre una
base de datos. Una base de datos en Excel es simplemente un rango de celdas en que cada fila representa
un registro y cada columna un campo de registro, la primera fila es la que da nombre a los campos. Para
nuestra base de datos utilizaremos los campos siguientes, Nombre, Ciudad, Edad, Fecha. Ponga estos
títulos en el rango A1:D1 de la Hoja1 (En A1 ponga Nombre, en B1 ponga Ciudad, en C1 ponga Edad y
en D1 Fecha), observe que los datos se empezarán a entrar a partir de A2.
Página 34
Ejemplo 27.
Programa para entrar registros en la base de datos. Cada campo se entra con InputBox. El programa va
pidiendo datos mientras se entre un valor en el InputBox correspondiente al nombre, es decir cuando al
preguntar el nombre no se entre ningún valor, terminará la ejecución del bloque encerrado entre Do
While...Loop. Observe la utilización de la propiedad Offset para colocar los datos en las celdas
correspondientes.
Sub Ejemplo_27()
‘ Activar hoja1
WorkSheets("Hoja1").Activate
‘ Activar casilla A2
ActiveSheet.Range("A2").Activate
End Sub
Ejemplo 28.
Preste especial atención a este ejemplo ya que seguro que el código que viene a continuación lo utilizará
en muchas ocasiones. Antes que nada observe el ejemplo anterior, fíjese en que siempre empezamos a
llenar el rango de la hoja a partir de la celda A2, esto tiene una nefasta consecuencia, la segunda vez que
ejecute la macro machacará los datos de A2:D2 y si continua ejecutando machacará los datos de los
rangos siguientes. Una solución seria observar cual es la casilla vacía siguiente y cambiar en la
instrucción ActiveSheet.Range("A2").Activate , la referencia A2 por la que corresponde a la primera
casilla vacía de la columna A. El código que le mostramos a continuación hará esto por nosotros, es decir
recorrerá una fila de celdas a partir de A1 hasta encontrar una vacía y dejará a esta como celda activa para
que la entrada de datos comience a partir de ella.
Página 35
Sub Ejemplo_28()
.
.
‘ Activar hoja1
WorkSheets("Hoja1").Activate
‘ Activar casilla A2
ActiveSheet.Range("A1").Activate
End Sub
Ejemplo 29.
Es la unión de los dos programas anteriores. Es decir habrá un bucle Do While que buscará la primera
casilla vacía de la base da datos y otro para pedir los valores de los campos hasta que se pulse Enter en
Nombre.
Sub Ejemplo_28()
WorkSheets("Hoja1").Activate
ActiveSheet.Range("A1").Activate
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Loop
End Sub
Página 36
Cuando se tienen que entrar desde el teclado conjuntos de valores, algunos programadores y usuarios
prefieren la fórmula de que el programa pregunte si se desean entrar más datos, la típica pregunta ¿Desea
Introducir más datos ?, si el usuario contesta Sí, el programa vuelve a ejecutar las instrucciones
correspondientes a la entrada de datos, si contesta que no se finaliza el proceso, observe como quedaría
nuestro bucle de entrada de datos con este sistema.
Mas_datos = vbYes
Do While Mas_Datos = vbYes
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
Loop
** Observe que es necesaria la línea anterior al bucle Mas_datos = vbYes, para que cuando se evalúe la
condición por vez primera esta se cumpla y se ejecuten las sentencias de dentro del bucle, Mas_datos es
una variable de tipo Integer. Vea la sección siguiente donde se estudia una variante de la estructura Do
While que es más adecuada para este tipo de situaciones.
Página 37
• Estructura Do..Loop While.
El funcionamiento de esta estructura repetitiva es similar a la anterior salvo que la condición se evalúa al
final, la inmediata consecuencia de esto es que las instrucciones del cuerpo del bucle se ejecutaran al
menos una vez . Observe que para nuestra estructura de entrada de datos vista en el último apartado de la
sección anterior esta estructura es más conveniente, al menos más elegante, si vamos a entrar datos, al
menos uno entraremos, por tanto las instrucciones del cuerpo del bucle se deben ejecutar al menos una
vez, luego ya decidiremos si se repiten o no.
Do
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Entre la Edad : ", "Edad"))
Fecha=Cdate(InputBox("Entra la Fecha : ", "Fecha"))
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
Observe que en este caso no es necesario la línea Mas_Datos = vbYes antes de Do para forzar la entrada
en el bucle ya que la condición va al final.
Do
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Ent re la Edad : ", "Edad")
Fecha=Cdate("InputBox("Entra la Fecha : ", "Fecha")
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
Página 38
• Estructura For Each.
Este bucle se utiliza básicamente para ejecutar un grupo de sentencias con los elementos de una colección
o una matriz (pronto veremos los que es). Recuerde que una colección es un conjunto de objetos, hojas,
rangos, etc. Vea el ejemplo siguiente que se utiliza para cambiar los nombres de las hojas de un libro de
trabajo.
Ejemplo 29.
Programa que pregunta el nombre para cada hoja de un libro de trabajo, si no se pone nombre a la hoja,
queda el que tiene.
Sub Ejemplo_29()
** Hoja va referenciando cada una de las hojas del conjunto WorkSheets a cada paso de bucle.
Ejemplo 30.
Entrar valores para las celdas del rango A1:B10 de la hoja Activa.
Sub Ejemplo_30()
Dim R As Range
End Sub
** Observe que se ha declarado una variable tipo Range, este tipo de datos, como puede imaginar y ha
visto en el ejemplo sirve para guardar Rangos de una o más casillas, estas variables pueden luego utilizar
todas las propiedades y métodos propios de los Objetos Range. Tenga en cuenta que la asignación de las
varaibles que sirven para guardar o referenciar objetos (Range, WorkSheet, etc.) deben inicializarse
muchas veces a través de la instrucción SET , esto se estudiará en otro capítulo.
Página 39
Procedimientos y funciones.
Se define como procedimiento i/o función a un bloque de código que realiza alguna tarea. Hasta ahora,
hemos construido los programas utilizando un único procedimiento, pero a medida que los programas (y
los problemas) crecen se va haciendo necesaria la inclusión de más procedimientos. Podría fácilmente
caer en la tentación de utilizar, como hasta ahora, un único procedimiento por programa pero se dará
cuenta rápidamente de que este método no es nada práctico ya que grandes bloques de código implican
mayor complicación del mismo, repetición de sentencias y lo que es más grave, mayores problemas de
seguimiento a la hora de depurar errores, ampliar funcionalidades o incluir modificaciones.
La filosofía de utilizar procedimientos es la antigua fórmula del "divide y vencerás", es decir, con los
procedimientos podremos tratar cada problema o tarea de forma más o menos aislada de forma que
construiremos el programa paso a paso evitando tener que resolver o controlar múltiples cosas a la vez.
Cada tarea la realizará un procedimiento, si esta tarea implica la ejecución de otras tareas, cada una se
implementará y solucionará en su correspondiente procedimiento de manera que cada uno haga una cosa
concreta. Así, los diferentes pasos que se deben ejecutar para que un programa haga algo, quedaran bien
definidos cada uno en su correspondiente procedimiento, si el programa falla, fallará a partir de un
procedimiento y de esta forma podremos localizar el error más rápidamente.
Los procedimientos son también un eficaz mecanismo para evitar la repetición de código en un mismo
programa e incluso en diferentes programas. Suponemos que habrá intuido que hay muchas tareas que se
repiten en casi todos los programas, veremos como los procedimientos que ejecutan estas tareas se
pueden incluir en un módulo de forma que este sea exportable a otros programas y de esta manera ganar
tiempo que, como dice el tópico, es precioso.
• Definir un procedimiento.
Ya lo hemos hec ho unas cuantas veces, pero ahí va de nuevo.
Sub Nombre_Procedimento
Sentencias.
End Sub.
• Llamar a un procedimiento.
Para llamar un procedimiento desde otro se utiliza la instrucción Call Nombre_Procedimiento.
Sub P_Uno
Sentencias.
.
Call P_Dos
.
Sentencias
.
End Sub
Las secuencias del procedimiento P_Uno se ejecutan hasta llegar a la línea Call P_Dos, entonces se salta
al procedimiento P_Dos, se ejecutan todas las sentencias de este procedimiento y el programa continua
ejecutándose en el procedimiento P_Uno a partir de la sentencia que sigue a Call P_Dos.
Página 40
Ejemplo 32.
Es el mismo programa que el visto en el ejemplo 29 pero el código que salta casilla hasta que se
encuentra una vacía se implementa en un procedimiento llamado, Saltar_Celdas_Llenas. Observe que
para entrar valores se ha sustituido Do While..Loop por Do.. Loop While.
Sub Ejemplo_32()
Do
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Entre la Edad : ", "Edad"))
Fecha=Cdate(InputBox("Entra la Fecha : ", "Fecha"))
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
End Sub
' Función que salta celdas de una misma columna. Si rve para encontrar la primera celda vacía de la
' columna
Sub Saltar_Celdad_Llenas()
WorkSheets("Hoja1").Activate
ActiveSheet.Range("A1").Activate
End Sub
Página 41
• Generalizar una función.
Observe que para saltar un rango de casillas llenas sólo necesitará llamar a la función
Saltar_Celdas_Llenas, pero, siempre y cuando este rango esté en una hoja llamada "Hoja1" y empiece en
la casilla A1, el procedimiento es poco práctico ya que su ámbito de funcionamiento es limitado. En la
siguiente sección modificaremos el procedimiento de manera que sirva para recorrer un rango que
empiece en cualquier casilla de cualquier hoja.
Parámetros.
Los parámetros son el mecanismo por el cual un procedimiento puede pasarle valores a otro y de esta
forma condicionar, moldear, etc. las acciones que ejecuta. El procedimiento llamado gana entonces en
flexibilidad. La sintaxis de llamada de un procedimiento es la siguiente,
Observe que aquí los parámetros son variables que recibirán los valores, evidentemente debe haber
coincidencia de tipo. Por ejemplo, si el primer parámetro es una variable tipo Integer, el primer valor que
se le debe pasar al procedimiento cuando se llama también ha de ser de tipo Integer (recuerde que puede
ser un valor directamente o una variable).
Ejemplo 33.
El mismo programa que en el ejemplo 32 pero ahora la función Saltar_Celdas_Llenas tiene dos
parámetros Hoja y Casilla_Inicial que reciben respectivamente la hoja donde está el rango a recorrer y la
casilla inicial del rango.
Sub Ejemplo_33()
Do
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Entre la Edad : ", "Edad"))
Fecha=Cdate(InputBox("Entre la Fecha : ", "Fecha"))
With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With
ActiveCell.Offset(1,0).Activate
Página 42
Mas_datos = MsgBox("Otro registro ?", vbYesNo+vbQuestion,"Entrada de datos")
End Sub
'
' Procedimiento Saltar_Celdas_Llenas.
' Sirve para à Saltar celdas llenas de una columna hasta encontrar una vacía que se convierte en activa
' Parámetros :
' Hoja : Hoja donde está el rango a saltar.
' Casilla_Inicial : Casilla Inicial de la columna
Sub Saltar_Celdas_Llenas(Hoja As String, Casilla_Inicial As String)
WorkSheets(Hoja).Activate
ActiveSheet.Range(Casilla_Inicial).Activate
End Sub
Observe que ahora el procedimiento Saltar_Celdas_Llenas sirve para recorrer cualquier rango en
cualquier hoja.
Observe que al procedimiento se le pasan dos valores directamente, recuerde, y esto es quizás lo más
habitual, que también pueden pasarse variables, por ejemplo.
Sub Ejemplo_33
.
.
Dim Hoja As String
Dim Casilla_Inicial As String
Hoja = InputBox("En que hoja está la base de datos : ", "Entrar Nombre de Hoja")
Casilla_Inicial = InputBox("En que casilla comienza la base de datos","Casilla Inicial")
' Observe que los parámetros son dos variables cuyo valor se ha entrado desde teclado en
' las dos instrucciones InputBox anteriores.
Call Saltar_Celdas_Llenas(Hoja, Casilla_Inicial)
.
.
End Sub
Página 43
Variables locales y variables Globales.
El ámbito de una variable declarada dentro de una función es la propia función, es decir no podrá
utilizares fuera de dicha función. Así, el siguiente programa que debería sumar las cinco filas siguientes a
partir de la casilla activa y guardar el resultado en la sexta es incorrecto.
Sub Alguna_Cosa()
.
. .
Call Sumar_Cinco_Siguientes
ActiveCell.Offset(6,0).Value = Suma
.
.
End Sub
Sub Sumar_Cinco_Siguientes()
Dim i As Integer
Dim Suma As Single
Suma=0
For i=1 To 5
Suma = Suma+ActiveCell.Offset(i,0).Value
Next i
End Sub
Es incorrecto porque tanto las variable i como la variable Suma están declaradas dentro del procedimiento
Sumar_Cinco_Siguientes consecuentemente, su ámbito de acción es este procedimiento. Por tanto, la
instrucción ActiveCell.Offset(6,0).Value = Suma del procedimiento Alguna_Cosa, generaría un error (con
Option Explicit activado) ya que la variable Suma no está declarado dentro de él. Si piensa en declarar la
variable Suma dentro del procedimiento Hacer_Algo, no solucionará nada porque esta será local a dicho
procedimiento, en este caso tendría dos variables llamadas Suma pero cada una de ellas local a su propio
procedimient o y consecuentemente con el ámbito de acción restringido a ellos.
Una solución, que a nosotros no nos gusta, seria declarar suma como variable global. Una variable global
se declara fuera de todos los procedimientos y es reconocida por todos los procedimientos del módulo,
Option Explicit
' Suma es una variable global reconocida por todos los procedimientos del módulo.
Dim Suma As Single
Sub Alguna_Cosa()
.
Call Sumar_Cinco_Siguientes
ActiveCell.Offset(6,0).Value = Suma
.
End Sub
Sub Sumar_Cinco_Siguientes()
Dim i As Integer
Suma=0
For i=1 To 5
Suma = Suma+ActiveCell.Offset(i,0).Value
Next i
End Sub
Página 44
Las variables globales son perfectas en cierta ocasiones, para este caso seria mejor declarar Suma en la
función Hacer_Algo y pasarla como parámetro al procedimiento Sumar_Cinco_Siguientes.
Sub Alguna_Cosa()
Dim i As Integer
Suma=0
For i=1 To 5
S = S+ActiveCell.Offset(i,0).Value
Next i
End Sub
No entraremos en detalles sobre como funciona el paso de parámetros por valor y el paso de parámetros
por referencia, sólo indicar que el paso por valor significa que la variable parámetro del procedimiento
recibe el valor de la variable (o directamente el valor) de su parámetro correspondient e de la instrucción
de llamada y en el paso por referencia, la variable parámetro del procedimiento es la misma que su
parámetro correspondiente de la instrucción de llamada, es decir, la declarada en el procedimiento desde
el que se hace la llamada. Por defecto, y siempre que en la instrucción de llamada se utilicen variables, las
llamadas son por referencia. Si desea que el paso de parámetros sea por valor, debe anteponer a la
variable parámetro la palabra reservada ByVal, por ejemplo,
Aunque lo elegante y efectivo por razones de memoria seria pasar siempre que sea posible por valor, es
poco habitual que así se haga en visual basic, seguramente por comodidad. Como suponemos que hará
como la mayoría, es decir, pasar por referencia, tenga cuidado con los (indeseables) efectos laterales.
Copie y ejecute este programa y descubrirá que son los efectos laterales.
Página 45
Ejemplo Efecto_Lateral.
Antes de copiar el programa, active una hoja en blanco y ponga valores del 1 al 15 distribuidos de la
forma siguiente, en el rango A1:A5 valores del 1 al 5, en el rango B1:B5 valores del 6 al 10, en el rango
C1:C5 valores del 11 al 15.
El siguiente programa debe recorrer cada una de tres las columnas de valores, sumarlos y poner el
resultado en las filas 6 de cada columna. Entonces, según los valores que ha entrado en cada una de las
columnas, cuando haya acabado la ejecución del programa debe haber los siguientes resultados, A6 = 15,
B6=40, C6=65. Para llevar a cabo la suma de los valores de cada columna se llama a la función
Recorrer_Sumar tres veces, una para cada columna, esta función recibe en el parámetro F el valor de la
fila donde debe empezar a sumar, sobre el parámetro C el valor de la columna a sumar y sobre el
parámetro Q la cantidad de filas que ha de recorrer.
El programa utiliza la propiedad Cells para referenciar las filas y columnas de los rangos. Observe
atentamente los valores que irá cogiendo la variable Fila ya que esta será la que sufra el efecto lateral.
Sub Efecto_Lateral()
Fila = 1
End Sub
Dim i As Integer
Dim Total As Integer
Total = 0
For i =1 To Q
Total = Total + ActiveSheet.Cells(F, C).Value
F=F+1 ' OJO con esta asignación, recuerde que F es la variable Fila declarada en
' el procedimiento Efecto_Lateral
Next i
ActiveSheet.Cells(F, C) = Total
End Sub
Cuando ejecute el programa se producirá la salida siguiente, en A6 habrá un 15, hasta aquí todo correcto,
pero observe que en la segunda columna aparece un 0 en B12 y en la tercera columna aparece un 0 en
C18, veamos que ha pasado. La primera vez que se llama la función, la variable F vale 1 ya que este es el
valor que tiene su parámetro correspondiente (Fila) en la instrucción Call. Observe que F se va
incrementando una unidad a cada paso de bucle For, RECUERDE que F es realmente la variable Fila
declarada en el procedimiento Efecto_Lateral, por tanto cuando finaliza el procedimiento
Recorrer_Sumar y vuelve el control al procedimiento Efecto_Lateral Fila vale 6, y este es el valor que se
pasará a Recorrer_Suma la segunda vez que se llama, a partir de ahí todo irá mal ya que se empezará el
recorrido de filas por la 6. Una de las soluciones a este problema para hacer que cada vez que se llame
Recorrer_Sumar la variable F reciba el valor 1, es utilizar un paso por valor, es decir que F reciba el
valor de Fila, no que sea la variable Fila, observe que entonces, si F no es la variable Fila, cuando
incremente F no se incrementará Fila, esta siempre conservará el valor 1. Para hacer que F sea un
parámetro por valor, simplemente ponga la palabra ByVal antes de F en la declaración del procedimiento.
Vuelva a ejecutar el programa, verá como ahora funciona correctamente.
Página 46
Insistimos de nuevo en que tenga cuidado con estas cosas. Al menos ahora ya está sobre aviso, cuando un
programa no haga lo que ha previsto una de las cosas que deberá repasar es el paso de parámetros a los
procedimientos.
** Para acabar, observe que en muchas ocasiones le hemos indicado que en el paso por referencia la
variable del procedimiento llamado es la variable declarada en el procedimiento que llama. En este último
ejemplo, le hemos dicho que F era la variable Fila, pues bien, esto no es cierto Fila es una variable y F es
otra variable, ahora es lógico que se pregunte por qué entonces F actúa como si fuera Fila, este es un
tema que no entra en el ámbito de este manual, si alguna vez programa en C y llega al tema de los
punteros entenderá que es lo que sucede realmente en el paso por parámetro y en el paso por valor. Si ya
conoce los punteros de C o Pascal entonces ya habrá intuido que el paso por valor en nuestro ejemplo
equivaldría a,
Recorrer_Fila(F, C, Q);
Recorrer_Fila(&F, C, Q);
Página 47
• Funciones.
Una función es lo mismo que un procedimiento con la salvedad que este devuelve un valor al
procedimiento o función que lo llama. Vea el siguiente ejemplo, es una función muy sencilla ya que
simplemente suma dos números y devuelve el resultado.
Ejemplo 34.
Función que devuelve la suma de dos valores que se le pasan como parámetros. Observe las diferentes
formas en como se llama la función.
Sub Ejemplo_34()
Dim x As Integer
Dim n1 As Integer, n2 As Integer
X = Suma(5, 5)
X= suma(n1,n2)
End Sub
Total = V1 + V2
Suma = Total
End Function
La sintaxis es similar a la cabecera de un procedimiento, sólo que una función tiene tipo, esto tiene su
lógica, ya que una función devuelve un valor, ese valor será de un tipo determinado. Así, en nuestro
ejemplo de Function Suma, esta función es de tipo Integer, o dicho de otra manera, la función ejecuta
sus sentencias y devuelve un valor hacia el procedimiento o la función que la llamó, el valor devuelto se
establece igualando el nombre de la función a algo,
Página 48
Nombre_Función = ....
Suma = Total
Observe también la sintaxis de la llamada a la función, en el ejemplo hemos utilizado unas cuantas formas
de llamarla, lo que debe tener siempre presente es que en cualquier expresión aritmética o de cálculo, el
ordenador realiza un mínimo de dos operaciones, una de cálculo y otra de asignación. Por ejemplo,
A= B+C
El ordenador primero calcula el resultado de sumar B+C luego asigna ese resultado a la variable A. En
cualquier llamada a una función, cojamos por caso,
X= suma(n1,n2)
Primero se ejecutan todas las sentencias de la función Suma, luego se asigna el cálculo de la función a la
variable X. De otro vistazo a la función de ejemplo y vea lo que realiza cada sentencia en la que se llama
a la función Suma.
Veamos a continuación unos cuantos ejemplos de funciones. Antes recordarle que todo lo referente a
parámetros por valor y referencia, variables locales y globales, etc. que estudiamos en los procedimientos
es lo mismo para las funciones.
Ejemplo 35.
Función que devuelve la dirección de la primera celda vacía de un rango. La función es de tipo String ya
que devuelve la casilla en la forma "FilaColumna ", por ejemplo "A10". Utilizaremos la propiedad
Address del objeto range, esta propiedad devuelve un string que contiene la referencia "FilaColumna" de
una casilla o rango de casillas. En el caso de un rango devuelve,
Sub Ejemplo_35()
Casilla = Casilla_Vacia("A1")
......
End Sub
Página 49
' Función Casilla_Vacia de Tipo String
' Sirve para à Recorrer las filas de una columna hasta encontrar una vacía.
' Parámetros :
' Casilla_Inicio : Casilla donde debe empezar a buscar.
' Devuelve à Un string que contiene la referencia de la primera casilla
Function Casilla_Vacia(Casilla_Inicio As String) As String
ActiveSheet.Range(Casilla_Inicio).Activate
Casilla_Vacia = ActiveCell.Address
End Function
Ejemplo 36.
Similar al anterior. Es la típica búsqueda secuencial de un valor en un rango de casillas, en esta función
solo se avanzará a través de una fila. La función devuelve la dirección (address) de la casilla donde está el
valor buscado, en caso que el valor no esté en el rango de filas, devuelve una cadena vacía ("").
Sub Ejemplo_36()
Dim Casilla As String
Casilla = Buscar_Valor("A1", 25)
ActiveSheet.Range(Casilla_Inicial).Activate
End Function
Página 50
Ejemplo 36.
Similar al anterior. Búsqueda secuencial de un valor en un rango de casillas, en esta función se avanzará a
través de filas y columnas. La función devuelve la dirección (address) de la casilla donde está el valor
buscado, en caso que el valor no esté en el rango, devuelve una cadena vacía ("").
Sub Ejemplo_36()
End Sub
ActiveSheet.Range(Casilla_Inicial).Activate
Continuar = True
Do While Continuar
Incremento_Columna = 0
' Buscar el valor por las columnas hasta encontrarlo o encontrar una celda vacía.
Do While Not IsEmpty(ActiveCell.Offset(0, Incremento_Columna) And
ActiveCell. Offset(0, Incremento_Columna.Value <> Valor_Buscado
' Siguiente columna
Incremento_Columna = Incremento_Columna + 1
Loop
' Si no está vacía la casilla entonces parar la búsqueda, se ha encontrado el valor
If Not IsEmpty(ActiveCell.OffSet(0, Incremento_Columna)) Then
Continuar=False
Else ' La casilla está vacía, no se ha encontrado el valor
ActiveCell.Offset(1, 0).Activate ' Saltar a una nueva fila
If IsEmpty(ActiveCell) Then ' Si la casilla de la nueva fila está vacía
Continuar=False ' Parar la búsqueda, no hay más casilla a recorrer
End if
End if
Loop
End Function
Página 51
La cláusula Private.
Puede anteponer la cláusula private a todos los procedimientos y funciones que sean llamados sólo desde
el mismo módulo, es una forma de ahorrar memoria y hacer que el programa corra un poco más rápido. Si
necesita llamar un procedimiento o función desde otro módulo, nunca debe precederlo por la cláusula
private, recuerde que esta cláusula restringe el ámbito de utilización de un procedimiento a su propio
módulo. Supongamos el ejemplo siguiente.
' Módulo 1
Sub General
....
End Sub
' Módulo 2
Sub Procedimiento_de_modulo2
End Sub
Página 52
Vamos a ver a continuación tres ejemplos más sobre funciones. Es importante que los cree en un libro de
trabajo nuevo y los ponga en un mismo módulo, al final del capítulo utilizaremos las opciones de exportar
e importar módulos de procedimientos y funciones. En todos los ejemplos verá el procedimiento
Procedimiento_Llamador, es para mostrar de que forma se debe llamar al procedimiento o función. Los
procedimientos implementados son, por llamarlo de alguna manera, de tipo general, es decir, son
procedimientos que podrá utilizar en muchas aplicaciones.
Ejemplo 37.
Procedimiento que abre un cuador MsgBox y muestra el texto que se le paso como parámetro.
Sub Procedimiento_Llamador()
.
.
Call mAviso("Esto es el mensaje de aviso", "Esto es el Título")
.
.
End Sub
End Sub
Ejemplo 38.
Función tipo range que devuelve un rango. Observe como la función se iguala a una variable tipo Range,
recuerde que con esta variable podrá acceder a todas las propiedades e invocar todos los métodos propios
de los objetos Range. En este ejemplo en concreto se utilizan las variables para Copiar un grupo de celdas
de un rango hacia otro, se utilizan los métodos Copy y Paste del objeto Range.
Sub Procedimiento_Llamador()
Set Rango_Origen=Coger_Rango(A1,5,5)
Rango_Origen.Copy
Set Rango_Destino=Coger_Rango(G1,5,5)
Rango_Destino.Paste PasteSpecial:=xlPasteAll
End Sub
Página 53
' Función que devuelve un rango a una variable de este tipo
' Parámetros
' Casilla = casilla inicial del rango
' Filas = número' de filas
' Columnas = número de columnas del rango
Function Coger_Rango(Casilla As String, Filas As Integer, Columnas As Integer) As Range
ActiveSheet.Range(Casilla).Activate
ActiveCell.Cells(Filas, Columnas).Activate
Casilla_Final = ActiveCell.Address
End Function
Ejemplo 39.
Función para comprobar el tipo de datos. Es una función de comprobación que se puede utilizar para
validar los datos que se entran desde un cuadro InputBox o desde los cuadros de texto de formularios. La
función es de tipo Booleano, devuelve True (cierto) o False en función de si el dato pasado es correcto.
En esta función se evalúan sólo datos numéricos y datos tipo Fecha, puede ampliarla para que se
comprueben más tipos.
Sub Procedimiento_Llamador()
Página 54
' Función que evalúa si el tipo de datos que se le pasan son correctos o no. Si son correctos devuelve
' TRUE , en caso contrario devuelve FALSE
' Parámetros
' Valor =valor que se debe comprobar, de tipo String
' Tipo = tipo a comprobar, "N" --> Numérico, "F", tipo fecha
Valido = True
End Select
Comprobar_Tipo = Valido
End Function
Como ejemplo, abra la hoja donde puso los tres últimos procedimientos.
Página 55
Importar un módulo.
Si está siguiendo el ejemplo, cierre todos los archivos de Excel y abra uno nuevo.
Observe como en la ventana de proyecto se ha incorporado un nuevo módulo que contiene todos los
procedimientos y funciones del archivo importado.
Terminamos aquí el tema de procedimientos y funciones, déjenos insistir de nuevo en que es muy
impor tante que construya sus programas utilizando todas las ventajas que le ofrece la programación
modular. Como último consejo, agrupe todas las funciones que usted considere de utilización general en
uno o dos módulos y luego utilice las opciones de importación y exportación para incorporarlos a sus
programas.
Página 56
La grabadora de macros.
Microsoft Excel lleva incluida una utilidad que sirve para registrar acciones que se llevan a cabo en un
libro de trabajo y registrarlas en forma de macro. Podemos aprovechar esta utilidad para generar código
engorroso por su sintaxis un tanto complicada de recordar, además de ahorrar tiempo. Casi siempre
después deberemos modificarlo para adaptarlo a nuestros programas, sin embargo eso resultará
sumamente sencillo. Vea el ejemp lo siguiente que sirve para poner bordes al rango de celdas de A1 a G6,
observe los comentarios para saber que bordes se ponen y dónde se ponen.
Ejemplo 1.
Sub Poner_Bordes()
Página 57
' No hay bordes horiontales interiores en la selección
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
Página 58
Suponemos que el procedimiento anterior le parecerá abrumador, no se preocupe, le explicamos a
continuación como lo hemos hecho y verá que lo único que debe hacer son los pasos sobre la hoja de
cálculo, el grabador de macros se ocupa del resto.
1. Active la grabadora de macros. Herramientas/ Macro/ Gravar nueva macro. Aparece la ventana
siguiente.
2. En Nombre de Macro, ponga Poner_Líneas. En Guardar Macro en, deje la opción Libro Activo .
En Descripción, ponga, macro para bordes a un rango de celdas.
Y Ya está. Ahora abra el Editor de Visual Basic y compruebe como la grabadora ha hecho todo el trabajo
pro usted. Ahora ya sólo nos queda modificar la macro de forma que este formato de bordes sea aplicable
a cualquier rango. Vea el ejemplo siguiente.
Página 59
Ejemplo2.
En es te ejemplo modificaremos la macro de manera que sirva para dar ese formato a cualquier rango de la
hoja. Observe en este ejemplo simplemente pasamos como parámetro el rango a formatear de manera que
la cabecera del procedimiento quedaria.
.........
End Sub
Página 60
Ejemplo 3.
Refinamiento de la macro del ejemplo anterior. En este ejemplo todavía perfeccionaremos más la macro
del ejercicio anterior. Sobre todo en lo referente a los parámetros. Básicamente cambiaremos el tipo de
parámetros, así en lugar del nombre de la hoja pasaremos el número y en lugar de los parámetros
Rango_Total y Rango_Primera_Fila, simplemente pasaremos el rango de la casilla inicial, la macro se
encargará de seleccionar todas las casillas adyacentes y de buscar la primera fila. En esta macro además
se han incluido funcionalidades como borrar los formatos antes de aplicar las líneas, ajustar el ancho de
las columnas, etc. Lea los comentarios para ver que hace cada sección de la macro.
Observe la propiedad CurrentRegion del objeto Range, esta propiedad devuelve el rango de las casillas
llenas adyacentes a una dada. Por ejemplo imagine una hoja con el rango A1:B10 lleno de valores, la
instrucción
ActiveSheet.Range("A1").CurrentRegion.Select
Dim x As Integer
Dim Casilla_Inicial As String
Dim Casilla_FInal As String
Worksheets(Numero_Hoja).Activate
ActiveSheet.Range(Casilla).Activate
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Página 61
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
' Buscar primera casilla vacia de misma fila recorriendo las columnas
x=0
Do While Not IsEmpty(ActiveCell.Offset(0, x))
x=x+1
Loop
' Recoger las direcciones de la casilla inicial Y la casilla final, es decir las referencias
' FilaColumna (A1, A2,....)
Casilla_Inicial = ActiveCell.Address
Casilla_FInal = ActiveCell.Offset(0, x - 1).Address
Página 62
' Seleccionar el rango de la fila. Observar la concatenación de las cadenas de
' Casilla_Inicial y casilla_final que representan las direcciones del rango a seleccionar
ActiveSheet.Range(Casilla_Inicial & ":" & Casilla_FInal).Select
ActiveSheet.Range(Casilla).Activate
End Sub
Bueno, este segundo ejemplo, un poco más sofisticado es sólo para que vea hasta que punto se puede
refinar una macro. Primero construimos una macro con la grabadora que ponia formato a un rango de
casillas que siempre era el mismo, después modificamos esta macro de manera que el rango de casillas
que pudiera formatear fuera cualquiera, como tercer paso, además de conseguir lo mismo que la segunda
versión pero con menos parámetros le hemos añadido nuevas funcionalidades como ajustar el ancho de
las celdas, borrar los formatos previos, etc. Y esta macro todavia podría refinarse más, poner color de
fondo a la primera fila, poner color a los datos numéricos, etc. Lo que intentamos decirle es que
aproveche al máximo la utilidad de la grabadora de macros, tenga pero en cuenta que casi siempre tendrá
que añadir código usted mismo si quiera ampliar la funcionalidad de la macro, sobre todo si quiere
aplicarle cierta generalidad.
Página 63
Vea el siguiente ejemplo, sirve para representar gráficamente un rango de valores. La macro se ha hecho
de forma similar a la anterior, es decir, una vez activada la grabadora de macros se han seguido todos los
pasos necesarios para diseñar el gráfico, luego se han cambiado las referencias a hojas y rangos por
variables que se colocan como parámetros del procedimiento para así dotarle de generalidad.
' Definir el origen de datos y representar las series(PlotBy) por filas (xlRows)
ActiveChart.SetSourceData Source:=Sheets(Hoja_Datos).Range(Rango_Datos), PlotBy:= _
xlRows
With ActiveChart
' Tiene título
.HasTitle = True
' Poner título
.ChartTitle.Characters.Text = "Ventas de Frutas"
' Tiene título para el eje X
.Axes(xlCategory, xlPrimary).HasTitle = True
' Título para el eje X
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Meses"
' Tiene título para el eje Y principal
.Axes(xlValue, xlPrimary).HasTitle = True
' Título para el eje Y principal
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Cantidades"
End With
Página 64
' Poner líneas de división para el eje Y (verticales)
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
Para finalizar, seguro que cuando utilice la grabadora apareceran muchas propiedades y métodos que
desconoce, sólo debe hacer clic sobre estas propiedades o métodos y pulsar F1, automáticamente se
activará la ayuda sobre esa propiedad o método concreto.
Sub Sumar()
Do
' Entrar un valor y convertirlo a numérico
Valor = Val(InputBox("Entrar un valor", "Entrada"))
Página 65
' Establecer la casilla inicial del rango a sumar
Casilla_Inicial = "A1"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Offset(1, 0).Activate
End Sub
Una vez haya ejecutado la macro, observe que en las celdas donde se han colocado respectivamente las
funciones =SUMA, =PROMEDIO aparece ¿NOMBRE? (es posible que aparezca ####, en es caso amplíe
la columna), esto significa que Excel no reconoce el nombre de la función, que no existe. Sin embargo,
estas funciones si existen y funcionan perfectamente cuando se teclean directamente sobre la hoja de
cálculo, se preguntará el porqué cuando se colocan desde una macro no funcionan. Pues resulta que para
que cualquier función de Excel insertada desde una macro NO de error debe ponerse con su nombre en
Inglés, la traducción se hace luego de forma automática. Es decir en la macro debe ponerla en inglés y
luego cuando esta se inserte en la hoja aparecerá con su nomenclatura en el idioma que corresponda.
ActiveCell.Formula = "=Suma(" & Casilla_Inicial & ":" & Casilla_Final & ")"
Ponga
ActiveCell.Formula = "=Sum(" & Casilla_Inicial & ":" & Casilla_Final & ")"
Y ahora, en lugar de
ActiveCell.Formula = "=Promedio(" & Casilla_Inicial & ":" & Casilla_Final & ")"
Ponga
ActiveCell.Formula = "=Average(" & Casilla_Inicial & ":" & Casilla_Final & ")"
Ejecute la macro y compruebe que ahora todo funciona correctamente. Observe que en la hoja, las
funciones se han insertado con su nombre correcto según el idioma, es decir SUMA y PROMEDIO.
Página 66
A continuación le explicaremos como puede averiguar el nombre de cualquier función en inglés.
Utilizaremos la grabadora de macros. Como ejemplo obtendremos el nombre de las función
=PROMEDIO. Deberá seguir los mismos pasos para obtener el nombre de cualquier función.
2. Vaya a una casilla cualquiera, C1 por ejemplo y teclee la función tal como lo haría en su idioma. Por
ejemplo, ponga =PROMEDIO(A1:A10) o elnombre de cualquier otra función Excel.
4. Edite la macro y observe el nombre que se ha puesto, ya sólo debe apuntárselo y pasarlo a su
procedimiento. Es posible que la función que vea tenga una nomenclatura que le suene rara y es que
la grabadora de macros utiliza referencias tipo RC (row column)
Página 67
Detección de Errores y Depuración de programas.
A medida que los programas van creciendo la probabilidad de cometer errores también va creciendo. Los
errores se clasifican normalmente en tres categorías.
Errores en tiempo de compilación. Son los típicos errores que impiden hacer funcionar el programa
debido, por ejemplo, a errores de sintaxis en las instrucciones, llamadas a funciones que no existen o
llamadas con el tipo o el número de parámetros incorrectos, etc. Este tipo de errores no dan demasiados
problemas, primero porque el compilador avisa de donde se han producido y luego porque simplemente
revisando la sintaxis se solucionan rápidamente.
Errores en tiempo de ejecución. Estos errores se producen por una mala programación del código al no
haber previsto determinados casos concretos o especiales, como por ejemplo intentar abrir un archivo que
no existe, imprimir sin comprobar que la impresora está conectada, definir mal la dimensión de un array e
intentar acceder a miembros que no existen, etc. Cuando se produce este tipo de errores se detiene la
ejecución del programa y normalmente se informa del tipo de error que se ha producido. Muchos de estos
errores se pueden solucionar mediante rutinas o funciones de tratamiento de errores, estudiaremos este
tipo de rutinas un poco más adelante.
Errores de función. Son los más complicados de detectar ya que ni se detectan en la fase de ejecución, ni
provocan la detención del programa, son debidos a la incorrecta programación de algún proceso y como
resultado se obtienen datos erróneos. Errores de este tipo son cálculos mal hechos, bucles infinitos,
devolución de valores incorrectos, etc. Como ni los detecta el compilador, ni provocan la interrupción del
programa deben revisarse a mano, y claro, si el programa es extenso y trata muchos datos, su detección
puede resultar dificultosa. Visual Basic, y todos los entornos de programación incorporan herramientas
para facilitar la detección de este tipo de errores, son las herramientas de depuración. Antes de comenzar
a describir como funcionan estas herramientas, le recomendamos, una vez más, que modularice su
programa utilizando procedimientos cortos que realicen trabajos concretos y precisos, de esta forma
conseguirá, además de que el programa quede más elegante y en un futuro sea más sencillo modificarlo,
evitar el tener que revisar grandes bloques de código para detectar errores de este tipo.
• Herramientas de depuración.
Como se acaba de indicar, estas herramientas son muy útiles a la hora de testear paso a paso el
funcionamiento del programa y detectar los procesos que provocan un mal funcionamiento del mismo.
Copie los datos siguientes en la primera hoja de un libro de trabajo, estos datos serán utilizados por las
funciones que utilizaremos para explicar el funcionamiento de las herramientas de depuración.
A B C D E F G
1 Enero Febrero Marzo Abril Mayo Junio
2 1 3406 3336 3135 2402 4345 4891
3 2 2754 2807 3945 4780 3352 3946
4 3 3646 3704 3140 3236 2640 2052
5 4 2546 4275 4370 3193 2710 2670
6 5 3805 3533 4409 3227 3458 4917
7 6 2709 4509 3153 4894 4801 3454
8 7 2248 4293 3171 3834 3596 3258
9 8 2906 4530 3336 4770 2212 4141
10 9 3827 3538 3748 4800 3869 4896
11 10 3897 4052 4189 3132 4016 3593
12
Página 68
Copie el código siguiente, es el que utilizaremos para estudiar y ver ejemplos sobre las herramientas de
depuración. La primera (Sub Prueba) recorre los datos de las columnas hasta encontrar una vacía, esta
función va llamando a Recorrer_Columna, sirve para recorrer las filas de una columna hasta encontrar
una vacía, va sumando los valores que encuentra en las filas y va contando cuantas hay de llenas, al final
llama a la función Cálculos, esta función coloca en respectivas casilla, la suma de los valores de la
columna, la cantidad de celdas llenas que ha encontrado, y la media. Una vez haya copiado las funciones
ejecútelas para comprobar su correcto funcionamiento antes de proceder al estudio de las herramientas de
depuración.
Sub Prueba()
Worksheets(1).Range("B2").Activate
' Recorrer las casillas de una fila hasta que se encuentre una vacía
Do While Not IsEmpty(ActiveCell)
Call Recorrer_Columna
ActiveCell.Offset(0, 1).Activate
Loop
End Sub
Suma_Columna = 0
Mayor_Que_Cero = 0
Desp_Fila = 0
' Recorrer las filas de una columna hasta que se encuentre una vacía
Do While Not IsEmpty(ActiveCell.Offset(Desp_Fila, 0))
Desp_Fila = Desp_Fila + 1
Loop
End Sub
End Sub
Página 69
Active la barra de depuración para ver los botones que se utilizarán en las secciones que se explican a
continuación (Ver/ Barras de Herramientas/ Depuración).
El modo paso a paso permite la ejecución del programa instrucción por instrucción, de esta forma es
posible ver que el funcionamiento del programa es el correcto, es decir que la ejecución de instrucciones
sigue los pasos que se habían previsto. Para ejecutar un procedimiento paso a paso, sólo debe ir pulsando
sobre el botón , activar la opción de menú Depuración /Paso a Paso por Instrucciones o ir
pulsando la tecla F8, que seguramente es lo más cómodo.
Ejemplo.
Cuando esté ejecutando paso a paso puede utilizar los botones siguientes para llevar a cabo determinadas
acciones.
Ejemplo.
Call Recorrer_Columna
Sirve para ejecutar todas las instrucciones del procedimiento activo y volver (o terminar).
Ejemplo.
Mayor_Que_Cero = Mayor_Que_Cero + 1
Página 70
3. Pulse sobre el botón verá como se termina la ejecución de este procedimiento y se vuelve al
procedimiento Prueba para continuar con la ejecución paso a paso. Para activar esta opción, también
puede la opción Depuración/ Paso a paso para salir, o bien pulsar la combinación CONTROL+
MAY+ F8.
El modo Interrupción.
En programas largos resulta fastidioso tener que ejecutarlos paso a paso, sobretodo si sabemos que el
error se produce en una parte avanzada del programa. El modo interrupción, permite la ejecución del
programa hasta una instrucción determinada para, a partir de esta, ejecutar paso a paso y así poder
detectar el error.
1. Sitúe el cursor sobre la instrucción en la cual debe detenerse el programa para continuar paso a paso.
2. Pulse sobre el botón . También puede activar la opción Depuración/ Alternar punto de
interrupción, pulsar la tecla F9 o bien hacer un clic en la parte izquierda de la ventana del módulo
(la franja vertical en color gris).
Todo lo dicho anteriormente no serviría de gran cosa si no fuera posible revisar los valores que las
variables van cogiendo a medida que vamos avanzando o si no tuviéramos ocasión de evaluar las
expresiones del programa. En las siguientes secciones veremos como llevar a cabo estas acciones.
Estas opciones sirven para revisar el valor de las variables a medida que se va ejecutando el programa.
Para ver los valores que van tomando las variables es conveniente tener visible la Ventana de
1. Seleccione la variable que desee añadir a la ventana haciendo un clic sobre ella.
2. Pulse sobre el botón , también puede activar Depuración/ Inspección rápida o pulsar la
combinación MaY+F9. Aparece un cuadro de diálogo donde se muestra el valor actual de la
variable. Si no está ejecutando el programa paso a paso, aparecerá el valor Fuera de Contexto.
3. Pulse sobre el botón Agregar para añadir la variable a la ventana de inspección.
Debe tener en cuenta que para revisar las variables las expresiones que les asignan valores deben de
ejecutarse al menos una vez.
Página 71
Ejemplo.
Mayor_Que_Cero = Mayor_Que_Cero + 1
2. Ejecute el programa, cuando este se detenga en el punto de interrupción, sitúe el cursor sobre la
variable Suma_Columna (puede ponerlo en cualquier parte).
3. Pulse sobre el botón .
4. Pulse sobre el botón Agregar para que la variable se inserte en la ventana Inspecciones.
5. Vaya ejecutando el programa paso a paso y observe como va cambiando el valor de las variables en
la ventana de inspección.
Recuerde que puede agregar una variable a la ventana de inspección aunque no esté ejecutando el
programa.
** Suponemos que ya se habrá dado cuenta que cuando ejecuta el programa paso a paso, si
sitúa el puntero de ratón sobre una variable, se muestra el valor de la misma.
A veces resulta interesante cambiar el valor de alguna variable cuando se está ejecutando el programa,
para ver que ocurre si coge determinados valores, para terminar un bucle, etc.
Ejemplo.
Mayor_Que_Cero = Mayor_Que_Cero + 1
Expresiones de Revisión.
Además de permitir añadir una variable o expresión dentro de la Ventana Inmediato, una Expresión de
Revisión permite interrumpir la ejecución del programa cuando una variable coge determinado valor.
Piense que muchas veces un programa deja de funcionar, o funciona mal cuando una variable coge
determinados valores. Con una expresión de revisión, podremos detener la ejecución del programa
cuando una variable contiene determinado valor ( a partie de determinado valor), luego, podremos
continuar con la ejecución paso a paso para ver que ocurre a partir de este punto.
Página 72
Ejemplo.
En el ejemplo que veremos a continuación, haremos que el programa se interrumpa cuando la variable
Suma_Columna alcance un valor superior a 30000.
1. Sitúe el cursor sobre el nombre de la variable Suma_Columna, puede escoger cualquier posición
donde aparece la variable.
2. Active la opción Depuración/ Agregar Inspección. Aparece el siguiente cuadro de diálogo,
Procedimiento: Aquí se describe el procedimiento donde debe evaluarse la variable, esto significa
que el ámbito de comprobación de la variable es sólo dentro de este procedimiento. Imagine que
tiene dos o más procedimientos donde utiliza una variable con el mismo nombre, o bien que tiene
una variable global, aquí se indica en que procedimiento debe hacerse la evaluación.
Expresión de inspección. Activando esta opción, indicamos que lo único que deseamos hacer es
incluir la variable o expresión dentro de la ventana de expresión.
Modo de interrupción cuando el valor sea verdadero. Indicamos que cuando la expresión
indicada en cuadro de texto Expresión: sea cierta, debe detenerse el programa.
Ejecute el programa. Observe que el programa se interrumpe cuando Suma_Columna coge un valor
superior a 30000, a partir de este podríamos continuar con la ejecución paso a paso y ver como
evoluciona el valor de la variable o variables.
Página 73
La Ventana Inmediato.
Es otra forma de inspeccionar variables cuando el programa está en modo interrupción (ejecutándose paso
a paso), pero además, ofrece la posibilidad de cambiar valores de las variables e incluso ejecutar o evaluar
expresiones. Para ver el valor de una variable en la ventana inmediato debe anteponerle un ? y luego
pulsar Enter.
Para activar la ventana Inmediato, active opción Ver/Inmediato, o pulse la combinación CONTROL+G.
Ejemplo.
En el siguiente ejemplo, utilizaremos la ventana Inmediato para ver el valor de las variables
Suma_Columna, Mayor_Que_Cero y Desp_Fila. También cambiaremos el valor de una de ellas y
comprobaremos una expresión.
3. Ejecute el programa, este debe detenerse cuando llegue a la instrucción indicada en paso 2.
4. Entre en la ventana inmediato, haga las pruebas siguientes.
Escriba
? Suma_Columna
? Mayor_Que_Cero
? Desp_Fila
Pruebe la expresión siguiente. En este caso concreto solo sirve para ver que es una posibilidad.
X = Suma_Columna / Mayor_Que_Cero
?X
Suma_Columna = -2350000
La instrucción Debug.Print.
Esta instrucción, que se utiliza directamente sobre el código del programa, permite ver todos los valores
que ha ido cogiendo una variable o expresión durante la ejecución del programa. Los valores se mostrarán
en la ventana Inmediato una vez finalizado el programa. Esta expresión resulta útil en una fase avanzada
de depuración ya que permite ir viendo la evolución de una variable o expresión sin necesidad de poner
puntos de interrupción. Evidentemente cuando el programa esté listo deben de sacarse.
Ejemplo.
Página 74
2. Sitúe el cursor después de la instrucción Loop y escriba
Una vez terminada la ejecución, observe lo que hay escrito en la ventana inmediato. A veces, resulta
interesante controlar en que pasos la variable ha ido cogiendo determinados valores, para hacer esto
deberán declararse las correspondientes variables que hagan las funciones de contador.
Ejemplo.
Haremos lo mismo que en el ejemplo anterior pero indicando los pasos de bucle y las llamadas al
procedimiento Recorrer_Columna.
Debug.Print "Paso de Bucle: " & Paso_De_Bucle & " Suma_Columna = " &
Suma_Columna
Debug.Print " Llamada : " & Contar_Llamadas & " Suma_Columna = " &
Suma_Columna
Por supuesto cuando el programa esté terminado y comprobado deberá quitar todas las instrucciones
Debug.Print
Página 75
Errores de Ejecución.
Es imposible excluir del todo los errores en los programas. Si además, y como es de desear, el programa
será utilizado por usuarios que no han tenido nada que ver en el proceso de desarrollo e implementación
posiblemente (seguramente) se producirán errores debido a su incorrecta utilización. Estos errores son los
que se deben prevenir. Errores de este tipo son, por ejemplo, intentar acceder a un archivo inexistente,
entrar valor es incorrectos a través de un cuadro de diálogo o formulario (datos tipo String cuando se
requieren números,...). También entrarían en este tipo de errores aquellos casos excepcionales pero que
deben ser previstos por el programador, como por ejemplo que se llene la unidad de disco, que la
impresora se quede sin papel (este ya no es tan excepcional), etc.
Copie el módulo siguiente, será el que utilizaremos en los ejemplos. Es un simple procedimiento que pide
dos valores al usuario, los suma y los guarda en la celda A1 de Hoja2.
Option Explicit
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim total As Integer
total = n1 + n2
Worksheets("Hoja2").Range("A1").Value = total
End Sub
Página 76
Rutinas de tratamiento de errores.
Generalmente una rutina de tratamiento de errores reacciona ante casos esperados por el programador. En
el ejemplo que nos ocupa, podría ser que el usuario entrara caracteres en lugar de números por lo que el
programa generaría el error siguiente.
Mediante una rutina de tratamiento de errores informaremos del error que se ha producido y
direccionaremos la ejecución del programa hacia donde interese. En visual basic el tratamiento de errores
es una parte normal de la ejecución del programa. La instrucción para el tratamiento de errores es ON
ERROR GOTO línea, línea es una etiqueta o marca de línea que indica hacia donde debe dirigirse el
programa en caso de error. El formato general de un procedimiento o función donde se implementa una
rutina de tratamiento de errores es la siguiente.
Sub prueba()
Tratar_Errores:
' Instrucciones de tratamiento de error
End Sub.
Con On Error GOTO Tratar_Errores, indicamos al programa que en caso que se produzca un error en
tiempo de ejecución vaya a ejecutar las líneas que siguen a la etiqueta o marca de línea Tratar_Errores.
Observe que antes de la etiqueta Tratar_Errores hay la instrucción Exit Sub, sirve para que si el
procedimiento se ha desarrollado correctamente, salga en ese punto, tenga en cuenta que si no se pusiera
esta línea la ejecución continuaría secuencialmente y se ejecutarían las líneas de la rutina Tratar_Errores.
Si la rutina de tratamiento de errores se implementa en una función debe poner Exit Function en lugar de
Exit Sub.
Página 77
Escribir código de tratamiento de errores.
En este primer ejemplo haremos algo muy simple, mostrar información sobre el tipo de error que se ha
producido y detener la ejecución del programa. Vale, esto es lo que hace ya Visual Basic sin necesidad de
implementar nada, pero nos servirá para introducir el objeto Err.
El objeto Err.
Siempre que se produce un error en tiempo de ejecución Visual Basic genera (o disp ara como dicen
algunos autores) un objeto tipo Err, estudiaremos dos propiedades de este objeto Number y Description.
Number es un número indicativo sobre el tipo de error que se ha producido, dicho de otra forma, cuando
visual basic dispara un objeto Err en tiempo de ejecución, podemos revisar su propiedad Number para
saber que es lo que ha causado el error. Description es el mensaje asociado al número de error y es una
cadena de texto que describe brevemente el error. Ahora en nuestro ejemplo, implementaremos una rutina
de error que muestre el número de error y su descripción, insistimos que es lo que hace visual basic por si
sólo, pero luego veremos como gracias al número de error podremos determinar la causa del error y
controlar la ejecución del programa como más convenga. El procedimiento quedaría de la siguiente
manera.
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim total As Integer
total = n1 + n2
Worksheets("Hoja2").Range("A1").Value = total
Exit Sub
Tratar_Errores:
MsgBox ("Número de Error : " & Err.Number & Chr(13) & "Descripción : " & Err.Description)
End Sub
Ejecute el procedimiento anterior y cuando se le pida el primer número entre el Texto "Hola". Observe
que como se ha producido un error, el programa salta hacia la rutina de tratamiento de errores y muestra
el número de error y su descripción asociada.
En la mayoría de los casos, las rutinas de tratamiento de errores son para que el programa no se detenga.
El proceso habitual cuando se produce el error es tratar de corregirlo y continuar la ej ecución del
programa. La continuación del programa se consigue mediante la instrucción Resume. Esta instrucción
da tres posibilidades, Ejecutar otra vez la instrucción que ha causado el error, continuar por la instrucción
siguiente a la que ha causado el error o dirigir la ejecución hacia una línea marcada con una etiqueta.
Página 78
Resume. Ejecutar de nuevo la instrucción que ha causado el error.
Esto, en nuestro caso, sería volver a preguntar de nuevo el valor. La rutina de tratamiento de
errores quedaría.
Tratar_Errores:
MsgBox ("Número de Error : " & Err.Number & Chr(13) & "Descripción : " &
Err.Description)
Resume
Podríamos cambiar el mensaje que ve el usuario para hacerlo más compresivo. La rutina
quedaría.
Tratar_Errores:
Resume Next. Continuar el programa por la instrucción siguiente a la que ha causado el error.
Tratar_Errores:
En este caso el programa informaría de la causa del error pero continuaría la ejecución por la
línea siguiente a la que ha causado el error. No es una buena solución para este caso pero los hay
en los que es la mejor.
Haremos que el programa vuelva al principio cuando se produzca un error. Para ello debemos poner una
etiqueta o marca de línea mediante la cual indicaremos en que punto debe continuar la ejecución del
programa. Observe que hemos puesto la etiqueta Inicio: al principio del procedimiento. Evidentemente no
siempre tiene que empezar desde el principio, puede dirigirse la ejecución hacia donde más convenga.
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim total As Integer
total = n1 + n2
Worksheets("Hoja2").Range("A1").Value = total
Exit Sub
Página 79
Tratar_Errores:
End Sub
Llegados a este punto ya sabemos como controlar errores simples y como redirigir la ejecución del
programa. Ahora, pruebe lo siguiente, ejecute el programa y cuando se le pida el primer valor, ponga
50000.
Efectivamente, se produce un error, 50000 no es un valor válido para datos tipo Integer, recuerde que el
rango para los datos tipo Integer es de -32768 a 32767. Observe que la rutina continua tratando el error y
pidiendo de nuevo los datos, pero el mensaje que verá el usuario continuará siendo "Debe entrar un valor
numérico ", cosa que seguramente le dejará perplejo. Con esto hemos pretendido que vea que puede haber
más de una causa que provoque error, consecuentemente las rutinas de tratamiento de errores deberán
prevenir más de un error. En este nuevo caso el error lo produce un desbordamiento, cuyo número de
error es el 6. Suponemos que ahora ya se habrá dado cuenta de la importancia del número de error ya que
este nos permitirá tratar dentro de la rutina diferentes casos de error con la instrucción Select Case.
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim total As Integer
total = n1 + n2
Worksheets("Hoja2").Range("A1").Value = total
Exit Sub
Tratar_Errores:
Se estará preguntando si todavía se pueden producir más errores. La respuesta es que por supuesto que sí ,
por ejemplo, vay a al procedimiento y pruebe poner Hoja22 en lugar de Hoja2 en WorkSheets(..).
Recomendamos que termine siempre la rutina de errores con un case else de la forma siguiente,
Página 80
Tratar_Errores:
End Select
Resume ' O lo que sea
Es decir, si se produce cualquier otro error no previsto, se informa al usuario que avise a quien proceda
informando del número de error y su descripción.
...No se vayan todavía, aún hay más. La cosa se complica cuando en un programa se definen múltiples
procedimientos y funciones, cada una de ellas puede tratar sus propios errores, pero ¿Qué pasa si el error
se provoca debido a los valores que pasa la función que llama ? o ¿Cómo continuar la ejecución fuera del
procedimiento?, es decir en el procedimiento que llama al que ha provocado el error. Copie los
procedimientos siguientes mediante los cuales estudiaremos diferentes casos.
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim Total As Integer
Exit Sub
Tratar_Errores:
Select Case Err.Number
Case 13:
MsgBox ("Debe introducir valores numéricos")
Case 6:
MsgBox ("El valor es demasiado grande o demasiado pequeño. " & _
El número debe estar comprendido entre -32768 y 32767")
Case Else
MsgBox ("Error no previsto. Llame al responsable facilitando la " & _
"información que sigue " & Chr(13) & "Número de Error : " & _
Err.Number & Chr(13) & "Descripción : " & Err.Description)
Exit Sub ' O lo que sea
End Select
Resume ' O lo que sea
End Sub
Página 81
Private Sub Poner_Calculo(n1 As Integer, n2 As Integer, Numero_Hoja As Integer)
Total = n1 + n2
Worksheets(Numero_Hoja).Range("A1").Value = Total
End Sub
Una vez entrados los valores en el procedimiento Prueba se llama a Poner_Calculo, simplemente suma
los dos valores y los asigna a una hoja del libro de trabajo (observe que la hoja viene indicada por el
parámetro Numero_Hoja).
Observe que el procedimiento Poner_Calculo no tiene rutina de tratamiento de errores, puede pensar que
si se produce un error dentro de él se detendrá el programa, pero no es así. Si se produce un error dentro
del procedimiento Poner_Calculo el programa pasa a ejecutar la rutina de tratamiento de errores definida
dentro de Prueba, esto algunas veces (pocas) puede ser lo que conviene, pero compruebe el efecto
indeseable que ocurre aquí.
Ejecute el programa e introduzca los valores siguientes n1=25000 y n2=20000, los dos valores entran
dentro del rango de los datos Integer, pero su suma 45000 no, se producirá un error de desbordamiento en
la instrucción Total = n1 + n2 del procedimiento Poner_Calculo y se procederá a ejecutar las
instrucciones de la rutina de error definida en el procedimiento Prueba; aquí, después de mostrar el error,
se vuelve a ejecutar la instrucción Total = n1+n2 debido a la instrucción Resume y el programa entra en
un bucle infinito ya que no es posible cambiar los valores de n1 y n2. La solución aquí es sencilla, sólo
debe cambiar Resume por Resume Next o Resume Etiqueta. Otra posibilidad es implementar una rutina de
tratamiento de errores dentro del procedimiento Poner_Calculo, o simplemente desactivar la rutina de
tratamiento de errores antes de llamar al procedimiento mediante las instrucción On Error Goto 0.
Esto último conlleva la consecuencia que si se produce un error dentro del procedimiento Poner_Calculo
el programa se detendrá.
Muchas veces este tipo de errores se pueden controlar mejor utilizando una variable global. Esta variable
permitirá recoger el error que se ha producido en la función para luego tratarlo cuando la ejecución del
programa vuelva a la función llamadora. Observe como quedaría nuestro ejemplo.
Option Explicit
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim Total As Integer
Página 82
Call Poner_Calculo(n1, n2, 2)
If gError <> 0 Then ' Si al volver de la función gError <> 0 --> Error dentro de la función
MsgBox ("Error en la Función Poner Cálculo." & Chr(13) & gError)
Exit Sub ' O lo que sea
End If
Exit Sub
Tratar_Errores:
Select Case Err.Number
Case 13:
MsgBox ("Debe introducir valores numéricos")
Case 6:
MsgBox ("El valor es demasiado grande o demasiado pequeño. " & _
El número debe estar comprendido entre -32768 y 32767")
Case Else
MsgBox ("Error no previsto. Llame al responsable facilitando la " & _
"información que sigue " & Chr(13) & "Número de Error : " & _
Err.Number & Chr(13) & "Descripción : " & Err.Description)
Exit Sub ' O lo que sea
End Select
Resume ' O lo que sea
End Sub
gError = 0
Total = n1 + n2
Worksheets(Numero_Hoja).Range("A1").Value = Total
Exit Sub
Tratar_Errores2:
End Sub
El funcionamiento aquí es bastante simple. Se construye una rutina de tratamiento de errores dentro de la
función que simplemente asigna el número de error a la variable gError, cuando se devuelve el control al
procedimiento llamador se inspecciona esta variable y si su valor es distinto de 0 se debe tratar el error
(en el ejemplo simplemente se termina el programa, por supuesto el tratamiento podría se diferente).
Página 83
Definir errores propios.
Visual Basic incorpora la instrucción Error con la que es posible definir o generar errores propios. Puede
que se esté preguntando para que quiere definirse errores propios, dicho de otra forma, para que provocar
errores propios. Bueno, pues por ejemplo, para un mayor control en programas largos y complejos, para
validar datos, y algunos procesos más.
Vea el siguiente ejemplo, es un caso en los que puede resultar interesante provocar un error. Es el ejemplo
que hemos utilizado en la sección, el programa pide tres valores, luego llama a la función Poner_Calculo
donde se suman n1 y n2 y el resultado se divide por n3. Observe que se ha definido una rutina de
tratamiento de errores que según el error que se haya producido dentro de la función, asigna un valor a la
variable global gError (ahora definida como tipo Long). Cuando el programa vuelve al procedimiento
Prueba se comprueba el valor de gError, si es distinto de 0, se provocar un error Error(gError), el
programa salta entonces a la rutina de tratamiento de errores definida dentro del procedimiento donde
gracias a los valores de error asignados sabemos que tipo de error se ha producido y en que función o
procedimiento se produjo.
Option Explicit
Sub Prueba()
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim Total As Integer
Exit Sub
Página 84
Tratar_Errores:
gError = 0
Total = n1 + n2
Total = Total / n3
Worksheets(Numero_Hoja).Range("A1").Value = Total
Exit Sub
Tratar_Errores2:
Página 85
' Otro Error
Case Else
gError = Err.Number
End Select
End Sub
Y con esto terminamos el capítulo de depuración de programas y tratamiento de errores. Utilice estos
mecanismos siempre que sus programas vayan a ser usados por otras personas. Con la depuración podrá,
además de detectar errores más fácilmente, comprobar como el programa en situaciones extremas (y
créanos, si lo han de utilizar diferentes usuarios se producirán). Con las rutinas de tratamiento de errores
podrá controlar muchos de ellos, y si se produce uno de imprevisto, al menos le será más fácil localizarlo
o saber las causas que lo han provocado.
Finalmente y como opinión personal, si conoce lenguajes como Delphi o Java o algún día trabaja con
ellos comprobar á que el control de errores está mucho mejor acabado que con Visual basic. Con visual a
uno siempre le queda la sensación de que algo queda suelto, y cosas como los saltos de Resume Etiqueta
dejan siempre cierta intranquilidad.
• Aplicación de ejemplo.
Para ver el funcionamiento de los distintos controles, construiremos una pequeña aplicación que nos sirva
para gestionar una pequeña tabla de registros, básicamente extraer datos que cumplan una determinada
condición. La mayoría de funciones que aplicaremos pueden hacerse directamente desde las utilidades del
menú Datos/ Filtro avanzado que lleva incorporado el propio Excel pero creemos que será un buen
ejemplo para ver las posibilidades de los controles.
Abra su aplicación Excel y active la hoja de cálculo Lista7.xls que debió bajar junto a este documento, en
la primera hoja está la lista de registros que utilizaremos en los ejemplos que veremos a continuación. En
la Hoja2 se encuentrar algunos datos necesarios para los controles.
Obviamente para insertar controles en la hoja deberá tener activada la barra de controles. Active Ver/
Barras de Herramientas/ Cuadro de Controles. Deberá activarse una barra como la siguiente.
Página 86
Cuadro de texto y Botón.
Lo primero que haremos es algo muy sencillo, simplemente copiaremos en Hoja2, los datos
correspondientes a los registros de Hoja1 cuyos datos correspondientes a la columna Nombre coincidan
con el que teclearemos en una cuadro de texto que insertaremos en Hoja2. Los datos se copiaran a partir
de la celda A16. El botón simplemente servirá para invocar la macro que copiará los datos.
Sólo tiene que seleccionar el elemento de la barra de controles y dibujarlo sobre la hoja (Hoja 2 en
nuestro ejemplo, procure que coja más o menos el rango correspondiente a las celdas C2 y D2.
Las etiquetas sirven básicamente para acompañar los controles con texto descriptivo. Seleccione el botón
y dibuje en la hoja el rectángulo para insertar la etiqueta, póngalo al lado del control cuadro de texto.
Página 87
Insertar un Botón.
Los botones se utilizan básicamente para invocar las macros que realizarán las accio nes. No es el único
control que puede invocar macros, cualquiera de los controles puede invocarla, pero es el más habitual.
No es necesario cambiar el nombre de los controles pero si muy conveniente, tenga en cuenta que a través
de los nombres de un control será como se refiera a ellos a través de las macros. Siempre es mejor llamar
a un control por un nombre descriptivo que por Text1 o Command1, etc. Al control cuadro de texto le
pondremos el nombre Datos_Buscar.
. Cambie la propiedad Captión del Botón pro Copiar Datos y su propiedad Name por Copiar_Datos
(debe poner el guión bajo ya que la propiedad Name no permite espacios en blanco).
A continuación crearemos la macro que será invocada cuando se pulse el botón. La macro simplemente
debe buscar en la columna A de la lista de Hoja1 el nombre que coincida con el tecleado en el cuadro de
texto y luego copiarlo hacia Hoja2 a partir de la casilla A16. La macro controlará que haya algo en el
cuadro de texto. Se copiaran todas las coincidencias, es decir si hay dos nombres Ramón se copiarán los
dos. Si no hay ninguna coincidencia se mostrará un mensaje avisando de ello.
Los eventos.
Cuando se programan controles bien sea directamente en la hoja como estamos haciendo ahora o desde
un formulario, debe tener en cuenta los eventos. Un evento en cuando ocurre algo sobre un objeto, en
entornos Windows constantemente se están produciendo eventos. Clicks con el ratón sobre un control,
teclear sobre un cuadro de texto, etc. provocan eventos que son recogidos por el sistema. Programar un
evento significa hacer que se ejecuten determinadas instrucciones cuando ocurra dicho evento. En el caso
que nos ocupa ahora, haremos que las acciones necesarias para copia r los datos se ejecuten cuando se
haga un clic sobre el botón Copiar_Datos. En general, todos los controles son capaces de capturar
diferentes eventos. El sistema de eventos es bastante más complejo de lo que estudiaremos aquí, nosotros
simplemente tendremos en cuenta que evento debemos elegir para lanzar la ejecución de determinado
código. Veamos en la siguiente sección como asociar el código necesario para copiar datos cuando
ocurre el evento click (`pulsar el botón y soltarlo) sobre el botón Copiar_Datos.
Página 88
Escribir código para el evento Click del Botón.
1. Haga doble click sobre el botón, observe que se activa automáticamente la ventana de Visual Basic y
aparece un esqueleto de función
Sub Copiar_Datos_Click()
End Sub
Es lo que se llama procedimiento de evento, es decir, este procedimiento está asociado al evento
Click del Botón Copiar_Datos, observe que el procedimiento lleva un nombre compuesto por el
nombre del control "Copiar_Datos", un guión bajo y el nombre del evento "Click", en general todos
los procedimientos de evento se nombra de esta forma,
NombreDeControl_NombreDeEvento
Observe la lista de la parte superior derecha, la que tiene el elemento Click. Es la lista de eventos, si
la despliega verá que además del elemento Click aparecen unos cuantos más DblClick (Doble Click)
Gotfocus (Coger el foco), etc. todos ellos son eventos programables del control botón, es decir,
podemos incluir código que se ejecutará cuando ocurren dichos eventos. Por otra parte, todos los
controles tienen un evento "por defecto", dicho de otra forma, cuando se programa un evento del
control casi siempre será ese. En el caso de nuestro botón (y de todos los botones), el evento por
defecto es Click, observe que lo habitual es que queramos que el código se ejecute cuando se hace
click sobre el botón, no cuando este coge el foco o cuando el puntero de ratón pasa sobre él, etc. El
evento por defecto de un control es el que aparece cuando, en modo diseño, se hace doble clic sobre
él, obviamente este se puede cambiar, por el que más nos convenga.
2. Teclear el código para llevar a cabo las acciones. Recuerde que lo que se desea hacer es copiar hacia
hoja2 todos los nombres que coincidan con el que está en el cuadro de texto. El código será el que
sigue, observe los comentarios.
Option Explicit
' Activar Casilla A16 de Hoja2 y referenciarla con r2, Es la casilla donde se copiarán
'los datos en caso que se encuentren
Worksheets(2).Range("A16").Activate
Set r2 = ActiveCell
Página 89
' Recorrer todo el rango de datos de Hoja1
encontrado = False
Do While Not IsEmpty(ActiveCell)
' Si la casilla activa = Datos_Buscados
If ActiveCell.Value = Datos_Buscar.Text Then
encontrado = True
' Referenciar con r1 la celda donde están os datos
Set r1 = ActiveCell
' Copiar los datos
Call Copiar_Datos_Hojas(r1, r2)
' Referenciar con r2 la casilla donde se copiaran los próximos datos
Set r2 = r2.Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Activate
Loop
Worksheets(2).Activate
If encontrado Then
MsgBox ("Datos Copiados")
Else
MsgBox ("Ninguna coincidencia")
End If
End If
End Sub
' Procedimiento para borrar los datos de Hoja2 se llama antes de proceder a la nueva copia
Private Sub borrar_datos()
Dim i As Integer
Worksheets(2).Range("A16").Activate
For i = 0 To Num_Columnas - 1
ActiveCell.Offset(0, i).Value = ""
Next i
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Dim i As Integer
Dim Datos As Variant
End Sub
Página 90
• Cuadros Combinados (ComboBox) .
Con lo hecho hasta ahora podemos extraer de la tabla los registros cuyo nombre coincida con el tecleado
en el cuadro de texto. A continuación haremos que se pueda escoger el campo, es decir, podremos extraer
coincidencias del Nombre, los Apellidos, la Ciudad, etc. Para ello incluiremos un cuadro combinado que
permita escoger en que campo o columna tiene que buscarse la coincidencia. La lista, por supuesto,
mostrará los nombres de las columnas.
Incluya un cuadro combinado en Hoja2 y póngale por nombre (propiedad Name ). Lista_Campos
Propiedad ListFillRange.
Con esta propiedad deberemos definir los elementos que debe mostrar la lista, debe especificarse el rango
que contiene los elementos a mostrar, el rango debe ser una columna (o dos , o tres, etc.). En nuestro caso
el rango será J1:J6 de Hoja2 (Observe que en este rango están especificados los nombres de las
columnas).
Propiedad LinKedCell.
En esta propiedad debe especificar en que celda debe copiarse el elemento seleccionado de la lista. En
esta lista no utilizaremos esta propiedad.
Cuidado con esta propiedad, tenga en cuenta que los elementos de la lista son tratados como datos de
tipo String aunque contenga números o fechas, por lo que en estos casos, a veces será necesario aplicar
funciones de conversión de datos antes que el dato se copie en la hoja. Por ejemplo, si alguna vez
construye una lista con números verá que el dato seleccionado se alinea a la derecha, si son fechas, no se
muestra con el formato correspondiente.
Propiedad ListIndex.
Mediante esta propiedad podremos saber que elemento de la lista es el seleccionado por su número de
orden. Es decir, si está seleccionado el primero, ListIndex valdrá 0, si está seleccionado el segundo valdrá
1, etc. Si no hay ningún elemento seleccionado valdrá -1. Tenga en cuenta que esta propiedad sólo está
disponible en tiempo de ejecución, es decir la podremos leer mientras esté funcionando el programa, no
se puede establecer en modo diseño, observe que no aparece en la ventana propiedades del cuadro
combinado.
Bien, ya sabemos como funcionan las propiedades que utilizaremos para hacer que se extraigan de la
tabla los elementos que coincidan con el valor del cuadro de texto y cuya columna o campo sea el
seleccionado de la lista, veamos como quedará la macro.
En primer lugar cree un procedimiento llamado Proceder donde deberá copiar todo el código que ahora
está en Copiar_Datos. Debemos hacer esto porque antes de proceder se deben hacer ciertas
comprobaciones que ya iremos viendo conforme avanzamos, por el momento la comprobación a hacer es
la de ver sobre que campo o columna se deben buscar las coincidencias con los datos tecleados en el
cuadro de texto. La función Copiar_Datos quedará de la forma siguiente.
Página 91
Private Sub Copiar_Datos_Click()
Dim i As Integer
End Sub
.....
Por
Explicación del proceso. Cuando se selecciona un elemento de la lista, su propiedad ListIndex es igual
al orden que ocupa dicho elemento en la lista, supongamos que escogemos Ciudad, ListIndex valdrá 2.
Este valor se pasa a Proceder y es recogido por el parámetro Columna. Ahora observe la línea
Es decir la coincidencia con el valor del cuadro de texto Datos_Buscar se busca respecto a la casilla que
está a la derecha ( offset ) de la activa, tantas columnas como las expresadas por el valor de la variable
Columna . Observe que en este caso la casilla activa siempre corresponde a una de la columna A, si la
variable Columna vale 2 la coincidencia se buscará respecto al valor de la columna C (2 más hacia la
derecha) y que coincide con la columna correspondiente a la Ciudad.
Página 92
Segunda Lista.
Ahora crearemos una lista donde sea posible escoger la relación de comparación. Hasta ahora la
extracción se realizaba con aquellos elementos iguales al valor entrado en el cuadro de texto
Datos_Buscar, esta segunda lista permitirá escoger si los elementos a extraer deben ser Iguales, Menores,
Mayores, Menores Iguales o Mayores Iguales que el valor de Datos_Buscar. Para ello debe construir una
segunda lista con las propiedades siguientes.
Name = Lista_Comparación.
ListFillRange = L1:L5 Observe que en este rango están los valores correspondientes a la
operación relacional que se desea realizar (Igual, Menor, etc.)
Obviamente deberemos modificar las funciones para realizar las operaciones con respecto al elemento
seleccionado en el cuadro de lista Lista_Comparación. Dejaremos el procedimiento Proceder de la forma
siguiente y crearemos una función que haga las comparaciones, esta función a la que hemos llamado
Comparar devuelva el valor True si el resultado de la comparación es Cierto y False si es falso.
' Activar Casilla A16 de Hoja2 y referenciarla con r2' Es la casilla donde se copiarán
' los datos en caso que' se encuentren
Worksheets(2).Range("A16").Activate
Set r2 = ActiveCell
encontrado = False
' Recorrer todo el rango de datos de Hoja1
Do While Not IsEmpty(ActiveCell)
Página 93
Set r2 = r2.Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Activate
Loop
Worksheets(2).Activate
If encontrado Then
MsgBox ("Datos Copiados")
Else
MsgBox ("Ninguna coincidencia")
End If
End If
End Sub
' Función que compara dos valores con un operador relacional =, >, <, etc.
' La función devuelve True o False en función de la comparación.
' Parámetros.
' Valor1 y Valor2 = Valores que se comparan
' Signo = variable que sirve para escoger el operador relacional
' en función de su valor, ver estructura Select Case
Dim q As Boolean
Comparar = q
End Function
ActiveCell.Offset(0,Columna) serán los valores que se compararán con el valor del cuadro de
texto.
Página 94
Pero todo esto no funcionará.
Pruebe lo siguiente.
Recuerde que los valores de un cuadro de texto son siempre datos tipo String, entonces en este caso
estarán comparándose valores String (los del cuadro de texto) con valores numéricos, (los recogidos de la
columna Cantidad). Tenga en cuenta siempre esta circunstancia cuando trabaje con elementos de
formulario. Vea la sección siguiente donde se solucionará este problema y de paso se verá como construir
Lista con más de una columna.
Para solucionar el problema del apartado anterior utilizaremos una segunda columna cuyos elementos
indicarán el tipo de datos del campo. Observe el rango K1:K6 de Hoja2, las letras significan lo siguiente
T campo tipo texto o string, N campo Numérico, F campo fecha. Para incluir esta segunda columna en la
lista deberá cambiar las propiedades siguientes.
ListFillRange , J1:K6
ColumnCount , 2 (Indicamos el número de columnas de la lista.
ColumnWidths, 4pt;0pt Debe separar el ancho de cada columna mediante un punto y coma.
Observe que la segunda columna no se mostrará debido a que hemos especificado el ancho a 0.
ColumnBound, 1 significa que el dato que recogerá la propiedad Value corresponde al elemento
seleccionado de la primera columna.
La función Comparar y su correspondiente llamada quedarán de la forma siguiente. Observe que se han
incluido variables que recogen los valores de Lista_Comparación y Lista_Campos, simplemente lo
hemos hecho para que quede más claro.
Página 95
http://www.cybercursos.net
............
Do While Not IsEmpty(ActiveCell)
La función Comparar.
Dim q As Boolean
Comparar = q
End Function
Página 96
• Control Numérico .
Inserte un control de número y póngale por nombre (propiedad Name ) Numero.
Este control se utiliza normalmente para aumentar y disminuir valores numéricos de un cuadro de texto,
aunque por supuesto puede utilizarse para otras funciones. Utilizaremos un control de este tipo para
aumentar los valores del Cuadro de Texto Datos_Buscar pero sólo si el campo seleccionado de
Lista_Campos es de tipo numérico. Para ello activaremos este control únicamente cuando el campo
seleccionado sea de este tipo. Para activar o desactivar un control se utiliza la propiedad Enabled, si está
a true el control estará activado y sino estará desactivado.
Observe que la acción de activar o desactivar el control de número deberemos hacerlo cuando se
seleccione un elemento de Lista_Campos. Es decir el código deberemos insertarlo en el evento Change
(cambio) de Lista_Campos. Haga doble clic sobre el elemento Lista_Campos para desplegar su
procedimiento de evento. El código para controlar la activación del control es el que sigue,
Dim i As Integer
Dim Tipo_Datos As String
i = Lista_Campos.ListIndex
If i >= 0 Then
Tipo_Datos = Lista_Campos.Column(1, i)
End If
End Sub
Para establecer los valores que puede devolver un control de número se deben modificar las propiedades
siguientes.
Estos valores se pueden establecer en tiempo de diseño, pero lo que haremos a continuación será
establecerlos en tiempo de ejecución dependiendo del campo que s e seleccione en Lista_Campos.
Estableceremos los valores siguientes.
Max = 99
Min = 18
SmallChange = 1
Página 97
Para campo cantidad.
Max = 500.000
Min = 10.000
SmalChange = 1.000
Dim i As Integer
Dim Tipo_Datos As String
i = Lista_Campos.ListIndex
If i >= 0 Then
Tipo_Datos = Lista_Campos.Column(1, i)
Else
Numero.Enabled = False
End If
End If
End Sub
Y para terminar ya sólo debemos codificar el evento Change del control de número para que el Cuadro
de texto vaya incrementando o decrementando su valor cada vez que se haga clic sobre el control.
Datos_Buscar.Value = Numero.Value
End Sub
Página 98
Pero además debemos hacer que cuando se cambie el valor del cuadro de texto también se cambie el del
control de número de forma que cuando se pulse sobre él, incremente o decremente a partir del valor que
hay en el cuadro de texto. Si no se hace así, el incremento o decremento se hará en función del valor que
tenga el control de número no el que está en el cuadro de texto. Modificaremos el evento Change del
cuadro de texto. Observe que se controla que sólo se ejecute la acción si el control de número está
activado, además se debe controlar también el valor máximo y mínimo que puede contener el cuadro de
texto, si no se hiciera así se generaría un error al poner un valor mayor o menor que los definidos en las
propiedades Max y Min del control de número.
Antes de proceder con el siguiente control déjenos remarcar que la programación de controles
implica que muchas veces unos dependan de otros por lo que debe ser extremadamente
cuidadoso en la elaboración del código de los eventos. Observe las últimas operaciones que
hemos realizado debido a la interdependencia de dos controles .
A continuación utilizaremos una casilla de verificación que si está activada provocará que los datos tipo
texto se conviertan a mayúscula antes de copiarse, se utilizará la función Ucase. Simplemente se deberá
comprobar que la casilla esté activada y si lo está proceder a la conversión (sólo si el dato es tipo texto).
Name , Mayusculas.
Captión, Mayúsculas.
Para comprobar si la casilla está activada o no simplemente debe mirarse su propiedad Value. Si vale true
es que está activada, sino valdrá False.
Página 99
Vea como quedará el procedimiento Copiar_Datos_Hojas, observe que además de comprobar que la
casilla esté activada se utiliza la función TypeName para comprobar si los datos que se van a copiar son
del tipo String, si no lo fueran, la función Ucase provocaría un error. TypeName(Expresión ) devuelve
una cadena que indica el tipo de datos de la expresión.
Dim i As Integer
Dim Datos As Variant
End Sub
Como ejemplo de su utilización crearemos dos botones de opción que sirvan para que a la hora de copiar
datos hacia la hoja, se copie sólo los valores de Nombre y Apellidos o todos como hasta ahora.
Botón1.
Name , Todo.
Caption, Todo.
Botón2.
Name , Solo_Nombre.
Caption, Nombre y Apellidos.
Si está activado el primer botón deberán copiarse todos los datos mientras que si está activado el segundo
solo se copiarán el Nombre y los Apellidos. El procedimiento Copiar_Datos_Hojas quedará de la forma
siguiente.
Página 100
Private Sub Copiar_Datos_Hojas(r1 As Range , r2 As Range )
Dim i As Integer
Dim Datos As Variant
Dim Final As Integer
End Sub
Y aquí terminamos el estudio de cómo se pueden utilizar los controles de formulario dentro de una hoja
de cálculo. Recordarle para terminar que debe ser extremadamente cuidadoso con el código que utilice en
los procedimientos de evento sobre todo si los controles se interrelacionan entre ellos.
El siguiente Listado incluye todo el código que se ha utilizado. Puede probar su funcionamiento cargando
el archivo Lista7_2.xls que debió descargarse junto a este tema.
Página 101
Option Explicit
Dim i As Integer
Dim x As Integer
End Sub
Página 102
' Recoger el Signo de comparación
Signo = Lista_Comparacion.ListIndex
' recoger el tipo de datos
Tipo_Datos = Lista_Campos.Column(1, Columna)
Worksheets(2).Activate
If encontrado Then
MsgBox ("Datos Copiados")
Else
MsgBox ("Ninguna coincidencia")
End If
End If
End Sub
' Función que compara dos valores con un operador relacional =, >, <, etc.
' La función devuelve True o False en función de la comparación.
' Parámetros.
' Valor1 y Valor2 = Valores que se comparan
' Signo = variable que sirve para escoger el operador relacional
' en función de su valor, ver estructura Select Case
Dim q As Boolean
Página 103
Case 3:
q = Valor1 >= Valor2
Case 4:
q = Valor1 <= Valor2
End Select
Comparar = q
End Function
' Procedimiento para borrar los datos de Hoja2 se llama antes de proceder a la nueva copia
Private Sub borrar_datos()
Dim i As Integer
Worksheets(2).Range("A16").Activate
For i = 0 To Num_Columnas - 1
ActiveCell.Offset(0, i).Value = ""
Next i
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Dim i As Integer
Dim Datos As Variant
Dim Final As Integer
End Sub
Página 104
Private Sub Datos_Buscar_Change()
Dim i As Integer
Dim Tipo_Datos As String
i = Lista_Campos.ListIndex
If i >= 0 Then
Tipo_Datos = Lista_Campos.Column(1, i)
Else
Numero.Enabled = False
End If
End If
Página 105
End Sub
Página 106