Editar un módulo
En la ventana de proyectos, ubicamos la carpeta Módulo; luego de abrir esta carpeta veremos al interior uno o más módulos; al hacer doble clic en uno de ellos, tendremos al lado derecho, el contenido del módulo seleccionado.
También puede ver el código seleccionando el módulo y haciendo clic en [Ver código], como se indica en la figura 1.45.
Crear un módulo o función
Estando en la ventana del Editor del VBA, use [Insertar] - [Módulo]
A continuación, en la ventana de proyectos aparecerá una nueva carpeta Módulo. Al abrir esta carpeta aparecerá Módulo1. Si hacemos doble clic en Módulo1, en el lado derecho tendremos el contenido de este módulo el cual estará formado por uno o más procedimientos. Si la carpeta módulo ya existía entonces sólo se agregará un nuevo módulo dentro de dicha carpeta y aparecerá inscrito el primer módulo con el nombre Módulo1.
Un procedimiento se identifica con las palabras Sub y End Sub
Sintaxis de un procedimiento:
[Private / Public [ Static] Sub NombreDelProcedimiento[(Argumentos)]
- Instrucciones
-
End Sub
Todo aquellos que está entre corchetes se considera opcional. Por ello podemos apreciar que todo procedimiento tendrá como mínima sintaxis:
Sub Nombre()
End Sub
Se usará Private si el procedimiento es accesible sólo para los procedimientos contenidos en dicho módulo.
Se usará Public si se desea que el procedimiento sea accesible por todos los procedimientos de todos los módulos.
Se usará Static si las variables locales se conservan en diferentes llamadas al procedimiento.
Sentencias de uso frecuente
Haremos una muy breve enumeración de algunas sentencias del VBA que nos permitirán el uso de los objetos contenidos en el Excel.
Para crear un módulo debe digitar: Sub NombreModulo y presionar [Enter]. Automáticamente obtendrá:
Sub NombreModulo()
End Sub
Al interior de estas dos sentencias deberá escribir todo lo que el módulo debe hacer. Si desea crear una función, deberá digitar: Function NombreFuncion [(…..)] y presionar [Enter], luego del cual obtendrá
Function Nombre ([….])
Los corchetes indican que su contenido es opcional
...
Nombre = Expresión
End Function
Si la función requiere de argumentos, debe ingresarlos dentro de los paréntesis.
La siguiente tabla muestra una lista de algunas instrucciones de fácil comprensión y las que nos permitirá modificar algunas macros de forma que éstas sean interactivas y se conviertan en macros de mayor potencia.
Seleccionar | Instrucción | Ejemplo |
Una celda | Range(“Celda”).Select | Range(“A4”).Select |
Un rango | Range(“Rango”).Select Range(Variable).Select |
Range(“B3:G8”).Select Range(CeldaIn).Select |
Range(“A:B”).Select | Selecciona toda la columna A y B | |
Range(“ |
Selecciona
las filas |
|
Cells(Nfila,NColumna).Select | Cells(2,5).Select Celda E2 | |
Una hoja | Sheets(“NombreHoja”).Select | Sheets(“Hoja1”):Select |
Sheets(“Nombre”).Activate | Sheets(“Hoja2”).Activate | |
Sheets(Indice).Activate | Sheets(2).Activate | |
Un libro | WorkBooks(“Nombre”).Activate | WorkBooks(“Ventas”).Activate |
Añadir | ||
Nueva hoja | Sheets.Add | Añade nueva hoja a la izquierda de la activa |
Sheets.Add Before:=Sheets(1) | Añade antes de la hoja 1 | |
Sheets.Add ActiveSheet.Name = "Tabla01 |
Añade una nueva hoja y la hace activa Cambia de nombre a la hoja activa |
|
Nuevo libro | WorkBooks.Add | Abre un nuevo libro |
Propiedades de una celda o rango de celdas | ||
Fuente | Rango.Font.Bold=True/False | Range(“B5:D8”).Font.Bold = True |
Rango.Font.Color=RGB(A,B,C) | Range(“B5”).Font.Color = RGB(120,0,120) | |
Rango(.Font.Size=n | Range(“B5”).Font.Size = 18 | |
Rango.Font.Italic=True/False | Range(“B3:B10”).Font.Italic=True | |
Rango.Font.Name=Estilo | Range(“A1:E1”).Font.Name = “Times New Roman” | |
Sheets(2).Name = “Ventas” | Cambia el nombre de la Hoja2 por Ventas | |
Range(“A5”).Name = “Tasa” | Cambia el nombre de la celda A5 por Tasa | |
Abrir libro | Workbooks.Open "g:\Libros\AplicEstExcel\j.xls" | |
Graba libro | WorkBooks(Nombre).Save | Graba con el nombre que tenga |
WorkBooks(Nombre).SaveAs | Graba con un nuevo nombre | |
Cierra libro | WorkBooks(Nombre).Close | Cierra el libro |
ActiveWorkBook.Close | Cierra el libro activo |
Síguenos en: Facebook Sobre aulaClic Política de Cookies