1º PARTE - Teoría y Programación de Macros: (Nivel principiante - intermedio)

1º PARTE - Teoría y Programación de Macros (Nivel principiante - intermedio) Introducción

Bienvenido al Manual de Macros de Exceluciones. Estás por comenzar una de las experiencias más fascinantes y atractivas de la Hoja de Cálculos Excel. Con las macros podrás sorprender y sorprenderte porque incrementarás las prestaciones y el potencial de Excel de forma ilimitada. El único límite que tendrás será tu imaginación. Excel y Macros

La Hoja de Cálculos Excel es una de las herramientas más poderosas para el tratamiento de datos y su análisis. Una de las mayores ventajas que posee es la flexibilidad que ofrece y la rapidez con la que podemos construir plantillas y todo tipo de modelos, para diversos usos y aplicaciones. Sin embargo, si realmente quieres "exprimir todo el jugo" a Excel, deberás conocer y utilizar una de sus mayores y más potentes herramientas: las macros. Si eres usuario principiante de la hoja Excel con este manual darás un salto cuántico y te convertirás rápidamente en todo un experto. Y si eres un usuario avanzado de Excel y ya tienes conocimientos previos de macros, este manual te servirá para refrescar algunos conceptos pero también te sorprenderás con nuevos códigos y secciones especiales que hemos preparado para ti. Una definición sencilla

Una buena forma de introducirnos al mundo de las macros es con una definición sencilla y directa. Macro: es un conjunto de instrucciones instruccion es de código (programado) que permiten realizar una tarea determinada

como así también expandir e incrementar las prestaciones de Excel. Las macros se escriben en lenguaje de programación VBA (Visual Basic for Applications). El Excel ya trae incorporado un editor de VBA por lo que las macros se programan dentro del mismo programa Excel. Mucha gente le tiene un poco de miedo a la palabra "programación". Bueno, si ese es tu caso no debes preocuparte. Hace unos años nosotros mismos no teníamos la más mínima idea de programación Excel. Pero la buena noticia es que con un buen manual (confiamos en que este lo es!) podrás aprender y "tomar vuelo" rápidamente en el mundo de las macros. Verás que es fácil, divertido y que puedes expandir al infinito los límites de Excel

Trusted by over 1 million members

Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.





































Utilidad de una macro

Anteriormente definimos a las macros como algo que nos permite expandir e incrementar las prestaciones de la hoja Excel. ¿Cuáles serían algunos ejemplos de esto? Bueno, los ejemplos los iremos viendo en este manual, pero a grandes rasgos podemos comentar que las 4 grandes "áreas" donde se aplican las macros son: 1. Automatización de tareas y procesos que involucran muchos pasos 2. Creación de nuevas funciones a medida (aparte de las que ya posee Excel). 3. Creación de nuevos comandos, complementos y menús. 4. Creación de completas aplicaciones a medida. Como queda en claro, con las macros macros podemos automatizar y crear. Veamos un poco más en detalle estas 4 áreas donde aplicaremos las macros. Automatización de procesos: supongamos que todos los días debemos trabajar en nuestro libro Excel en el cual debemos seleccionar un rango, centrarlo, cambiarle la fuente, poner la fuente en cursiva, aplicarle negrita y finalmente aplicarle bordes a toda la selección. Estas 6 acciones las hacemos manualmente y no parecen muchas, ¿pero que tal si hay que hacer esto en repetidas ocasiones y todos los días? Una macro nos permite ejecutar los 6 pasos automáticamente, tan solo presionando un botón o una tecla. Las tareas ideales para automatizar son aquellas que se hacen de forma repetida e involucran muchos pasos, por ejemplo: imprimir informes, configurar la vista de la hoja, actualizar datos de tablas dinámicas, etc... Creación de funciones a medida: las funciones y fórmulas Excel son quizás la esencia de la hoja de cálculos (si no se pudieran utilizar funciones y fórmulas no habría cálculos!). Excel trae incorporada unas 330 funciones estándar las cuales se pueden utilizar en forma aislada o en forma combinada (anidadas). Sin embargo suele suceder que justo la función que necesitamos no existe. Nuevamente, las macros vienen a nuestra salvación. Podemos programar funciones a medida que hagan exactamente lo que nosotros queremos. Y esas funciones se comportarán igual que las de Excel (aparecerán en el menú de funciones en la categoría que nosotros indiquemos, tendrán sus respectivos argumentos, etc.) Creación de nuevos comandos, complementos y menús: Excel trae una gran cantidad de comandos y menús predefinidos que nos asisten para las operaciones más habituales. Las macros nos permiten crear nuestros propios comandos y menús personalizados, e incorporarlos al Excel. La utilidad de los mismos depende tan solo de nuestras necesidades. Los complementos Excel también están creados con macros. Si ves en el menú Herramientas > Complementos verás una lista de los que tienes instalado en tu Excel. Los mismos suelen ser distribuidos de forma gratuita o también se compran. Su utilidad reside en agregar alguna funcionalidad extra al Excel. Creación de aplicaciones a medida: Excel es utilizado en diversos campos y por una gran cantidad de usuarios. Las macros te permitirán construir complejas y elegantes aplicaciones para cualquier uso que quieras darles. El límite solo es tu imaginación. Una aplicación Excel consiste en algo más que una simple plantilla con datos y fórmulas. Una aplicación Excel es un verdadero programa de software con una serie de características que lo hacen utilizable por cualquier usuario sin que el mismo tenga que entender la lógica "Exceliana" que hay por detrás. Objetos, Propiedades y Métodos (OPM)

Cuando hablamos de macros hablamos de Objetos, Propiedades y Métodos (OPM). Estos son los 3 conceptos generales más importantes que debes conocer a la hora de programar las macros. De momentos solo te daremos una sencilla definición y luego iremos profundizando más en ellos.







































Métodos: finalmente los métodos son las acciones que podríamos ejercer sobre las frutas (comprarlas, venderlas, comerlas, almacenarlas, limpiarlas, quitarles la piel,…). Pasemos ahora a ver un sencillo ejemplo de algunos OPM de Excel. Objetos: prácticamente cada cosa que veas en Excel es un objeto. Ejemplos de objetos son: un libro Excel, una hoja, un rango, una celda, un menú, un gráfico, una tabla dinámica, un cuadro de diálogo, las etiquetas de hojas, las columnas, las filas, etc. En fin, cada partecita de Excel es un objeto. Un objeto es algo que puedes ver e identificar con un nombre. Propiedades: las propiedades son las características de los objetos. Por ejemplo, para el objeto "celda" algunas de sus propiedades serían: alto, ancho, color, bloqueada o desbloqueada, vacía, con un número o con una fórmula, etc. Por ejemplo para el objeto "hoja" algunas de sus propiedades serían: visible u oculta, con o sin líneas de división, con o sin barras de desplazamiento vertical y horizontal, etc. Métodos: un método es una acción que podemos realizar sobre el objeto o una de sus propiedades. Por ejemplo sobre el objeto "hoja" podemos: activar, mover, copiar o borrar. De momento estas definiciones son suficientes para empezar a entender algunos conceptos. Recuérdalas bien porque las usaremos en todo el manual. En la medida que adquieras mayores conocimientos sobre como programar macros irás manejando y conociendo cada vez más objetos, con sus propiedades y sus métodos. En definitiva, de eso se trata programar una macro: conocer el nombre del objeto, conocer el nombre de alguna propiedad del mismo que quieras modificar y también conocer el nombre de algún método que desees aplicarle. Lenguaje VBA

Recuerda que la programación de macros se hace a través del lenguaje VBA (Visual Basic for Applications) desde el editor VBA que trae incorporado Excel. Este tipo de programación también se conoce como "Programación Orientada a Objetos" (OOP, Objects Oriented Programming). La Programación orientada a Objetos nos permite trabajar sobre los objetos propios de Excel como así también crear nuestros propios objetos. Esto se relaciona con lo que te comentábamos en la sección anterior sobre Objetos, Propiedades y Métodos. Hablar de macros, lenguaje VBA y OPM es lo mismo. El lenguaje VBA es muy fácil de entender y siempre gira en torno a seleccionar los objetos, cambiar sus propiedades y/o ejecutarles distintos métodos. La única particularidad es que el lenguaje VBA solo está en inglés. Sin embargo, y para que no te desalientes, conocemos muchísimos programadores de macros que prácticamente no saben inglés! Esto es así porque solo hay que conocer la palabra en inglés para cada objeto, propiedad y método. Veamos un sencillo ejemplo de algunos objetos de Excel y su denominación en inglés, el idioma utilizado por las macros: Ejemplos de Objetos VBA (entre paréntesis su significado en español) Cell (celda) Range (rango) Worksheet (hoja) Workbook (libro) Ejemplos de Propiedades VBA (entre paréntesis su significado en español) Value (valor) Color (color) Format (formato)







































En la medida que avances con la lectura de este manual te irás familiarizando con la denominación de los distintos objetos, propiedades y métodos. El lenguaje VBA tiene miles de OPM, y existe una forma muy práctica de conocerlos todos que es con la grabadora de macros, tema que trataremos más adelante. Aprender macros es mucho más fácil de lo que tu te imaginas. Es cierto que hay macros muy complicadas que requieren un conocimiento muy avanzado. Pero es un lenguaje fácil y muy intuitivo. Además Excel posee una grabadora de macros que las escribe de forma automática. Luego nosotros podemos retocarlas a gusto. Te aseguramos que en cuanto termines este manual estarás escribiendo tus propias macros y te sorprenderás lo fácil que es seguir aprendiendo y profundizando tus conocimientos. Nosotros te daremos las herramientas para que lo consigas! Como comenzar

Antes de comenzar a programar macros es necesario que conozcas la barra de herramientas VBA y las distintas formas de acceder al editor de macros, que es la herramienta donde escribirás el código de las mismas. En las secciones siguientes te enseñaremos ambos conceptos. Barra de Herramientas VBA El primer paso para empezar a programar macros es familiarizarnos con las herramientas que nos ofrece Excel para programarlas. Excel posee una Barra de Herramientas de Macros o VBA. Puedes acceder a la misma desde el menú Herramientas > Macros. Dicho menú se ve como en la fotografía a continuación (fíjate que también se indican las combinaciones combinaciones de teclas para acceder a dichas opciones).

También tienes la opción de dejar siempre visible dicha barra de herramientas. Puedes hacer esto desde el menú Ver > Barras de Herramientas > Visual Basic. Verás como aparece una nueva barra de herramientas de macros. Puedes ubicar esta barra de herramientas donde te sea más cómodo.

Editor VBA

El Editor de Visual Basic es la aplicación que trae Excel desde donde se escriben y guardan las macros. Tienes 3 formas de acceder al editor: A. Desde el menú Herramientas > Macros > Editor de Visual Basic B. Desde el botón Editor de Visual Basic de la Barra de Herramientas Visual Basic. C. Desde el teclado (Teclas de Método Abreviado): ALT+F11 (el acceso a la Barra de Herramientas de la opción 1 y 2 los explicamos en la sección anterior)







































El editor contiene 3 ventanas principales: la Ventana Proyecto (parte izquierda superior), la Ventana de Código (parte derecha) y la Ventana Propiedades (parte izquierda inferior). La Ventana Proyecto - VBA Project: esta ventana muestra los libros Excel (xls) o los complementos (xla) abiertos. Usualmente verás nombres del tipo "VBAProject" y entre paréntesis el nombre del archivo o complemento Excel. Veamos el caso de VBAProject (Libro1). Simplemente significa que tienes abierto un libro Excel llamado Libro 1. Luego cuelgan 3 carpetas más: Hoja1 (Hoja1), ThisWorkbook y Modulo (no importa si ves todos estos elementos ahora, luego te enseñaremos como activarlos). Estas carpetas es donde habitan las macros. Haciendo doble clic en ellas activarás la ventana donde se escriben las macros.







































Como verás el Editor de VB tiene muchas ventanas. Pero de momento solo nos interesan las dos ventanas que te indicamos anteriormente: la Ventana Proyecto – VBA Project y la Ventana de Código donde se escribe el código de las macros. La Ventana de Propiedades la dejaremos para más adelante porque de momento no nos interesa. Recuerda: presionando las teclas ALT+F11 puedes ir desde Excel al Editor o desde el Editor al Excel de forma alterna (debes mantener presionada la tecla ALT y presionar F11 repetidas veces, verás como pasas de Excel al editor y viceversa).

Si estás en el editor y quieres regresar a la hoja Excel también puedes utilizar el ícono de Excel que se encuentra en el menú superior del editor (primer ícono de la izquierda, con la X de Excel).









































B. Utilizar la grabadora de macros C. Combinación de los 2 métodos anteriores (Grabarla y luego retocarla manualmente) En cada situación utilizarás un método distinto. Por ejemplo, las macros muy sencillas las puedes escribir manualmente porque tienen pocas líneas y ya las conoces. En otros casos la podrás crear con la grabadora de macros y olvidarte del código VBA. Sin embargo, en la medida que progreses con las macros verás que el método más utilizado suele ser el número 3 mediante el cual primero grabarás y luego harás ajustes manuales en el código para hacerlo más eficiente y que se ejecute más rápido. En este capítulo vamos a ver como se escribe una macro manualmente (método 1) Mi primera Macro

Vamos a escribir manualmente nuestra primera macro ahora!. Es una macro muy sencilla, pero te servirá para orientarte en el Editor de Visual Basic y reconocer los pasos requeridos para hacer una macro. Objetivo de nuestra macro Escribir el valor 1.500 en la celda A1 de la hoja Excel. ¿que significa esto? Que comenzaremos con una hoja Excel vacía y luego de ejecutar la macro verás que aparece el valor 1.500 en la celda A1. El valor lo pondrá automáticamente la macro cuando nosotros se lo indiquemos. Suena demasiado simple, cierto? Sin embargo es suficiente como para comenzar y que aprendas generalidades que luego aplicarás en todas tus macros. Como es una macro sencilla vamos a escribirla manualmente para que comiences a empaparte del editor de macros y sus partes. Escribir la macro

Bueno, es importante que recuerdes el objetivo: esta macro escribirá automáticamente el valor 1.500 en la celda A1 de tu hoja Excel. Los pasos que debes seguir son los siguientes: 1. Prepara el Editor de Visual Basic 1.1 Crea un nuevo libro Excel y guárdalo con el nombre Libro 1. 1.2 Abre el editor de Visual Basic con las teclas ALT+F11.









































2. Escribiros la macro 2.1 En la ventana de macros escribe textualmente el siguiente código: ' Esta macro escribe el valor 1500 en la celda A1 Sub MiPrimeraMacro() Range("A1").Value=1500 End Sub 2.2 Si la macro está bien copiada verás que la primera línea queda en color verde y la segunda y cuarta en azul. Estos colores los asigna automáticamente el editor y te lo explicaremos más adelante.

De momento no te preocupes por el código escrito. Más adelante te enseñaremos a interpretarlo. Ahora que ya tienes la macro escrita pasemos a la siguiente sección para ver como ejecutarla. Ejecutar la macro

Si ya tienes escrita la macro en el editor, ahora podrás que ejecutarla, o sea hacer que funcione. Tienes 2 formas de hacer esto: A. Ejecutar la macro desde el mismo Editor: si te posicionas en cualquiera de las líneas de código de la macro y luego presionas la tecla F5 la macro se ejecutará (para ver el resultado puedes volver a la hoja Excel con ALT+F11). B. Ejecutar la macro desde Excel: otra forma de ejecutar la macro es desde el mismo Excel. Puedes volver a la hoja Excel con ALT+F11 e ir al menú Herramientas > Macros > Macro. Se abrirá un cuadro que contiene una lista con los nombres de las macros creadas. Selecciona MiPrimeraMacro y haz clic en Ejecutar.









































Comprender la macro

Recuerda que el propósito de nuestra primera macro fue escribir el valor 1500 en la celda A1 de Excel. La macro ya fue escrita y ejecutada en los pasos anteriores. Ahora vamos a analizar cada una de las líneas de su código. Recordemos como se veía nuestra macro escrita en el editor:

* los colores del código los asignó automáticamente el editor) * la primera línea que dice Option Explicit la vamos a ignorar de momento Esta macro tiene 4 líneas de código, por eso es tan sencilla (cuando termines este manual seguro podrás escribir macros de cientos o quizás miles de líneas de código!). Veamos que significa cada línea. Las explicaciones que vienen a continuación suelen aplicarse a todas las macros, así que es importante que las comprendas. 1º línea de código: el comentario ' Esta macro escribe el 1500 en la celda C10 Sub MiPrimeraMacro() Range("A1").Value = 1500 End Sub § La primera línea de una macro suele ser un comentario que hacemos sobre la misma, donde podemos poner lo que queramos. § Los comentarios se pueden poner en cualquier línea y cantidad. § En la medida que nuestras macros crecen los comentarios se vuelven muy útiles para nuestra propia referencia. § Un comentario siempre comienza por un signo '. Si tipeamos dicho signo seguido de un texto y luego damos al Enter, el editor detecta que es un comentario y lo pinta verde automáticamente.









































§ Toda macro siempre comienza con la palabra Sub, luego un espacio, luego un nombre (sin espacios intermedios) y finalmente los paréntesis (). Más adelante veremos algunas excepciones a esto. § Este nombre luego lo utilizaremos para ejecutar la macro. § Luego de escribir esta línea y darle a enter el Editor detectará que es el nombre de la macro y pondrá la palabra Sub en color azul de forma automática. Recuerda: el nombre de la macro siempre comienza con la palabra Sub, luego un espacio, luego el nombre que quieras ponerle a tu macro (SIN espacios intermedios) y finalmente los paréntesis. 3º línea de código: la instrucción de la macro ' Esta macro escribe el 1500 en la celda C10 Sub MiPrimeraMacro() Range("A1").Value = 1500 End Sub § Esta es la instrucción principal de nuestra macro (el corazón de la macro). Con este código logramos nuestro objetivo (que la macro escriba el valor 1500 en la celda C10). § ¿Recuerdas el comienzo del manual donde hablábamos de Objetos (partes de Excel), Propiedades (características) y Métodos (acciones)?. Aquí tenemos un ejemplo al respecto. Programar macros siempre consiste en lo mismo: primero hacer referencia al objeto y luego asignarle una propiedad o método. En nuestro ejemplo: Range("A1").Value = 1500 Range("A1"). es el objeto Value es la propiedad = 1500 es el valor que le damos a la propiedad § Esta línea de código se interpreta así: a la celda C10 de Excel asignarle el valor 1500. Recuerda: siempre debes hacer referencia a un objeto para luego asignarle propiedades o métodos.









































Resumen

Nuestro objetivo fue crear una macro que escribiera el valor 1500 en la celda A1 de la Hoja1 de Excel. Como era una macro sencilla decidimos escribir el código manualmente. Vamos a resumir todos los pasos que hicimos hasta aquí: 1. Creamos un nuevo libro Excel y lo guardamos con el nombre Libro1. 2. Accedimos el Editor de Visual Basic con las teclas ALT+F11 3. En la Ventana Proyecto, en VBAProject (Libro1), hicimos doble clic en Hoja1 (Hoja1). 4. En la Ventana de Código escribimos textualmente el siguiente código: ' Esta macro escribe el 1500 en la celda A1 Sub MiPrimeraMacro() Range("A1").Value = 1500 End Sub Finalmente, todo quedó como se aprecia en la foto...

5. Finalmente ejecutamos la macro desde el menú de Excel Herramientas > Macros > Macro y seleccionando seleccionan do MiPrimeraMacro desde la lista de nombres y dando clic a Aceptar.











































6. El resultado es que en la celda A1 se vuelve a escribir el valor 1500, que fue justamente lo que le indicamos a la macro que haga.

Recuerda: en estos 5 pasos hemos visto rápidamente como escribir una macro sencilla y ejecutarla. En las secciones siguientes iremos profundizando más estos temas, sobre todo el referente el código de la macro. OPM de la macro

Recordemos nuevamente el código de nuestra primera macro: ' Esta macro escribe el valor 1500 en la celda A1 Sub MiPrimeraMacro() Range("A1").Value = 1500 End Sub Ahora recordemos brevemente el significado de cada línea de código: 1ª línea: es el comentario de la macro (siempre comienza con el signo ') 2ª línea: es el nombre de la macro (siempre se comienza con Sub) 3ª línea: es la instrucción principal de la macro











































- Por ej. una celda de Excel, una hoja, un gráfico. Propiedad - Es una característica del objeto - Por ej. el valor de la celda, el nombre de una hoja, el color de un gráfico. Método > es una acción sobre el objeto > por ej. copiar la celda, borrar la hoja, agrandar el gráfico. Como te comentábamos al comienzo, la línea de código más importante de nuestra macros es: Range("A1").Value = 1500 Ahora ya estamos en condiciones de identificar mejor los objetos, propiedades y métodos de la misma. Range("A1") es el objeto, recuerda que siempre que hacemos macros primero debemos indicar el objeto Excel sobre el que vamos a operar. En este caso usamos el objeto Range (Rango). El objeto Range es el que se utiliza para hacer referencia a una celda o rango Excel. Luego se escribe la referencia de la celda Excel (letra de columna y número de fila) entre comillas y paréntesis. Ya le hemos indicado a la macro que deberá ocuparse de la celda A1 (objeto). Ahora debemos indicarle que hacer con ella (propiedad o método). Value = 1500 es la propiedad, que le asignaremos al objeto. Siempre empezamos por el objeto para luego asignarle una propiedad o método. En este caso usamos la propiedad Value (Valor) que nos permite asignar un valor al objeto range, anteponiendo un signo igual y luego el valor que deseamos. Esta macro es muy sencilla y no posee ningún método. Hasta aquí es suficiente. Hemos visto el ejemplo de un objeto y una de sus propiedades. En la medida que vayas











































Objetivo de nuestra macro Escribir el valor 1.500 en la celda A1 de tu hoja Excel. ¿que significa esto? Que comenzaremos con una hoja Excel vacía y luego de ejecutar la macro verás que aparece el valor 1.500 en la celda A1. El valor lo pondrá automáticamente la macro cuando nosotros se lo indiquemos. Suena demasiado simple, cierto? Sin embargo es suficiente como para comprender la metodología de funcionamiento de la grabadora de macros. Grabando la macro

Excel trae incorporada una grabadora de macros. La misma funciona de forma muy fácil. Encendemos la grabadora, ejecutamos las acciones que nos interesan sobre la hoja Excel, paramos la grabadora y…listo!. Excel escribe de forma automática el código VBA de la macro. Ahora podemos hacer un experimento muy interesante. Repetir nuestra primera macro, pero esta vez haciéndola con la grabadora de macros. Sigue los pasos a continuación: 1. Vamos a grabar la macro 1.1 Ve al menú Herramientas > Macros 1.2 Selecciona la opción Grabar nueva macro… 1.3 Se abrirá un cuadro de diálogo como el que se muestra a continuación.











































Otra forma de detener la grabación de la macro es desde el menú Herramientas > Macros > Detener grabación. Hazlo ahora para detener la grabación. 3. Veamos como quedó la macro grabada: 3.1 Accede al editor de visual basic con ALT+F11. 3.2 Debes hacer clic en Módulo1 para visualizar el código de la nueva macro grabada. Verás una pantalla como la siguiente:











































5. Borramos la celda A1 (quedó con el valor 1500 cuando grabamos la macro). 6. Ejecutamos la macro desde el menú Herramientas > Macro > Macros. Seleccionamos de la lista MiPrimeraMacro y luego Aceptar. 7. El resultado es que en la celda A1 se vuelve a escribir el valor 1500, que fue justamente lo que grabamos con la macro.

Recuerda: al utilizar la grabadora no accedemos en ningún momento al editor de macros ni tenemos que escribir código. Todo lo hace automáticamente la grabadora. Escrita vs. Grabada

Llegados a este punto, interesa ver las diferencias entre la macro escrita manualmente y la grabada automáticamente. ¿Qué fue lo que hicimos hasta aquí? Hicimos una macro que escribió el valor 1500 en la celda A1 de la Hoja1 de Excel. Pero recuerda que hicimos esta macro 2 veces: A. la primera vez la escribimos manualmente B. la segunda vez la grabamos directamente con la grabadora de macros. Denominemos Macro Escrita a la primera y Macro Grabada a la segunda para diferenciarlas. Aunque al













































Sub MiPrimeraMacro() Range("A1").Value=1500 Range("A1").Value=150 0 End Sub

MiPrimeraMacro Macro Esta macro escribe el valor 1500 en la celda A1 Range("A1").Select ActiveCell.FormulaR1C1 = "1500" Range("A2").Select End Sub

Recuerda que este código quedó en VBAProject (Libro1) > Hoja1 (Hoja1)

Recuerda que este código quedó en VBAProject (Libro1) > Módulo1

3. Ejecución de la macro

3. Ejecución de la macro Para no confundirnos primero borramos el valor 1500 de la celda A1, Hoja1 (lo habíamos











































Esta macro escribe 1500 en A1 Sub MiPrimeraMacro() Range("A1").Value=1500 End Sub

Sub MiPrimeraMacro() ' Esta macro escribe 1500 en A1 Range("A1").Select ActiveCell.FormulaR1C1 = "1500" Range("A2").Select End Sub

La macro está escrita de forma sintética. Le indicamos que en la celda A1 escriba el valor 1500. Solo nos llevó 1 línea de código (solo contamos las que están entre Sub y End Sub)

La macro grabó nuestras acciones pero utilizó 3 líneas de código (solo contamos las que están entre Sub y End Sub). Vemos que el código es más largo y que aparecen nuevos objetos, propiedades y métodos. La macro se interpreta así: Primero seleccionar el rango A1. Luego en la celda activa introducir una fórmula con el valor 1500. Finalmente, como presionamos











































Como conocíamos el objeto y la propiedad fuimos directamente al grano. Al objeto Rango A1 le aplicamos la propiedad Valor 1500. Solo una línea de código. Rápido y certero. Macro grabada

Sub MiPrimeraMacro() Range("A1").Select ActiveCell.FormulaR1C1 = "1500" Range("A2").Select End Sub La macro grabada grabó todas nuestras acciones en 3 líneas de código. Cuando seleccionamos el rango A1 se generó la 1º línea de código, cuando escribimos el valor 1500 se generó la 2º línea de código y cuando dimos al











































Sub MiPrimeraMacro() Range("A1").Value = 1500 End Sub 5. Finalmente ejecutamos la macro desde el menú de Excel Herramientas > Macros > Macro y luego seleccionando MiPrimeraMacro desde la lista de nombres y dando clic a Aceptar. Recordemos nuevamente las reglas de escritura de la mayoría de las macros: 1. La 1º línea de la macro es un comentario que no tiene efecto sobre la misma y que usamos para nuestra referencia. Siempre comienza con el signo '. En nuestra macro: ' Esta macro escribe el 1500 en la celda A1 2. La 2º línea de la macro es el nombre, que comienza con la palabra Sub, seguida del nombre que queramos ponerle sin espacios intermedios y finalizando con 2 paréntesis de apertura y cierre (). En nuestra macro:











































5. Puedes ejecutar esta macro rápidamente posicionándote en cualquiera de sus líneas de código y luego presionando la tecla F5 para ver lo que sucede. También puedes ejecutarla volviendo a Excel con ALT+F11 y desde el menú Herramientas > Macros > Macro, eligiendo de la lista la macro MostrarTexto y luego Aceptar. 6. Esta macro utiliza la instrucción Msgbox que sirve para abrir una ventana con la información que le indiquemos. Más adelante verás como puedes mostrar en esa ventana información de celdas Excel u otros resultados. De momento solo hacemos que muestre el texto que indicamos entre comillas. Recuerda que esto es tan solo un adelanto. En la 2º parte de este manual están las macros más importantes que podrás necesitar, escritas, comentadas y listas para que puedas copiar, pegar y adaptar en tus propios desarrollos. Macro 2

Escribamos manualmente otra nueva macro ahora:













































1. Puedes utilizar el mismo Libro1 de la macro anterior. 2. Accede al Editor de visual basic con las teclas ALT+F11 3. La escribiremos en un objeto hoja, así que has doble clic en Hoja1 (Hoja1)











































Como acceder

El Editor de Visual Basic es la aplicación que trae Excel desde donde se escriben y guardan las macros. Tienes 3 formas de acceder al editor: A. Desde el menú Herramientas > Macros > Editor de Visual Basic











































Ventana Proyecto

Veamos una foto para ver como se ve la ventana de Proyecto. Si no la puedes visualizar puedes activarla desde el menú Ver > Explorador de proyectos, dentro del editor de visual basic. En la ventana de Proyecto hay carpetas donde se guardarán y escribirán las macros. Hemos presionado el botón











































1.2 Hoja1(Hoja1) hace referencia las hojas de Excel (habrá 1 por cada hoja de nuestro libro). Si escribimos una macro aquí la misma solo afectará a la hoja en cuestión.











































3. Módulos Los módulos sirven para escribir macros a nivel genérico, sin estar relacionadas a la hoja o libro en particular. Si no visualizas ninguno puedes agregarlos desde el menú Insertar > Módulo. 3.1 Dentro de la carpeta de Módulos vemos que hay un elemento llamado Módulo1. Podemos insertar tantos





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































' Damos un valor a la variable declarada saludo = "Hola que tal" ' Damos un valor a esta otra variable, que NO ha sido declarada despedida = "Adios" MsgBox saludo MsgBox despedida End Sub Cuando ejecutamos esta macro obtenemos un error de compilación , en el que se nos dice que la palabra seleccionada, no ha sido declarada, y VBA selecciona la palabra "despedida", es decir requiere de nosotros la necesidad de declarar esta variable antes de ser usada. Si corregimos la macro anterior y declaramos ambas variables, tendríamos: Sub MacroMensaje() ' Declaramos la variable saludo como variable tipo texto Dim saludo As String ' Aquí declaramos la variable que habíamos olvidado antes Dim despedida as String ' Damos un valor a la variable declarada saludo = "Hola que tal" ' Damos un valor a la variable declarada despedida = "Adios" MsgBox saludo MsgBox despedida End Sub La declaración de variables es primordial, totalmente necesaria, pues ayuda a saber el código que estamos manipulando y utilizar menos memoria, es por ello una buena acción forzar la declaración de variables siempre (por eso recomendamos seguir los pasos indicados al comienzo de esta sección). Tipos

La tabla siguiente muestra los tipos de datos compatibles, incluyendo el tamaño de almacenamiento y el intervalo. En la 1º columna (Tipo de datos) se define el tipo variables que podemos usar En la 2º columna (Tamaño) se define cuanto espacio ocupa en memoria En la 3º columna (Intervalo) se definen los valores que puede adquirir la variable







































Lógicamente si sabemos que una variable va a utilizar valores numéricos sin decimales y entre 1 y 25, conviene que lo declaremos como Byte, como se ve en este ejemplo: Option Explicit Sub Macro() Dim X As Byte For X = 1 To 25 Cells(X, 1) = X Next X End Sub La macro anterior utiliza bastantes menos recursos que esta próxima que no fuerza la declaración de la variable X (y por lo tanto es considerada como Variant): Sub Macro() For X = 1 To 25 Cells(X, 1) = X Next X End Sub







































Dim X as Long ' Aunque sería recomendable Dim X As Byte For X = 1 To 25 Cells(X, 1) = X Next X End Sub Una solución momentánea para saber que tipo de variable deberíamos utilizar podría ser de la siguiente forma. Observa que hemos eliminado la instrucción Option Explicit, pues nuestro objetivo es descubrir que tipo de variable necesitaremos: Sub Macro() ' Dim X As Long For X = 1 To 65536 Cells(X, 1) = X Next X MsgBox TypeName(X) End Sub O bien: Option Explicit Sub Macro() ' Decimos que es variant, que es lo mismo que no decir nada pero definiendo esa nada y luego… Dim X For X = 1 To 65536 Cells(X, 1) = X Next X MsgBox TypeName(X) End Sub Y en ambos ejemplos obtendríamos el resultado Long, mientras que si hubiéramos puesto: Option Explicit Sub Macro() Dim X For X = 1 To 1500 ' Aquí escribimos un intervalo menor Cells(X, 1) = X Next X MsgBox TypeName(X) End Sub obtendríamos como resultado Integer. Este método no simpre sirve ya que: Option Explicit Sub Macro() Dim X For X = 1 To 25 Cells(X, 1) = X Next X







































Locales

Las variables locales se declaran dentro de cada macro, y solo pueden ser utilizadas dentro de la macro en la que han sido creadas, cuando la macro termina de ejecutarse, la variable desaparece y Excel libera la memoria que estaba utilizando recordando a qué hacían referencia. Una variable se declara como local cuando está declarada dentro de la macro que hará uso de la misma, por ej: Sub Macro() Dim X As Single Dim Y As Single Dim Z As Single X=5 Y = 10 Z = 50 ActiveCell = X * Y * Z End Sub También se pueden declarar varias variables en la misma línea de código tal que: Option Explicit Sub Macro() Dim x As Byte, y As Single, z As Long, Resultado As Variant x = 5: y = 2000: z = 50000 Resultado = x * y * z MsgBox TypeName(Resultado) ' en este caso el resultado seria Double ActiveCell = Resultado End Sub Si una variable es local todas el resto de las macros podrán utilizar el mismo nombre de la variable tal que: Option Explicit Sub Macro1() Dim Autor As String Autor = "ExceLuciones" ActiveCell = Autor End Sub Sub Macro2() Dim Autor As String Autor = "Pedro" ActiveCell = Autor End Sub Sub Macro3() Dim Autor As String







































Autor = "Salvador" ActiveCell = Autor End Sub Se recomienda la utilización de variables locales antes que la de variables públicas (las veremos en la sección siguiente), ya que una vez que la macro termina de ejecutarse, VBA ya no las reconoce de nuevo y libera memoria, mientras que si son públicas aún cuando la macro termina, el valor al que hacen referencia las variables sigue vigente y ocupando espacio en memoria. Públicas

Las variables declaradas mediante la instrucción Public están disponibles para todos los procedimientos en todos los módulos de todas las aplicaciones, a menos que Option Private Module esté en efecto; en este caso, las variables sólo son públicas dentro del proyecto en el que residen. Este tipo de variables son útiles cuando empezamos a trabajar con macros pues facilitan la comprensión, y nos ahorran el hecho de tener que declarar lo mismo una y otra vez. Usamos la instrucción Public para declarar el tipo de datos de una variable. Por ejemplo, la instrucción siguiente declara una variable como de tipo Integer: Public NúmeroDeEmpleados As Integer Usamos también la instrucción Public para declarar el tipo de objeto de una variable. La instrucción siguiente declara una variable para una nueva instancia de una hoja de cálculo: Public X As New W orksheet Si no utilizamos la palabra clave New al declarar una variable de objeto, la variable que se refiere a un objeto debe asignarse a un objeto existente mediante la instrucción Set antes de que se pueda usar. Hasta que se le asigne un objeto, la variable de objeto declarada tiene el valor especial Nothing, el cual indica que no se refiere a ninguna instancia en particular de un objeto. También podemos utilizar una instrucción Public con paréntesis vacíos para declarar matrices dinámicas. Después de declarar una matriz dinámica, usamos la instrucción ReDim dentro de un procedimiento para definir el número de dimensiones y elementos de la matriz. Si intentamos volver a declarar un dimensión para una matriz cuyo tamaño se ha especificado explícitamente en una instrucción Private, Public o Dim, ocurrirá un error. Si no especificamos un tipo de datos o un tipo de objeto y no existe una instrucción Deftipo en el módulo, la variable es Variant de manera predeterminada. Cuando se inicializan las variables, una variable numérica se inicializa a 0, una cadena de longitud variable se inicializa a una cadena de longitud cero ("") y una cadena de longitud fija se rellena con ceros. Las variables Variant se inicializan a Empty.

Ejemplo de la instrucción Public En este ejemplo se utiliza la instrucción Public a nivel de módulo (sección General) de un módulo estándar para declarar variables como públicas; es decir, disponibles para todos los procedimientos en todos los módulos de todas las aplicaciones (a menos que Option Private Module esté en vigor). Cuando una variable es declarada como Public y es colocada al principio del módulo, puede ser utilizada por









































Public X As Byte Sub Macro() For X = 1 To 25 Call Macro2 Next X End Sub Sub Macro2() Cells(X, 1) = X End Sub ' Aún cuando este ejemplo puede resultar absurdo pues: Sub Macro() Dim X as byte For X = 1 To 25 Cells(X, 1) = X Next X End Sub Con el ejemplo anterior tan solo pretendemos hacer referencia a que a veces conviene utilizar variables públicas pues son variables que van a ser utilizadas ampliamente y es absurdo ir definiéndolas en cada macro. Que una variable sea pública no significa que su valor deba ser constante, tan solo que no es necesario definirla en cada macro y que mientras no le asignemos otro valor conserva el que tenía. En el siguiente ejemplo hemos decidido no definir dos veces la variable Rg, no obstante hemos querido que en cada macro haga referencia a diferentes rangos: Public Rg As Range









































Rg.Interior.ColorIndex = 3 End Sub Estáticas

Las variables declaradas con la instrucción Static conservan su valor mientras el código se está ejecutando. Una vez que el código del módulo se está ejecutando, las variables declaradas con la instrucción Static conservan su valor hasta que se reinicie o restablezca el módulo. En los módulos de clase, las variables declaradas con la instrucción Static conservan su valor en cada instancia de clase hasta que se destruye la instancia. En módulos de formulario, las variables estáticas conservan su valor hasta que se cierra el formulario. Use la instrucción Static en procedimientos no estáticos para declarar explícitamente variables que son visibles sólo dentro de un procedimiento, pero cuya vida es la misma que la del módulo en la que se definió el procedimiento. Usamos una instrucción Static dentro de un procedimiento para declarar el tipo de datos de una variable que conserva su valor entre llamadas a procedimiento. Se declaran dentro de cada macro, pero retienen el valor que tenían la última vez que fueron utilizados, se declaran tal que: Static X as byte, o Static Y as Long En este ejemplo trabajaremos con dos macros: macro1 y macro2. Ambas utilizarán una variable común tal que: Public Rg As Range Utilizaremos Option Explicit para forzar la declaración de variables. El hecho de que ambas macros utilicen una variable llamada x no significa que hagan referencia a la misma variable, ta solo se llaman igual, de hecho a medida que la macro1 vaya ejecutándose x en el primera macro ira desde 1 hasra 25 mientra que en la la macro2 desde 10 hasta ¿?, dependiendo de cuantas veces utilicemos esta macro. Pero en principio si es utilizada solo a través de la macro1 desde 10 hasta 250. Option Explicit Public Rg As Range Sub Macro1() Dim x As Byte For x = 1 To 25









































Rg = x End Sub Si una vez ejecutada la macro1, ejecutáramos la macro2 repetidas veces, la celda A25 seguiría seleccionada, pero su valor aumentaría hasta 255. Y porque no más? Porque aunque sea static hemos definido x en esta macro como Byte luego cuando x>255 obtendríamos un error de recompilación, ya que habría un desbordamiento. Para poder utilizar x>255 deberiamos haber usado en la macro2: Static x As single. Nota: la instrucción Static y la palabra clave Static son similares, pero se utilizan para conseguir efectos diferentes. Si declara un procedimiento con la palabra clave Static (como en Static Sub ContarVentas()), el espacio de almacenamiento correspondiente a todas las variables locales dentro del procedimiento se asigna una única vez y el valor de las variables se conserva durante todo el tiempo que se esté ejecutando el programa. Para procedimientos no estáticos, el espacio de almacenamiento para las variables se asigna cada vez que se llama al procedimiento y se libera cuando se sale del procedimiento. La instrucción Static se usa para declarar variables específicas dentro de procedimientos no estáticos para conservar su valor mientras el programa se esté ejecutando. En este ejemplo se utiliza la instrucción Static para conservar el valor de una variable mientras el código del módulo se esté ejecutando. ' Definición de función. Function ConservarTotal(Número) ' Sólo la variable Acumulado conserva su valor entre distintas llamadas. Static Acumulado Acumulado = Acumulado + Número ConservarTotal = Acumulado End Function ' Definición de una función como Static. Static Function MiFunción(Arg1, Arg2, Arg3) ' Todas las variables locales conservan su valor entre llamadas a la función.









































Sub Macro() Dim Rng As Range Dim x As Byte For x = 1 To 25 Set Rng = Cells(x, 1) Rng.Select Rng = x Next x End Sub Pero a veces queremos que una variable no cambie, es decir que siempre haga referencia al mismo valor, ejemplo: mi nombre, la capital de Francia etc. Lógicamente carece de sentido declarar variables como constante si éstas no son públicas. Para declarar una variable como constante utilizamos la instrucción Const, por ej: Option Explicit Const nPaises As Byte = 53 Const UKrate = 1.43, USrate = 0.78 Const autorLibro As String = "ExceLuciones" En la 1º línea hemos definido una variable como nPaises as byte y su valor valor sera siempre 53. La 2º línea de código declara dos variables como constantes pero no especifica si son as double o as, con lo cual se consideraran as variant. La 3º linea de código declara autorLibro como una constante de tipo string y le da el valor Exceluciones. Conversión

Es posible convertir variables de un tipo a otro. Existen distintas funciones que que permiten hacer estas









































Si la expresión del argumento expresión que se pasa a la función está fuera del intervalo del tipo de dato al que se va a convertir, se produce un error. En general, el código se puede documentar utilizando las funciones de conversión de tipos de datos para indicar que el resultado de alguna de las operaciones se debería expresar











































End If End Sub CDate reconoce literales de fecha y literales de hora además de números comprendidos dentro del intervalo de fechas aceptables. Al convertir un número a una fecha, la parte numérica entera se convierte a una fecha. Cualquier parte fraccionaria del número se convierte a la hora del día, comenzando a medianoche. CDate reconoce formatos de fecha que se ajusten a la configuración regional de tu sistema. Es posible que no se determine el orden correcto del día, mes y año si se proporciona en un formato diferente del que reconoce la configuración de fecha. Además, no se puede reconocer un formato de fecha largo si contiene la cadena del día de la semana. Ejemplos

Recordar siempre que antes de utilizar una variable, debemos saber como funciona: Las variables String siempre deben ir entre comillas: Sub ejString() Dim QAZ As String QAZ = "Exceluciones" Debug.Print QAZ ' Debug.Print es 1 comodín que solemos utilizar para ver lo que sucede a traves de la ventana inmediata de VBA MsgBox QAZ











































MsgBox QAZ ' CInt se utiliza para convertir una variable ej de texto a integer como en este ejemplo [A1] = CInt(QAZ) + 50 'Range("A1")=[A1] ' Es lo mismo ' La mar = El mar End Sub En este otro ejemplo definimos tres variables como String y concatenamos sus valores para mostrarlos en la celda A1, en la ventana inmediata y en un mensaje tal que: Sub ejString() Dim QAZ As String QAZ = ActiveCell.Value Dim WSX As String WSX = "Exceluciones" Dim EDC As String Debug.Print QAZ & WSX MsgBox QAZ & WSX











































Cells(X, 1) = X + Y Next X End Sub Sub EjLong() Dim X As Integer, Y As Long ' de haber definido Y as Integer ' obtendríamos un desbordamiento For X = 1 To 2000 Y = Y + 20 Cells(X, 1) = X + Y Next X End Sub Libros

Mediante macros VBA podemos manipular de distintas formas tanto libros Excel como archivos con otras extensiones. En este capítulo veremos como hacerlo. Abrir libros











































Para abrir un libro cuando tiene vínculos deberíamos especificar si queremos actualizar los vínculos o no, tal como se ve a continuación: Sub Abrir() Application.EnableEvents = True Workbooks.Open Filename:="c:\Directorio\MiLibro.xls", UpdateLinks:=False End Sub Para obtener información de un libro: Sub Informacion () ActiveWorkbook.Name ActiveWorkbook .Name ActiveWorkbook.Path ActiveWorkbook .Path ActiveWorkbook.FullName ActiveWorkbook .FullName End Sub

' Obtendríamos su nombre, por ej. Libro4.xls ' Obtendríamos la ruta del libro activo, por ej. C:\Windows ' Obtendríamos ruta+nombre, por ej. C:\Windows\Libro4.xls C:\Windows\Libro4 .xls

Para abrir todos los libros de un directorio: Sub AbrirLibros() Dim X As Long Dim Libro As Workbook Dim Directory As String Directory = ActiveWorkbook.Path On Error Resume Next











































Para cerrar un libro utilizamos la instrucción Close: Sub Cerrar() ActiveWorkbook.Close End Sub Si queremos cerrarlo sin que nos pregunte si queremos guardar los posibles cambios realizados, debemos indicar que no queremos que se muestren los mensajes de alerta: Sub Cerrar() Application.DisplayAlerts = False ActiveWorkbook.Close End Sub Para cerrar todos los libros abiertos sin que nos pregunte si queremos guardar los posibles cambios registrados en cada libro si los hubiese: Sub Cerrar() Application.DisplayAlerts = False Application.Workbooks.Close End Sub Y dejando que nos pregunte: Sub Cerrar() Application.Workbooks.Close End Sub













































End Sub La macro anterior guardaría el libro activo con el nombre QAZ. Debemos recordar que no todos los caracteres del alfabeto son válidos para guardar un libro, por ejemplo los caracte res @ ? ¿ . | NO son caracteres válidos. Para guardar un libro en otra carpeta deberíamos especificar en que carpeta queremos guardarlo tal que : Sub Macro() Dim Carpeta As String On Error Resume Next Carpeta = "F:\" ActiveWorkbook.SaveAs ActiveWorkbook .SaveAs Carpeta & [A1].Value ' Si utilizamos el nombre de la celda A1 ActiveWorkbook.SaveAs ActiveWorkbook .SaveAs "F:\Ventas.xls" ' O podríamos especificar este otro nombre End Sub Del mismo modo que podemos guardar y abrir un documento desde y donde querramos, también podemos











































' Se elimina el archivo. Kill "PRUEBA" ' Se eliminan todos los archivos *.TXT del directorio actual Kill "*.TXT" End Sub Para eliminar el libro activo, en caso de que estuviera abierto, primero deberiamos cerrarlo, tal que: Sub Eliminar() Dim strFile As String strFile = ActiveWorkbook.FullName ActiveWorkbook.Close SaveChanges:=False











































Next X End With Application.EnableEvents = True ' Para volverlo a su estado natural End Sub Crear libros

Para crear 1 nuevo libro utilizamos la instrucción Add, por ejemplo: Sub NuevoLibro() Workbooks.Add End Sub Si quisiéramos crear 2 nuevos libros:











































'QAZ6 'QAZ7 'QAZ8 'QAZ9 'QAZ10 'QAZ11 End Sub Imprimir libros

Para imprimir libros u hojas utilizamos la instrucción PrintOut, por ejemplo:











































Application.Calculation = xlAutomatic End Sub Automático excepto tablas: calcula todas las fórmulas dependientes, salvo las tablas de datos (para calcular las tablas de datos podemos hacer clic en "Calcular ahora" en la ficha Cálculo del menú Herramientas, Opciones): Sub CalculoAutomaticoSinTablas () Application.Calculation = xlSemiautomatic End Sub Manual: sólo calcula los libros abiertos cuando se presiona la tecla F9 Sub CalculoAutomatico () Application.Calculation = xlManual End Sub













































Para listar libros con extensión *.* de un directorio (o con otra extensión) de un directorio y los subdirectorios, podemos utilizar la siguiente macro: Sub AbrirLibros() Dim X As Long











































Dim Hoja As Worksheet Set Hoja = Worksheets.Add End Sub











































End Sub Entonces obtendríamos un error de compilación, el cual podemos evitar agregando una instrucción On Error al comienzo de la macro: Sub Agregar()











































End Sub Ahora bien, si una hoja esta oculta no podremos seleccionarla ni activarla. Esto lo solucionamos de la siguiente forma: Sub Seleccionar()











































Activeworkbook.Sheets.Select End Sub La instrucción anterior a su vez activará una hoja...cual? La primera del libro. La manera de comprobarlo es sencilla, ya que la hoja activa es aquella que presenta su nombre en negrita.





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DiaSemana(4) = "Jueves" DiaSemana(5) = "Viernes" DiaSemana(6) = "Sábado" DiaSemana(7) = "Domingo" Debug.Print DiaSemana(1) ' Esto nos permite visualizar "Lunes" en la Ventana Inmediato End Sub La mayoría de las veces los elementos de los arrays quedan definidos desde un rango o bien desde una única línea tal que: Option Base 1 Sub EjArrays() Dim DiaSemana() As Variant DiaSemana = Array("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo") Debug.Print DiaSemana(1) ' Esto nos permite visualizar "Lunes" en la Ventana Inmediato End Sub Variables

Un array no tiene por qué tener un número fijo de elementos, es decir un array puede contener un número variable de elementos en cualquier momento. Los arrays se utilizan para aumentar la velocidad de las macros pues permiten la manipulación de gran cantidad de información sin necesidad de operar con ella, salvo en memoria. La utilización de Arrays dinámicos (aquellos que no tienen un número fijo de elementos), en muchas ocasiones es obligatoria. Por ej. supongamos que queremos obtener el número de directorios existentes en en el dicos C. Deberíamos utilizar un array como el siguiente: Sub ArrayDirectorios() Dim X As Single Dim NXls() As String Dim MiRuta As String, MiNombre As String Cells.ClearContents ' Muestra los nombres en C:\ que representan directorios.







































Do While MiNombre <> "" ' Inicia el bucle. ' Ignora el directorio actual y el que lo abarca. If MiNombre <> "." And MiNombre <> ".." Then ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio. If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then X=X+1 ReDim Preserve NXls(1 To X) NXls(X) = MiNombre Debug.Print MiNombre ' Muestra la entrada End If ' solamente si representa un directorio. End If MiNombre = Dir ' Obtiene siguiente entrada. Loop If X = 0 Then MsgBox "No hay directorios en C:\": Exit Sub For X = LBound(NXls) To UBound(NXls) Cells(X, 1) = NXls(X) Next X Columns.AutoFit End Sub Del mismo modo hubiéramos podido crear un Array con los Libros xls, contenidos en un directorio cualquiera. Las arrays expuestos hasta aquí son unidireccionales, y aunque los array pueden tener hasta 60 direcciones, casi nunca utilizaremos Arrays com más de tres dimensiones. Bidimensionales

Los array unidimensionales son muy frecuentes, aunque también se pueden usar arrays bidemensinales, por ej: Dim MiArray(1 to 10, 1 to 10) as Integer Esto sería como pensar en una matriz de 100 elementos, 10 filas x 10 columnas, con lo cual para referirte a la segunda fila y tercera fila utilizaríamos: Debug.Print MiArray(2,3)







































A continuación observaremos diferentes ejemplos que utilizan arrays. Supongamos que tenemos diferentes controles en una hoja y queremos colocarlos en determinados lugares: Sub EjArrays() Dim X As Byte Dim Rg As Range Dim MyShapesArray() As Variant Dim MyShapesRgArray Dim MyShape As Shape ' Es lo mismo poner () as VARIANT QUE NO PONER NADA ' MyShapesArray es un array que contiene los nombre the diferentes controles en nuestra ActiveSheet MyShapesArray = Array("IShape", "SB_H", "SB_V", "BPlay", "SB_Bombs") ' MyShapesRgArray en un array que contiene el lugar donde pondremos los controles MyShapesRgArray = Array(Range(ActiveCell.Offset(-5, -5), ActiveCell.Offset(-2, -2)), _ Range(ActiveCell.Offset(-3, 0), ActiveCell.Offset(-2, 4)), _ Range(ActiveCell.Offset(0, -3), ActiveCell.Offset(1, -2)), _ Range(ActiveCell.Offset(5, -5), ActiveCell.Offset(-1, -2)), _ Range(ActiveCell.Offset(-3, 5), ActiveCell.Offset(-2, -1))) For X = LBound(MyShapesArray) To UBound(MyShapesArray) With ActiveSheet Set MyShape = .Shapes(MyShapesArray(X)) Set Rg = MyShapesRgArray(X) 'Rg.Select With MyShape '.Select '.Visible = True 'True .Height = Rg.Height .Width = Rg.Width .Left = Rg.Left: .Top = Rg.Top







































End Sub Este código lo utilizamos para colocar los controles en el lugar deseado. Es posible ver esta macro en funcionamiento en los juegos: Buscaminas.xls y MinesWeeper.xls la macro se llama GameSetup, dentro del modulo GameSetup. Redim

Cuando utilizamos el comando Redim redimensionamos el Array y al hacerlo perdemos todos los valores que habíamos creado inicialmente, por ej: Sub EjArrays() Dim DiaSemana() As Variant DiaSemana = Array("Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sábado", "Domingo") Debug.Print DiaSemana(1) ReDim DiaSemana(2) ' Al redimensionar el array para con 3 elementos perdemos los valores previamente asignados en: ' DiaSemana = Array("Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sábado", "Domingo") ' con lo que: Debug.Print DiaSemana(1) ' no devuelve valor alguno! End Sub La macro anterior no devuelve ningún valor porque hemos perdido los mismos al no utilizar la instrucción REDIM PRESERVE, que la veremos en la sección siguiente. Preserve

La instrucción Preserve se utiliza para conservar los valores de cada elemento, aún cuando redimensionamos el array: Sub EjArrays() Dim NAleatorios() As Variant NAleatorios = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Dim X As Byte







































NAleatorios(UBound(NAleatorios)) = Rnd * 100 Cells(X + 1, 1).Value = Round(Rnd * UBound(NAleatorios)) X=X+1 Loop While UBound(NAleatorios) <> 15 ' Seleccionaría la celda: Cells(UBound(NAleatorios), 1).Select End Sub También podemos asignar los valores de un rango a un array, tal que: aaa=range("A1:A15").values lo cual significa que es un array Bidemensional ya que aunque solo tiene una columna (en este caso la columna A), para referirnos a cualquier elemento de este array deberemos especificar no solo la fila sino también la columna. Hemos asignado los valores de un rango a un array con lo que para referirnos a lo elementos del array deberemos hacerlo como si de un array bidemensional se tratara, aún cuando todas las celdas del rango estén en la misma columna como en el caso siguiente: Private Sub RgArray_Click() Dim X As Single Dim Rango() As Variant Dim miarray As Variant Rango = Range("Col1") For X = LBound(Rango,1) To UBound(Rango,1) ' Aunque podemos simplificar como: Range("col1").Cells(X).Select Debug.Print Rango(X, 1) Next X End Sub

For X = LBound(Rango) To UBound(Rango)

Estructuras

Las estructuras son conjuntos de instrucciones VBA que deben respetar una sintáxis determinada y que nos permiten realizar diversas operaciones. En este capítulo las veremos en detalle. Recuerda que la mayoría de macros de este capítulo están están en el libro Estructuras.xls, dentro de los 400 Extras que se envían junto con el Manual.









































Si la celda contiene datos coloreamos toda la fila: Sub Colorea() [A1].EntireRow.Select [A1].EntireRow.Selec t ' Comenzamos desde la fila 1 Do ' Comenzamos a evaluar If ActiveCell.Value = "" Then Exit Do ' Si la celda activa no tiene valor salimos de la macro Selection.EntireRow.Interior.ColorIndex = 15 ' Si la celda tiene valor pinta la fila de gris Selection.Offset(2).Select ' Nos movemos a la fila siguiente Loop ' Comenzamos nuevamente "el rulo" desde el Do End Sub Podemos retocar lo anterior y poner la condición no de inicio dentro del Looping tal que: Sub Colorea() [A1].EntireRow.Select Do While ActiveCell.Value <> "" Selection.EntireRow.Interior.ColorIndex = 15 Selection.Offset(2).Select Loop End Sub Donde obviamente hemos tenido que cambiar la condición de = "" a <>"", es decir distinta de vacía. De haber querido poner una condición no de inicio sino de salida, es decir que el looping se ejecute por lo menos una vez: Sub Colorea() [A1].EntireRow.Select Do









































Selection.EntireRow.Interior.ColorIndex = 15 Selection.Offset(2).Select Loop Until ActiveCell.Value = "" End Sub O bien: Sub Colorea() [A1].EntireRow.Select Do Until ActiveCell.Value = "" Selection.EntireRow.Interior.ColorIndex = 15 Selection.Offset(2).Select Loop End Sub Este último caso podría dar lugar a que el looping terminara antes de empezar. El caso es que todos estos ejemplos son prácticamente idénticos y depende de nosotros utilizar uno u otro, salvo en contadas ocasiones donde algunos obviamente no sirven. El útlimo ejemplo no valdría si quisiéramos que el looping ejecutara las instrucciones internas al menos una vez. For Next

La instrucción For Next repite un grupo de instrucciones un número especificado de veces. La sintaxis es: For contador = principio To fin [Step incremento] [instrucciones] [Exit For] [instrucciones] Next [contador] La sintaxis de la instrucción For...Next consta de las siguientes partes:









































For X = 1 to 50 es decir el valor del incremento es positivo donde 1 es el Principio y 50 el Fin, es decir 1<= 50, o bien Principio <= Fin o bien: For X = 50 to 1 es decir el valor del incremento es negativo donde 50 es el Principio y 1 el Fin, es decir 50 >= 1, o bien Principio >= Fin Cuando el incremento es negativo es necesario especificar el incremento que va a tener lugar en el bucle mediante la palabra Step tal que: Sub For_Next() Dim X As Integer ' Establece 10 repeticiones, con incremento negativo de 2 For X = 10 To 1 Step -2 Cells(X, 1) = X Next X End Sub En el caso anterior X tomaría los valores 10,8,6,4,2 sucesivamente. Sub For_Next() Dim X As Integer ' Establece 10 repeticiones, con incremento negativo de 1 For X = 10 To 1 Step -1 Cells(X, 1) = X Next X End Sub









































Next X End Sub En el ejemplo anterior realizaríamos un bucle de 10 repeticiones pero si en el trascurso del mismo las celdas (X,1) estuvieran vacías el bucle se rompería y saldríamos de él. Del mismo modo se puede modificar el valor del contador volviendo a un valor dado tal que: Sub For_Next() Dim X As Integer ' Establece 10 repeticiones. For X = 1 To 10 If Cells(X, 1) = "" Then X=1 Cells(X, 1) = X + Cells(X, 1) End if Cells(X, 1) = X + Cells(X, 1) Next X End Sub En el ejemplo anterior, si el valor de (X,1) estuviera vacío volveríamos a X=1, y para evitar un bucle infinito le daríamos a la celda (X,1) el valor igual a = X + Cells(X, 1) Este otro ejemplo muestra que cambiar el valor del contador mientras está dentro de un bucle puede acarrear un bucle infinito, haciendo difícil su lectura y depuración. Ejemplo: Sub For_Next() Dim X As Integer ' Establece 10 repeticiones. For X = 1 To 10 If Cells(X, 1) = "" Then X=1









































For J = 1 To 10 For K = 1 To 10 ... Next K Next J Next I For Each Next

La instrucción For Each Next repite un grupo de instrucciones para cada elemento de una matriz o colección. Su sintaxis es: For Each elemento In grupo [instrucciones] [Exit For] [instrucciones] Next [elemento] Por lo general la instrucción For Each Next suele utilizarse para evaluar rangos y o hojas, como se ve en los siguientes ejemplos: ' Queremos colocar en el encabezado de cada una de las hojas del libro la palabra "Exceluciones" Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Hoja As Worksheet For Each Hoja In ThisWorkbook.Sheets Hoja.PageSetup.LeftFooter = "Exceluciones" Next Hoja End Sub ' Queremos borrar todo el contenido de cada hoja antes de cerrar un libro Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Hoja As Worksheet For Each Hoja In ThisWorkbook.Sheets Hoja.Cells.Clear











































Nota: si omitimos un elemento en una instrucción Next, la ejecución continúa como si se hubiera incluído, es decir tanto: For Each Cell In Range("Rg") ' Instrucciones... Next Cell como: For Each Cell In Range("Rg") ' Instrucciones... Next funcionarían mientras hubiera mas elementos en el grupo, en el caso anterior dentro del rango llamado "Rg". Si se encuentra una instrucción Next antes de su instrucción For correspondiente, se producirá un error. No se puede utilizar la instrucción For Each...Next con una matriz de tipos definidos por el usuario porque un tipo Variant no puede contener un tipo definido por el usuario. While Wend

La instrucción While Wend ejecuta una serie de instrucciones mientras una condición dada sea True, es decir verdadera, o tenga lugar. Su sintaxis es: While condición [intrucciones] Wend Condición (requerido): expresión numérica o expresión de cadena cuyo valor es True o False. Si condición es











































Veamos un ejemplo: Sub Macro() GoTo Adios Range("A1").Font.Bold = True Range("A1").Font.Size = 50 Range("A1").Font.ColorIndex = 3 Range("A1").Interior.ColorIndex = 5 Range("A1").Select Adios: End Sub La macro anterior no realiza ninguna operación, ya que nada más empezar saltamos a la línea "Adios:" y después no hay más código. Nota: en principio nunca deberíamos utilizar GoTo, pues siempre, o prácticamente siempre deberíamos ser capaces de encontrar una alternativa a través de instrucciones de control estructuradas tales como: Do...Loop, For...Next, If...Then...Else, Select Case. With End With

La instrucción With End With ejecuta una serie de instrucciones sobre un único objeto o sobre un tipo definido por el usuario. Permite realizar múltiples operaciones sobre el mismo objeto. La sintaxis que emplea es:











































.Font.Bold = True .Font.Size = 50 .Font.ColorIndex = 3 End With End Sub En el ejemplo anterior se ve que al utilizar el With, no es necesario volver a repetir el objeto Range("A1"). Todo lo que está entre With y End With se aplica al objeto Range("A1"). Veamos otro ejemplo algo más complejo con el cual asignamos un formato a la celda A1 y además aplicamos el With en dos niveles: ' La siguiente macro NO utiliza With Sub Macro() Range("A1").Font.Bold = True Range("A1").Font.Size = 50 Range("A1").Font.ColorIndex = 3 Range("A1").Interior.ColorIndex = 5 Range("A1").Select End Sub











































La instrucción ejecuta condicionalmente un grupo de instrucciones, dependiendo del valor de una expresión. Su sintaxis es: If condición Then [instrucciones]-[Else instrucciones_else] Tambien podemos utilizar la siguiente sintaxis en formato de bloque: If condición Then [instrucciones] [ElseIf condición-n Then [instrucciones_elseif] ... [Else [instrucciones_else]] End If Condición (requerido): uno o más de los siguientes dos tipos de expresiones: Una expresión numérica o expresión de cadena que puede ser evaluada como True o False. Si condición es Null, condición se considera False. Una o más instrucciones separadas por dos puntos ejecutados si la condición es True. condición-n (Opcional). igual que -condición. instrucciones_elseif (Opcional): una o más instrucciones ejecutadas si la condición-n asociada es True. instrucciones_else (opcional): una o más instrucciones ejecutadas si ninguna de las expresiones anteriores condición o condición-n es True. Veamos algunos ejemplos de If, escritos en una sola línea: En esta macro si el valor de la celda A1 es > a 15, entonces la condición es verdadera (es decir TRUE) con lo cual se ejecuta la instrucción definida para tal caso, en este ejemplo lanzamos un mensaje, que dice: "La celda A1> 15"











































End Sub En el caso de que querramos realizar más de una operación si una condición devuelve True, o bien si devuelve False, conviene utilizar una construcción en bloque. Veamos algunos ejemplos de If, escritos en bloque: En caso de que el valor de la celda A1>15 entonces la condicion es True, y siendo True, lanzaríamos un mensaje y después pondríamos la celda A1 en negrita y con fondo Rojo. Sub IF_Then() If [A1] > 15 Then Msgbox "La celda A1> 15" With [A1] .Interior.ColorIndex = 3 .Font.Bold = True End With End If End Sub o bien: Sub IF_Then() If [A1] > 15 Then MsgBox "La celda A1> 15" [A1].Interior.Colo [A1].Interior.ColorIndex rIndex = 3 [A1].Font.Bold = True Else

' si la condicion es TRUE ' lanzaríamos un mensaje ' el fondo de la celda [A1] seria rojo ' y la celda [A1] estaría en negrita ' Si la condicion fuera False













































En el caso anterior, si el valor de A1 fuera 3, aún cuando las tres condiciones devolverían True por separado, solo se ejecutaría la primera. Veamos otro ejemplo donde en función de la hora del día obtendremos un mensaje diferente: Sub IF_Then() If Time < TimeValue("08:30:00") Then MsgBox "Buenos Dias!" If Time > TimeValue("15:30:00") And Time < TimeValue("20:30:00") Then MsgBox "Buenas Tardes!" If Time >= TimeValue("20:30:00") Then MsgBox "Buenas noches!" End Sub on bien escrito de diferente manera: Sub IF_Then() If Time < TimeValue("08:30:00") Then MsgBox "Buenos Dias!" ElseIf Time > TimeValue("15:30:00") And Time < TimeValue("20:30:00") Then MsgBox "Buenas Tardes!"











































Como se ve hay muchísimas maneras de escribir la misma Macro. Ahora depende de cada uno decidir cual se prefiere. Select Case

La instrucción Select Case se utiliza cuando las alternativas en una estructura de If Then son muchas. En tal caso conviene evitar el If Then y hacer uso de Select Case, que permite ejecutar uno de varios grupos de instrucciones, dependiendo del valor de una expresión. La sintaxis de Select Case es: Select Case expresión_prueba [Case lista_expresion-n [instrucciones-n]] ... [Case Else











































Case 1 To 5: MsgBox "Entre 1 y 5" En la siguiente macro, si A1 fuera 15, solo se ejecutaría la primera opción del Case Select, al devolver TRUE: Sub Select_Case() Dim Número As Variant ' La declaramos como Variant para evitar el error de compilación que obtendríamos en el caso de que [A1] fuera texto Número = [A1]

' Inicializa variable.

Select Case Número

' Evalúa Número.

' Número entre 1 y 25, inclusive. Case 1 To 25:

Debug.Print "Entre 1 y 25"

' Número entre 6 y 8.











































En la siguiente macro nos daria igual no utilizar la opción o comodín Case Else ya que sabemos que los días de la semana son 7: Sub Select_Case() Select Case Weekday(Now, vbMonday) ' o bien: Weekday(Now, 2) Case 1: MsgBox "Hoy es Lunes" Case 2: MsgBox "Hoy es Martes " Case 3: MsgBox "Hoy es Miércoles" Case 4: MsgBox "Hoy es Jueves" Case 5: MsgBox "Hoy es Viernes" Case 6: MsgBox "Hoy es Sábado"











































End Sub o bien ponemos la Option Base 1, que se utiliza cuando queremos que un array no contemple el valor 0 de inicio tal que: Option Base 1 Sub Macro() Dim ArrayDiaSemana ArrayDiaSemana = Array("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo") MsgBox "Hoy es: " & ArrayDiaSemana(W eekday(Now, vbMonday)) End Sub DoEvents













































Si quisiéramos que una macro realizara cierta cantidad de operaciones siguiendo un looping, y supiéramos que no debemos seleccionar ninguna celda mientras tanto, podríamos utilizar la siguiente macro "DoEventsMacro" en conjunción con la macro de evento. On Error GoTo

La instrucción On Error GoTo se utiliza para controlar un error de macro en caso de haberlo. Lo ideal es que el











































Built in Dialogs

Los Built In Dialogs son Cuadros de Diálogo predeterminados que permiten realizar diversas operaciones fácilmente, sin tener que recurrir a una macro. En este capítulo los veremos más en detalle. Ejemplos





















































































' Para evitar que las macros de evento Private Sub Workbook_Open() ' se ejecuten Application.EnableEvents = False











































Title:="¿Que Libros deseas Guardar?" MultiSelect:=True, Si queremos tener la posibilidad de operar sobre más de un libro deberemos poner True, de lo contrario False.





















































































































































































































































































































































































































































































































































































































































































































1º PARTE - Teoría y Programación de Macros: (Nivel principiante - intermedio)

Recommend Documents