Macros Grabando y Codificando: EJERCICIO 8: A - Grabar Macro
Macros Grabando y Codificando: EJERCICIO 8: A - Grabar Macro
Macros Grabando y Codificando: EJERCICIO 8: A - Grabar Macro
Crearemos una macro Colores grabando, el cual nos mostrará cuatro colores Verde, Rojo,
Amarillo y Azul, tal como se muestra en la figura siguiente:
Solución
para ello nos ubicamos en la celda F10 en la hoja Grabar Macro y nos dirijimos a
Programador/Desarrollador – Usar referencias relativas – Grabar Macro
Aceptar
12
Realizamos el siguiente Relleno de celdas, con los respectivos colores Verde, Rojo, Amarillo y
Azul:
13
Ubicamos el cursor en una celda cualquiera, y presionamos la combinación de teclas CTRL + o
varias veces.
Dibuje el botón en la hoja Grabar Macro y al terminar de dibujar nos saldrá el cuadro de
diálogo siguiente:
14
Seleccione la macro Colores – Aceptar, y modifique el texto del botón, cambiándolo por
Colores:
Ubíquese en la pestaña Insertar – Formas – Cara sonriente y dibuje la cara sonriente en la hoja
Grabar macro, luego haga clic derecho en la forma (Cara sonriente) y seleccione del
desplegable Asignar Macro…,
15
Asigne la macro Colores – Aceptar.
Actividad:
EJERCICIO 9: B_Referencias
Ejecute Paso a paso por instrucciones de código presionando F8, al finalizar la ejecución,
presione el botón Rerefencias.
16
EJERCICIO 10: C_Copiar_Pegar
17
EJERCICIO 13: F_Bordes
18
EJERCICIO 15: H_Color_Fuente
19
EJERCICIO 17: J_Mensajes
EJERCICIO PROPUESTO
EJERCICIO 18: Grabar macro
1. Grabar una macro REGISTRAR para almacenar los datos del FORMULARIO REGISTRO DE
INGRESOS en la hoja Database, utilice la lista de PROVEEDORES y PRODUCTOS en el
formulario.
Actividad.
Grabar una macro REPORTE, que genere un PDF y haga que los pdf generados no se
sobrescriban.
Ejecute cada uno de las siguientes líneas de código e indique cuál es su resultado:
?Workbooks.Count
?Workbooks.Item(1).Name
?Workbooks(1).Name
20
ActiveWorkbook.Close Savechanges:=True
ActiveWorkbook.Close Savechanges:=False
ActiveWorkbook.Close(True)
ActiveWorkbook.Close(False)
Windows("Tema 02 Macros Grabando y Codificando.xlsx").Close
Workbooks.Open FileName:="C:\Tema 02 Macros Grabando y Codificando.xlsx"
Workbooks.Open (ThisWorkbook.Path & "\Tema 02 Macros Grabando y Codificando.xlsx")
ActiveSheet.Copy Before:= ActiveSheet
Worksheets(1).Name = "Grabando Macros"
Worksheets(11).Activate
Worksheets.Add.Name = "Nueva Hoja"
Worksheets("Nueva Hoja").Activate
ActiveSheet.Delete
ActiveWorkbook.Sheets.Add Before:=Worksheets("Inmediato")
Worksheets(Array(11,12,13)).Select
Sheets("Inmediato").Copy After:=Worksheets(Worksheets.Count)
Worksheets("Inmediato").Move After:=Worksheets("Inmediato")
Range("A1:C5").Select
Cells.Select
Cells.Item(3).Select
Cells.Item(2,7).Select
Cells(5).Select
Columns.Select
Columns(2).Select
Columns("E").Select
Columns("B:D").Select
Rows.Select
Rows(3).Select
Range("5").Select
Rows("3:7").Select
Range("C2").Select
ActiveCell.EntireColumn.Select
ActiveCell.EntireRow.Select
Msg = MsgBox("Elija archivo para abrir.", vbOKOnly, (""))
strArchivo = Application.GetOpenFilename
MsgBox ActiveWorkbook.FullName
21