Manual de macros2 pre

http://www.cybercursos.net

MACROS EN MS EXCELL
¿Que es una macro ?.

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.

Objetos, propiedades y métodos.

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 .

Programación Orientada a Objetos o Programación Basada en Objetos.

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.

Preparar un archivo nuevo.

Para entrar en el editor de Visual Basic, ejecute los pasos siguientes.

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).

Insertar un nuevo módulo.

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

Y termina con la instrucción

End Sub.

A continuación crearemos un procedimiento para poner el texto "Hola" en la casilla A1.

Ejemplo 1

Sub Primero

Range ("A1").Value = "Hola"

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.

WorkSheets(1).Range ("A1").Value = "Hola"

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.

Ejecutar un procedimiento o función.

Pruebe ejecutar el primer procedimiento de ejemplo.

1. Sitúe el cursor dentro del procedimiento.

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.

Para ejecutar el procedimiento desde la hoja de cálculo.

Debe estar en una hoja, no en el editor de Visual Basic

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.

2. Seleccione la macro de la lista y pulse sobre el botón Ejecutar.

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.

Referenciar un rango de celdas.

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

DIM variable AS tipo.

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.

Dim Texto As String

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.

Texto = InputBox("Introduzca el texto", "Entrada de datos").

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.

Título : Es el título para la ventana InputBox. Es un parámetro opcional.

Valor por defecto: Es el valor que mostrará por defecto el cuadro donde el usuario entra el valor.
Parámetro opcional.

Posición Horizontal: La posición X de la pantalla donde se mostrará el cuadro, concretamente es
la posición para la parte izquierda. Si se omite el cuadro se presenta horizontalmente centrado a
la pantalla.

Posición Vertical: La posición Y de la pantalla donde se mostrará el cuadro, concretamente es la
posición para la parte superior. Si se omite el cuadro se presenta verticalmente centrado a la
pantalla.

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

Dim Texto As String

' Chr(13) sirve para que el mensaje se muestre en dos Líneas
Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos")
ActiveSheet.Range("A1").Value = Texto

End Sub

Este ejemplo también se puede hacer sin variables.

Sub Entrar_Valor

ActiveSheet.Range("A1").Value = InputBox("Introducir un texto " & Chr(13) & "Para la casilla
A1", "Entrada de datos")
End Sub

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

Dim Casilla As String
Dim Texto As String

Casilla = InputBox("En que casilla quiere entrar el valor", "Entrar Casilla")
Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla " & Casilla , "Entrada de
datos")

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

Dim Casilla As String
Dim Texto As String

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

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

Dim Texto As String

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).

Tipo de datos Tamaño Intervalo
De almacenamiento
Byte 1 byte 0 a 255
Boolean 2 bytes True o False
Integer 2 bytes -32.768 a 32.767
Long(entero largo) 4 bytes -2.147.483.648 a 2.147.483.647
Single (coma flotante/ 4 bytes -3,402823E38 a -1,401298E-45 para valores negativos;
precisión simple) 1,401298E-45 a 3,402823E38 para valores positivos
Double (coma flotante/ 8 bytes -1,79769313486232E308 a -4,94065645841247E-324
precisión doble) para valores negativos; 4,94065645841247E-324 a
1,79769313486232E308 para valores positivos
Currency (entero a 8 bytes -922.337.203.685.477,5808 a
escala) 922.337.203.685.477,5807
Decimal 14 bytes +/-79.228.162.514.264.337.593.543.950.335 sin punto
decimal; +/-7,9228162514264337593543950335 con
28 posiciones a la derecha del signo decimal; el
número más pequeño distinto de cero es+/-
0,0000000000000000000000000001
Date 8 bytes 1 de enero de 100 a 31 de diciembre de 9999
Object 4 bytes Cualquier referencia a tipo Object
String (longitud 10 bytes + longitud de Desde 0 a 2.000 millones
variable) la cadena

String(longitud fija) Longitud de la cadena Desde 1 a 65.400 aproximadamente

Variant(con números) 16 bytes Cualquier valor numérico hasta el intervalo de un tipo
Double

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)

Conversión de Tipos de datos.

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()

Dim Numero1 As Integer

Numero1 = InputBox("Entrar el primer valor", "Entrada de datos")
Numero2 = InputBox("Entrar el primer valor", "Entrada de datos")
ActiveSheet.Range("A1").Value = Numero1 + Numero2

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
1
entrar caracteres numéricos , 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()


Numero1 = Val(InputBox("Entrar el primer valor", "Entrada de datos"))
Numero2 = Val(InputBox("Entrar el primer valor", "Entrada de datos"))
ActiveSheet.Range("A1").Value = Numero1 + Numero2

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).

Val(Cadena). Convierte la cadena a un valor numérico.
Str(Número). Convierte el número a una expresión cadena.

Las siguientes funciones tienen la forma Función(Expresión).

Función Tipo devuelto Intervalo del argumento expresión
Cbool Boolean Cualquier expresión de cadena o numérica válida.
Cbyte Byte 0 a 255.
Ccur Currency -922.337.203.685.477,5808 a 922.337.203.685.477,5807.
Cdate Date Cualquier expresión de fecha.
CDbl Double -4,94065645841247E-324 para valores negativos;
4,94065645841247E-324 a 1,79769313486232E308 para
valores positivos.

Cdec Decimal +/-7,9228162514264337593543950335. La menor posición
para un número que no sea cero es
0,0000000000000000000000000001.

CInt Integer -32.768 a 32.767; las fracciones se redondean.
CLng Long -2.147.483.648 a 2.147.483.647; las fracciones se redondean.
CSng Single -3,402823E38 a -1,401298E-45 para valores negativos;
1,401298E-45 a 3,402823E38 para valores positivos.
CVar Variant El mismo intervalo que Double para valores numéricos. El
mismo intervalo que String para valores no numéricos.
CStr String El valor de retorno de CStr depende del argumento expresión.

Bueno, después de esta introducción a las variables, pasemos a estudiar unos cuantos objetos y
propiedades que se utilizan habitualmente.

Objeto Cells(fila, columna).

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"

Utilizar Cells para referenciar un rango.

Esto seria el equivalente a Range("Casilla_Inicial:Casilla_Final"). La forma que se obtiene utilizando
Cells es un poco más larga, pero se verá que a veces resulta mucho más funcional que utilizando
únicamente range. Para referirnos al rango A1:B8, pondremos,

Range(Cells(1, 1), Cells(8, 2)).Value = "Hola"

Otra forma interesante de Cells es la siguiente,

Range("A5:B10").Cells(2, 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,

Dim Var_Objeto As Objeto

Por Ejemplo

Dim R As Range
Dim Hoja As WorkSheet

Para asignar un objeto a una variable debe u tilizar la instrucción Set.

Set Variable_Objeto = Objeto

Por Ejemplo

Set R= ActiveSheet.Range("A1:B10")
Set Hoja = ActiveSheet
Set Hoja = WorkSheets(1)

Veamos a continuación un ejemplo de cómo utilizar este tipo de variables,

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.

Set Variable_Objeto = Nothing

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("A1").Value = 0 ' Poner las casillas donde se guardan los valores 0.
ActiveSheet.Range("A2").Value = 0
ActiveSheet.Range("A3").Value = 0

ActiveSheet.Range("A1").Value = Val(InputBox("Entrar el precio", "Entrar"))

' Si el valor de la casilla A1 es mayor que 1000, entonces, pedir descuento
If ActiveSheet.Range("A1").Value > 1000 Then
ActiveSheet.Range("A2").Value = Val(InputBox("Entrar Descuento", "Entrar"))
End If

ActiveSheet.Range("A3").Value = ActiveSheet.Range("A1").Value - _
ActiveSheet.Range("A2").Value

End Sub

Página 14


Ejemplo 7.

El mismo que el anterior pero utilizando variables.

Option Expl icit

Sub Condicional()

Dim Precio As Integer
Dim Descuento As Integer

Precio = 0
Descuento = 0

Precio = Val(InputBox("Entrar el precio", "Entrar"))

' 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()

If ActiveSheet.Range("A1").Value = ActiveSheet.Range("A2").Value Then

ActiveSheet.Range("A1").Font.Color = RGB(0, 0, 255)
ActiveSheet.Range("A2").Font.Color = RGB(0, 0, 255)

End If

End Sub

Página 15

Manual de macros2 pre

Más contenido relacionado

La actualidad más candente (16)

Destacado (20)

Similar a Manual de macros2 pre (20)

Más de jtk1 (20)

Manual de macros2 pre