Ejercicios Macros

GUIA DE ESTUDIO MACRO N° 1

Código de una macro de Teclado

Realicemos una macro para calcular el presupuesto total por producto:
Crearemos la siguiente planilla:

Donde TOTAL será la suma de todos los meses

1. Activamos la barra de herramientas de visual Basic.
2. Presionamos el botón GRABAR MACRO
3. El nombre de la macro será TotalProducto y el método abreviado para ejecutar lamacro será
4.
5.
6.
7.

CTRL-a
Ubicar el cursor en la celda F5 e ingresar la fórmula =suma(B5:E5). Copiela hasta la celda F7.
Presionar el botón DETENER GRABACION.
Borrar el contenido de la celda F5.
Probar la macro presionando las teclas CTRL y a.

Para ver el código de la macro ejecutemos:

Menu HERRAMIENTAS - Opción MACRO - opción MACROS
Seleccionemos la macro TotalProducto y elbotón MODIFICAR

El código visualizado es:

Sub TotalProducto()
'

' TotalProducto Macro
' Macro grabada el 07-3-2010 por ………
' Acceso directo: CTRL+a
'
Range("F5").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("F5").Select
Selection.AutoFill Destination:=Range("F5:F7"), Type:=xlFillDefault
Range("F5:F7").Select

End Sub
El término R1C1 hace referencia a la celda A1.Esto se llama NOTACION RIC1 (para activarla ejecute:
Menu HERRAMIENTAS - opción OPCIONES -Haga un click en la pestaña GENERAL y active la casilla
ESTILO DE REFERENCIA F1C1). Ud. notará que cuando el cursor está ubicado en una celda, en la barra de
fórmula aparece como referencia el número de fila y número de columna (por ejemplo si Ud. se ubica en la
celda b8 en la barra de fórmula aparece F8C2Programando directamente en código

DESARROLLO DE UN EJEMPLO:
1. CREAR LA SIGUIENTE PLANILLA:

2. Activar la barra de herramientas de Visual Basic

3. Para ir al código de programación:
Haga un click en el botón
EDITOR DE VISUAL bASIC

Elija la opción VER del menú y luego la opción CODIGO (aparecerá una ventana en blanco, con

el cursor activado)

4. Para crear un procedimiento(Macro) deberá digitar primero:

Sub nombre del procedimiento( )

(no debe incluir espacios ni caracteres en el
nombre, salvo el carácter "_" )

Luego presione la tecla ENTER y notará que se crea al final la instrucción End Sub (Fin Macro)

Entre estas dos líneas se crea el código de la macro.

Para el ejemplo, el nombre de la macro será Calculo_Notas

Instrucciones para macrosPARA SELECCIONAR UNA CELDA O RANGO DE CELDAS

Range ("celda o rango de celdas").Select

En nuestro ejemplo:
1) Digite

Range("I3").Select

(ubicará el cursor en la celda I3)

2) Para ver el resultado, vuelva a excel haciendo un click en el botón VER MICROSOFT EXCEL

3) Asocie el método abreviado CTRL - a
botón Opciones)

a la macro (herramientas - macro - macros -

4) Ubique elcursor en cualquier celda que no sea la I3, y ejecute la macro

PARA INGRESAR DATOS O FORMULAS A UNA CELDA

Selection.Formula="dato o fórmula"

En nuestro ejemplo:
1) Digite en la siguiente línea del código

Selection.Formula = "NOTA FINAL"

(escribirá en la celda I3, NOTA
FINAL)

2) Vuelva a excel y ejecute la macro

PARA UBICARSE EN UNA CELDA CON RESPECTO A OTRASelection.Offset(nº de fila,nº de columna).Select

Nº de fila

: si es positivo bajará tantas celdas como indique el número
Si es negativo, subirá tantas celdas como indique el número

Nº de columna : Si es positivo avanzará tantas columnas como indique el número
Si es negativo retrocederá tantas columnas como indique el número

En nuestro ejemplo, agregue la siguiente línea al código:Selection.Offset(1, 0).Select (bajará una celda y se ubicará en la I4)
(el cero indica no moverse de la columna)

PARA INGRESAR UNA FORMULA

Selection.Formula="=formula"

Considere que la referencia a celdas se hará de acuerdo a la celda en que se esté ubicado en ese
Momento.
REFERENCIA A CELDAS

R[nº]C[nº]

R Indica fila (si el número es positivo hace referencia a una celda ubicada hacia abajo)...