Fase 2
Bien, ahora después de practicar la Fase 1 con diferentes ejemplos o Macros pasaremos a la siguiente Fase que nos
permitirá observar los códigos que hemos generados con nuestra macros. Te recomiendo que salgas
de Excel y vuelvas a entrar, para que trabajes limpio sin ninguna macro y empezando de la macro1 de nuevo.
permitirá observar los códigos que hemos generados con nuestra macros. Te recomiendo que salgas
de Excel y vuelvas a entrar, para que trabajes limpio sin ninguna macro y empezando de la macro1 de nuevo.
OBSERVANDO LOS CODIGOS DE UNA MACRO DE EXCEL
Crearemos una macro y veremos sus códigos:
Para observar los códigos de una macro debemos de seguir los siguientes pasos:
- Primeramente trasládese a la celda A5 antes de empezar la grabación de la Macro
- Presione el Botón Grabar Macro de la barra de Herramientas Visual Basic. Excel muestra el cuadro de
Dialogo Grabar Macro - en la opción Método Abreviado escriba la letra r, por lo tanto la macro se llamara con Control + r
- Presione el botón Aceptar. Excel inicia la grabación del la Macro1
- Trasládese ala celda A1 y escriba Ramón, después presione Enter para aceptar el valor en la celda
- Pare la grabación de la macro presionando el botón Detener Grabación de la barra de herramientas
Visual Basic. Excel a grabado los pasos y a generado un código, Observémoslos: - Presione la tecla Alt + la tecla de función F11(Alt + F11). Excel nos traslada al Editor de Visual Basic.
Si este editor no se activa es que Excel no esta bien instalado o se a borrado. También puede acceder desde
el Menú Herramientas, Macro y Editor de Visual Basic. - Active los siguientes cuadros o ventanas:
- De clic en el Menú Ver y elija la opción Explorador de Proyectos
- De clic en el Menú ver y elija la opción Ventana Propiedades
Estas dos opciones deben de estar siempre activadas ya que de ahí depende todo lo que vallamos a hacer.
- Del cuadro Proyecto de doble clic en Módulos o simplemente presione el signo de + que
aparece en la opción
Módulos. Se activara debajo de Módulos la Opción Modulo1 - De doble clic en Modulo1. Se mostrara en el Editor de Visual Basic el código de la macro que
grabamos de la siguiente forma:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 08/04/2001 por RAMON MENDOZA OCHOA
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ramón"
Range("A2").Select
End Sub
Que es lo que significa esto nos preguntaremos asombrados, a continuación se da una explicación de
lo que ha
hecho Excel:
lo que ha
hecho Excel:
- Sub y End Sub indican el inicio y el final del procedimiento de la Macro1
- Todo lo que aparece con un apostrofe ´ indica que no se tomara en cuenta que es solo texto o comentarios y
ese texto debe de aparecer en un color, ya sea el color verde. - Range("A1").Select Indica que lo primero que hicimos al grabar la macro fue trasladarnos
a la celda A1.La orden Range nos permite trasladarnos a una celda - ActiveCell.FormulaR1C1 = "Ramón" Esto indica que se escribirá en la celda en que se encuentra
el valor de texto Ramón. Todo lo que aparece entre comillas siempre será un valor de texto. La orden
ActiveCell.FormulaR1C1 nos permite escribir un valor en la celda activa. - Range("A2").Select Otra vez indicamos que se traslade a la celda A2. Esto se debe a que
cuando escribimos el nombre de Ramón en A1 presionamos Enter y al dar Enter bajo a la celda A2.
Para comprender mejor alteraremos el código dentro del editor de Visual Basic.
Que crees que pasara aquí con nuestra Macro:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 08/04/2001 por RAMON MENDOZA OCHOA
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ramón"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Calle 21 de Marzo #280"
Range("C1").Select
ActiveCell.FormulaR1C1 = "31-2-47-13"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nogales Sonora"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CONALEP NOGALES"
End Sub
Así es acabo de alterar el código y cuando regrese a Excel y ejecute la macro con Control + r hará lo siguiente:
En A1 escribirá Ramón
En B1 escribirá Calle 21 de Marzo #280
En C1 escribirá 31-2-47-13
En D1 escribirá Nogales Sonora
En E1 escribirá CONALEP NOGALES
Así que salgamos del editor dando clic en el Menú Archivo y eligiendo la opciónCerrar y volver a Microsoft Excel.
Si no desea salir por completo de clic en el botón Microsoft Excel que se encuentra activado en la barra de tareas y
cuando deseé volver al editor de clic en el botón Microsoft Visual Basic que se encuentra en la barra de Tareas.
Si no desea salir por completo de clic en el botón Microsoft Excel que se encuentra activado en la barra de tareas y
cuando deseé volver al editor de clic en el botón Microsoft Visual Basic que se encuentra en la barra de Tareas.
Ahora ya que salimos de Visual Basic y estamos en Excel de Nuevo ejecutemos la macro presionando
Control + ry veamos los resultados de nuestra modificación.
Control + ry veamos los resultados de nuestra modificación.
Que te parece es sencillo o No?, Claro necesitamos practicar bastante para dominar esto, así que repasa la Fase 2
cuantas veces sea necesario, otra cosa no trates de generar códigos muy complejos en tus macros porque te vas a
enredar, poco a poco se va lejos.
cuantas veces sea necesario, otra cosa no trates de generar códigos muy complejos en tus macros porque te vas a
enredar, poco a poco se va lejos.
Practica II
Genera una Macro que escriba un nombre en una celda y lo ponga negrita y observa el Código.
Genera una Macro que escriba un nombre en una celda y lo Centre y observa el Código.
Genera una Macro que escriba un nombre en una celda y cambie el tamaño de la letra a 20 puntos y observa
el Código.
el Código.
Códigos Más comunes:
Trasladarse a una Celda
Range("A1").Select
Escribir en una Celda
Activecell.FormulaR1C1="Ramon"
Letra Negrita
Selection.Font.Bold = True
Letra Cursiva
Selection.Font.Italic = True
Letra Subrayada
Selection.Font.Underline = xlUnderlineStyleSingle
Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With
Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With
Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With
Tipo de Letra(Fuente)
With Selection.Font
.Name = "AGaramond"
End With
Tamaño de Letra(Tamaño de Fuente)
With Selection.Font
.Size = 15
End With
Copiar
Selection.Copy
Pegar
ActiveSheet.Paste
Cortar
Selection.Cut
Ordenar Ascendente
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Orden Descendente
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Buscar
Cells.Find(What:="Ramon", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Insertar Fila
Selection.EntireRow.Insert
Eliminar Fila
Selection.EntireRow.Delete
Insertar Columna
Selection.EntireColumn.Insert
Eliminar Columna
Selection.EntireColumn.Delete
Abrir un Libro
Workbooks.Open Filename:="C:\Mis documentos\video safe 3.xls"
Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\piscis.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Estos serian algunos códigos muy comunes en Excel, pero si usted desea puede generar mas códigos
de otras opciones, es cuestión de que los ocupe.
de otras opciones, es cuestión de que los ocupe.
Antes de pasar a la Fase 3 es necesario que domines generar Macros y Observar sus códigos que se encuentran
en la Fase 2. Recuerda esto es de mucha practica y para eso es necesario aprender bien las fases Anteriores.
en la Fase 2. Recuerda esto es de mucha practica y para eso es necesario aprender bien las fases Anteriores.