Texto 4
Texto 4
Texto 4
“PROGRAMACION I”
1. INTRODUCCIÓN
2. OBJETIVOS
3. MACROS
Para automatizar aún más la ejecución de una macro, se le puede asociar una
combinación de teclas: Ctrl+letra o Ctrl+Shift+letra.
La manera más sencilla de generar una macro es grabando las acciones que
se pretenden automatizar. El grabador de Macros nos permite grabar las
Figura N° 1
Figura N° 2
Figura N° 3
Figura N° 4
Figura N° 6
Figura N° 7
Figura N° 10
Por defecto, al abrir un libro Excel con macros, por seguridad éstas se
deshabilitan. Ya que las macros son programas, podrían contener
código malicioso (virus).
Si está seguro del contenido de las macros, use el botón Opciones del
mensaje de seguridad para habilitarlas.
Figura N° 12
Figura N° 13
Figura N° 14
Figura N° 15
Figura N° 16
Inicio y Fin: son las instrucciones Sub y End Sub que indican el nombre
de la macro, y dónde empieza y dónde termina el código de la macro (se
muestran en color azul oscuro).
6. INSTRUCCIONES EJECUTABLES
Cuadro N° 01
Instrucción Significado
Range(“A1”).Select Selecciona un rango
ActiveCell.FormulaR1C1
Asigna un contenido
= “Apellido”
Figura N° 19
Figura N° 20
Instrucción Significado
ActiveCell.FormulaR1C1 = “101010” Asigna un contenido
ActiveCell.Offset (0, Desplázate una celda a
1).Range(“A1”).Select la derecha y selecciona
Cuadro N° 03
Instrucción Significado
ActiveCell.Offset (4, Desplázate 4 filas abajo
0).Range(“A1”).Select y selecciona
Desplázate 2 filas abajo
ActiveCell.Offset (2, -
y dos columnas a la
2).Range(“A1”).Select
izquierda y selecciona
Desplázate 3 filas arriba
ActiveCell.Offset (-3,
y 1 columna a la derecha
1).Range(“A1”).Select
y selecciona
Figura N° 21
Instrucción Significado
Selection.Font.Bold = True Aplica Negrita a la selección
Selection.Font.Italic = True Aplica Cursiva a la selección
HorizontalAligment =
Aplica alineación horizontal Centrar
xlCenter
VerticalAligment =
Aplica alineación vertical Inferior
xlBottom
Wraptext = False No apliques Ajuste de texto
Cuadro N° 05
Secuencia 1 Secuencia 2
ActiveCell.FormulaR1C1 =
Range(“A1”).Select
“Apellido”
ActiveCell.FormulaR1C1 =
Range(“A1”).Select
“Apellido”
A una celda activa se le asignará el
A la celda A1 se le asignará el
contenido “Apellido”, luego se
contenido “Apellido”
selecciona la celda A1
Figura N° 23
Figura N° 24
7. VARIABLES
Ejemplos:
Cuadro N° 06
Instrucción Significado
Dim Nombre as string Nombre contendrá textos
Dim Edad as integer Edad contendrá números enteros
Dim Ingreso as date Ingreso contendrá fechas
Perry, Gail. Excel 2007 Macros Made Easy. Mc Graw Hill Companies.
2009.
Walkenbach, John. Excel 2007 VBA Programming for Dummies. Wiley
Publishing Inc. 2007.
Walkenbach, John. Excel 2007 Power Programming with VBA. John
Wiley and Sons. 2007.
Biblioteca TECSUP
http://office.microsoft.com/es-es/training/CR100479683082.aspx