Macros Excel 12719
-
Upload
gustavomilla -
Category
Documents
-
view
44 -
download
1
Transcript of Macros Excel 12719
-
5/22/2018 Macros Excel 12719
1/56
Macros de excelAutor: Ramn Mendoza Ochoa
[Ver curso online]
Descubre miles de cursos como ste en www.mailxmail.com 1
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excelhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel -
5/22/2018 Macros Excel 12719
2/56
Presentacin del curso
Curso de Excelenfocado a la prctica. Aprende a manejar las Macros de Excel,para aprovechar mejor las posibilidades de este software de informtica (ofimtica)tan potente y de gran utilidad tanto a nivel domstico, como a nivel profesional en
todo el mundo.Un gran porcentaje de los usuarios de Excel, maneja las opciones bsicas delprograma y tiene dificultades en dar un salto importante de nivel en el conocimientoy manejo de las potencialidades del mismo. Resulta que Microsoft Excel, tieneintegrado, a modo de aplicacin, el lenguaje de programacin Visual Basic,mediante el cual podemos generar y programar las Macros.
Con el aprendizaje sencillo de Visual Basicen Excelpara la programacinde lasMacros, podemos, sin duda, dar ese salto hacia un nivel mucho ms alto en elmanejo de Excel y en los beneficios prcticos que de ello podemos extraer.
Con una gua adecuada del manejo de las Macros de Excel, no tendrs problemas
en aprender a manejar estas utilidades del programa. Ya vers cmo, siguiendo estagua, el aprendizaje de la aplicacin de estas utilidades para fines prcticos, serms fcil de aprender de lo que seguramente tienes en mente.
Adelante entonces con esta gua o manual de Excelenfocado a la programacin deMacros con Visual Basic. Recuerda que mientras ms domines las funciones deeste programa, ms fcil, ms prctico y ms productivo sers con las tareas oproyectos en los que ests trabajando.
Visita ms cursos como este en mailxmail:[http://www.mailxmail.com/cursos-informatica][http://www.mailxmail.com/cursos-ofimatica]
Tu opinin cuenta! Lee todas las opiniones de este curso y djanos la tuya:[http://www.mailxmail.com/curso-macros-excel/opiniones]
Cursos similares
Cursos Valoracin Alumnos Vdeo
Word 2003. Formato de documentos (2/2)En esta parte del curso veremos el formato de texto de Word 2003. Cuandohablamos del formato de un texto nos estamo...[24 /11 /10]
200
Excel 2003. Tutorial funciones: sumar.si ycontar.siFunciones de Excel. En el tutorial de Microsoft Excel 2003 que hoy vamos apresentar, hemos preparado una leccin sobre algunas de la...[07 /05 /10]
10.018
YouTube. Subir vdeos en pantalla completaCmo subir vdeos a YouTube en pantalla completa? Ahora te mostramoscmo hacerlo de manera sencilla, utilizando el programa [25/02/11]
929
Descubre miles de cursos como ste en www.mailxmail.com 2
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/cursos-informaticahttp://www.mailxmail.com/cursos-ofimaticahttp://www.mailxmail.com/curso-macros-excel/opinioneshttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2http://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-microsoft-office-word-excelhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-microsoft-office-word-excelhttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completa/opinioneshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-si/opinioneshttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-excel-2003-tutorial-funciones-sumar-si-contar-sihttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2/opinioneshttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2http://www.mailxmail.com/curso-macros-excel/opinioneshttp://www.mailxmail.com/cursos-ofimaticahttp://www.mailxmail.com/cursos-informatica -
5/22/2018 Macros Excel 12719
3/56
Conceptos bsicos sobre Microsoft OfficeEste curso le proporcionar herramientas tiles e indispensables a todosaquellos que deseen aprender a manejar un computador, y sobre todo, aquienes estn interesados e...[08 /08 /08]
4.354
DreamWeaver CS3. Objetos SprayTutorial de DreamWeaver CS3. En el siguiente curso encontrars unaintroduccin a los nuevos objetos Spray del DreamWeaver CS3. Con l...[28 /10 /10]
863
Descubre miles de cursos como ste en www.mailxmail.com 3
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-microsoft-office-word-excelhttp://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorial/opinioneshttp://www.mailxmail.com/curso-dreamweaver-cs3-objetos-spray-video-tutorialhttp://www.mailxmail.com/curso-microsoft-office-word-excel/opinioneshttp://www.mailxmail.com/curso-microsoft-office-word-excel -
5/22/2018 Macros Excel 12719
4/56
1. Qu es una Macro de Excel[http://www.mailxmail.com/curso-macros-excel/que-es-macro-excel ]
Primeramente debemos de saber que es una Macro y a continuacin se explica eltermino:
Una Macro son una serie de pasos que se almacenan y se pueden activar con algunatecla de control y una letra. Por ejemplo, todos los das empleo frecuentemente enmis celdas los mismos pasos: Tamao de Fuente(Tamao de la letra), Negrita,Fuente(Tipo de letra) y Color de Fuente(Color de Letra), para no estar repitiendoestos pasos los puedo almacenar en una macro y cuando ejecute la macro los pasosantes mencionados se ejecutaran las veces que yo lo desee. A continuacin temuestro como grabar una macro y ejecutarla:
Trasldate a la celda A1y escribe tu Nombre. Por ejemplo, Ramny presiona EnterRegrsate a la celda A1, porque cuando diste Enter bajo de celda o cambio el rumbo.Da clic en el Men Ver, seguido por la Opcin Barra de Herramientasy elija VisualBasic. Se activara la barra de herramientas Visual Basic.
Da clic en el botn Guardar Macro, el que tiene la ruedita Azul. Windows activa elcuadro de dialogo Grabar Macro, el cual permitir darle el nombre a la macro y cualser el mtodo abreviado para ejecutarla. El mtodo Abreviado se refiere con queletra se va activar la macro, obviamente se activara con la tecla Control y la letra queusted quiera, de preferencia en minscula, porque si activa las maysculas la macrose activara presionando la tecla Shift + Control + la letra que usted indico.
Donde dice Nombre de la macroya aparece el nombre que llevara la macro en estecaso Macro1. si desea cambiar el nombre escriba uno nuevo, pero yo le recomiendoque as lo deje. En la opcin Mtodo Abreviadoaparece que se activara con la teclaControl(CTRL)+ la letra que usted indica, de clic en el cuadrito y ponga una letra,por ejemplo ponga la letra a(en minsculas). La macro se activara cuando este listacon la tecla Control + aDe clic en el Botn Aceptar. Windows empezara a grabartodos los pasos en la Macro1.y el botn de la ruedita azul cambiara de forma ahora
Descubre miles de cursos como ste en www.mailxmail.com 4
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/que-es-macro-excelhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/que-es-macro-excel -
5/22/2018 Macros Excel 12719
5/56
ser un cuadrito Azul, se llamara Detener grabacin. Lo utilizaremos cuandoterminemos de indicarle los pasos para detener la grabacin. Cambie el Tipo deLetra en el Botn Fuentede la barra de herramientas Formato Cambie el tamao dela letra en el Botn Tamao de Fuentede la barra de herramientas FormatoPresione el Botn Negritade la barra de herramientas Formato Cambie el color dela letra en el Botn Color de Fuentede la barra de herramientas Formato. Recuerdeque todos estos pasos estn siendo almacenados en la macro que estamosgrabando y tambin recuerde que estos pasos se estn efectuando en la celda A1.
Presione el Botn Detener Grabacinde la barra de Herramientas de Visual Basic.El que tiene el cuadrito azul presionado.
Listo Excel guardo los pasos en la Macro1 que se activara presionado la tecla ControlControl + a
Escribe otro nombre en la celda C1y presiona Enter, despus regresa a la celda C1.Presiona la tecla Control + a. Windows efectuara todos los pasos grabados sobre la
celda C1, esto quiere decir que el nombre que esta en C1tendr las caractersticasdel que esta en A1. Tipo de letra, tamao, negrita y el color que indicaste al grabarla macro.
Nota. Cada vez que presiones Control + aExcel ejecutara la macro y efectuara lospasos en la celda que te encuentres. Puedes grabar todas las macros que desees.
Ahora te recomiendo que domines estos pasos antes de pasar a la siguiente fase.Trata de crear macros que almacenen pasos como estos, recuerda los pasos los vasa indicar tu, que no se te olvide detener la grabacin despus de que indicaste lospasos, repite este ejercicio las veces que sea necesario para aprendrtelo bien.
Practica I
Genera las siguientes Macros:
Graba una Macroque se active con Control + by que esta macro permita abrir unarchivo
Graba una Macroque se active con Control + cy que esta macro permita insertarun WordArt
Muchos pensaran que esto no es nada pero ya veremos mas adelante cuandomezclemos los cdigos que genera Excelcon los de Visual Basic. Esto ser puraDinamita.
Descubre miles de cursos como ste en www.mailxmail.com 5
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
6/56
2. Observando los cdigos de una macro de excel[http://www.mailxmail.com/curso-macros-excel/observando-codigos-macro-excel]
Bien, ahora despus de practicar la Fase 1con diferentes ejemplos o Macrospasaremos a la siguiente Faseque nos permitir observar los cdigos que hemosgenerados con nuestra macros. Te recomiendo que salgas de Excely vuelvas aentrar, para que trabajes limpio sin ninguna macro y empezando de la macro1 denuevo.
OBSERVANDO LOS CODIGOS DE UNA MACRO DE EXCEL
Crearemos una macro y veremos sus cdigos:
Para observar los cdigos de una macro debemos de seguir los siguientes pasos:
Primeramente trasldese a la celda A5antes de empezar la grabacin de la MacroPresione el Botn Grabar Macrode la barra de Herramientas Visual Basic. Excelmuestra el cuadro de Dialogo Grabar Macro en la opcin Mtodo Abreviadoescribala letra r, por lo tanto la macro se llamara con Control + rPresione el botn
Aceptar. Excelinicia la grabacin del la Macro1Trasldese a la celda A1y escribaRamn, despus presione Enterpara aceptar el valor en la celda Pare la grabacinde la macro presionando el botn Detener Grabacinde la barra de herramientasVisual Basic.Excel a grabado los pasos y a generado un cdigo, Observmoslos:Presione la tecla Alt + la tecla de funcin F11(Alt + F11). Excel nos traslada al Editorde Visual Basic. Si este editor no se activa es que Excel no esta bien instalado o se aborrado. Tambin puede acceder desde el Men Herramientas, Macro y Editor deVisual Basic. Active los siguientes cuadros o ventanas:
De clic en el Men Very elija la opcin Explorador de ProyectosDe clic en el Menvery elija la opcin Ventana Propiedades
Estas dos opciones deben de estar siempre activadas ya que de ah depende todo loque vallamos a hacer.
Del cuadro Proyectode doble clic en Mduloso simplemente presione el signo de ++ que aparece en la opcin Mdulos. Se activara debajo de Mdulosla OpcinModulo1De doble clic en Modulo1. Se mostrara en el Editor de Visual Basic elcdigo de la macro que grabamos de la siguiente forma:
Descubre miles de cursos como ste en www.mailxmail.com 6
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/observando-codigos-macro-excelhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/observando-codigos-macro-excel -
5/22/2018 Macros Excel 12719
7/56
Sub Macro1()'' Macro1 Macro' Macro grabada el 08/04/2001 por RAMON MENDOZA OCHOA'' Acceso directo: CTRL+r'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ramn" Range("A2").SelectEnd Sub
Que es lo que significa esto nos preguntaremos asombrados, a continuacin se dauna explicacin de lo que ha hecho Excel:
Suby End Subindican el inicio y el final del procedimiento de la Macro1Todo loque aparece con un apostrofe indica que no se tomara en cuenta que es solo textoo comentarios y ese texto debe de aparecer en un color, ya sea el color verde. Range("Range("A1").SelectIndica que lo primero que hicimos al grabar la macro fuetrasladarnos a la celda A1. La orden Rangenos permite trasladarnos a una celda
ActiveCell.FormulaR1C1 = "Ramn"Esto indica que se escribir en la celda en quese encuentra el valor de texto Ramn. Todo lo que aparece entre comillas siempreser un valor de texto. La orden ActiveCell.FormulaR1C1nos permite escribir unvalor en la celda activa. Range("A2").Select Otra vez indicamos que se traslade a lacelda A2. Esto se debe a que cuando escribimos el nombre de Ramnen A1presionamos Entery al dar Enterbajo a la celda A2.
Para comprender mejor alteraremos el cdigo 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 = "Ramn" 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 cdigo y cuando regrese a Excely ejecute la macro con ConControl + rhar lo siguiente:
Descubre miles de cursos como ste en www.mailxmail.com 7
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
8/56
En A1 escribir RamnEn B1 escribir Calle 21 de Marzo #280En C1 escribir 31-2-47-13En D1 escribir Nogales SonoraEn E1 escribir CONALEP NOGALES
As que salgamos del editor dando clic en el Men Archivoy eligiendo la opcinCerrar y volver a Microsoft Excel. Si no desea salir por completo de clic en elbotn Microsoft Excelque se encuentra activado en la barra de tareas y cuandodese volver al editor de clic en el botn Microsoft Visual Basicque se encuentraen la barra de Tareas.
Ahora ya que salimos de Visual Basicy estamos en Excelde Nuevo ejecutemos lamacro presionando Control + ry veamos los resultados de nuestra modificacin.
Que te parece es sencillo o No?, Claro necesitamos practicar bastante para dominaresto, as que repasa la Fase 2cuantas veces sea necesario, otra cosa no trates degenerar cdigos muy complejos en tus macros porque te vas a enredar, poco a pocose va lejos.
Practica II
Genera una Macroque escriba un nombre en una celda y lo ponga negrita y observael Cdigo.
Genera una Macroque escriba un nombre en una celda y lo Centre y observa elCdigo.
Genera una Macroque escriba un nombre en una celda y cambie el tamao de laletra a 20 puntos y observa el Cdigo.
Descubre miles de cursos como ste en www.mailxmail.com 8
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
9/56
3. Cdigos ms comunes[http://www.mailxmail.com/curso-macros-excel/codigos-mas-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
.HorizontalAl ignment = xlRight
End With
Tipo de Letra(Fuente)
With Selection.Font
.Name = "AGaramond"
End With
Tamao de Letra(Tamao de Fuente)
With Selection.Font
Descubre miles de cursos como ste en www.mailxmail.com 9
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/codigos-mas-comuneshttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/codigos-mas-comunes -
5/22/2018 Macros Excel 12719
10/56
.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:= _
Descubre miles de cursos como ste en www.mailxmail.com 10
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
11/56
False, CreateBackup:=False
Estos serian algunos cdigos muy comunes en Excel, pero si usted desea puedegenerar mas cdigos de otras opciones, es cuestin de que los ocupe.
Antes de pasar a la Fase 3es necesario que domines generar Macrosy Observar suscdigos que se encuentran en la Fase 2.Recuerda esto es de mucha practica y paraeso es necesario aprender bien las fases Anteriores.
Descubre miles de cursos como ste en www.mailxmail.com 11
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
12/56
4. Creando formularios y programndolos I[http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-1]
Antes de Empezar esta nueva fase te recomiendo que salgas de Excely vuelvas aentrar, esto es por si estuviste practicando los cdigos, para que no quede unasecuencia de Macros.
Ahora te enseare a dominar lo mximo de Excel que es crear formularios yprogramarlos, bueno un formulario es una ventana que se programa por medio decontroles y estos controles responden a sucesos que nosotros programamos. Todoesto se encuentra dentro de Visual Basic.
A continuacin Muestro como crear un formulario y como programarlo:
Presione La Teclas Alt + F11,para entrar al editor de Visual Basic. Activa lassiguientes opciones: De clic en el Men Very elija la opcin Explorador deProyectosDe clic en el Men very elija la opcin Ventana PropiedadesDel MenInsertarelija la Opcin UserForm.Esto inserta el Formulario que programaremoscon controles. En el Explorador de Proyectose observara que se inserto elUserForm.
Tambin cuando de clic en el Formulario USERFORM1se debe de activar el Cuadrode Herramientas, si no se activa de clic en el Men Very elija la opcin Cuadro deHerramientas.
Elija del Cuadro de Herramientasel Control Etiquetael que tiene la Ay Arrastredibujando en el Formulario USERFORM1la etiqueta. Quedara el nombre Label1,despus de un clic en la etiqueta dibujada y podr modificar el nombre de adentro ypondremos ah Nombre.Si por error da doble clic en la etiqueta y lo manda a lapantalla de programacin de la etiqueta, solo de doble clic en UserForm1que seencuentra en el Explorador de Proyecto.Elija del Cuadro de Herramientaselcontrol Cuadro de Textoel que tiene aby arrastre dibujando en el formulario
USERFORM1el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadrode texto debe de estar vaco y su nombre ser Textbox1, el nombre solo apareceren el control. Haga los dos pasos anteriores igualmente poniendo Direccinen laLabel2 y Telfonoen la Label3 y tambin dibjeles su Textbox. Esto quedara asdespus de haberlo hecho
Descubre miles de cursos como ste en www.mailxmail.com 12
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-1http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-1 -
5/22/2018 Macros Excel 12719
13/56
Si tiene algn problemaal dibujar las etiquetas o los cuadros de texto, solocmbiele el nombre a la etiqueta o el cuadro de texto en la Ventana Propiedadeslaopcin se llama (Name).El Error que marque puede ser Nombre Ambiguo,pero sile cambias el Nombre al control se quitara el error. Puedes ponerle cualquiernombre en lugar de Label1.
Solo altera esto si te marca error, si NO djalo as. Los controles como las Etiquetas y Cuadros de Textos pueden modificrselesalgunas opciones en la Ventana Propiedades Para hacer esto es necesario tenerconocimiento sobre las propiedades de los controles. No altere las propiedades sino las conoce.
Descubre miles de cursos como ste en www.mailxmail.com 13
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
14/56
5. Creando formularios y programndolos II[http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-2]
7. Elija del Cuadro de Herramientasel control Botn de Comandoy Arrastredibujando en el Formulario USERFORM1el Botn, despus de un clic en el nombredel Botn dibujado y podr modificar el nombre y pondremos ah Insertar.Si porerror da doble clic en la Botn y lo manda a la pantalla de programacin de laetiqueta, solo de doble clic en UserForm1que se encuentra en el Explorador deProyecto.
As quedara el Formulario formado por los controles:
8. Ahora de doble clic sobre el control Textbox1para programarlo y despusinserte el siguiente cdigo:
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End SubEsto indica que se valla a A9y escriba lo que hay en el Textbox1
Nota.-Lo que esta en azul lo genera Excel automticamente, usted solo escribir loque esta en Negrita.
Para volver al Formularioy programar el siguiente Textbox de doble clic enUserForm1que se encuentra en el Explorador de Proyecto,o simplemente de clicen Ver Objetoen el mismo Explorador de Proyecto.
Descubre miles de cursos como ste en www.mailxmail.com 14
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-2http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/creando-formularios-programandolos-2 -
5/22/2018 Macros Excel 12719
15/56
9. Ahora de doble clic sobre el control Textbox2para programarlo y despusinserte el siguiente cdigo:
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Esto indica que se valla a B9y escriba lo que hay en el Textbox2
Para volver al Formularioy programar el siguiente Textbox de doble clic enUserForm1que se encuentra en el Explorador de Proyecto,o simplemente de clicen Ver Objetoen el mismo Explorador de Proyecto.
10. Ahora de doble clic sobre el control Textbox3para programarlo y despusinserte el siguiente cdigo:
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Esto indica que se valla a C9y escriba lo que hay en el Textbox3
Para volver al Formularioy programar el Botn de ComandoInsertar de doble clicen UserForm1que se encuentra en el Explorador de Proyecto,o simplemente declic en Ver Objetoen el mismo Explorador de Proyecto.
11. Ahora de doble clic sobre el control Botn de Comandopara programarlo ydespus inserte el siguiente cdigo:
Private Sub CommandButton1_Click()
Rem inserta un rengln
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Enva el cursor al Textbox1 para volver a capturar losdatos
TextBox1.SetFocus
End Sub
Nota.-El comando Remes empleado para poner comentarios dentro de laprogramacin, el comando Emptyes empleado para vaciar los Textbox.
Descubre miles de cursos como ste en www.mailxmail.com 15
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
16/56
12. Ahora presione el botn Ejecutar User/Formque se encuentra en la barra deherramientas o simplemente la tecla de funcin F5
Se activara el Userform1y todo lo que escriba en los Textbox se escribir en Excely cuando presione el botn Insertar, se insertara un rengln y se vaciaran losTextbox y despus se mostrara el cursor en elTextbox1.
En este archivo que usted bajo se encuentra una hoja de Excel Libre de Virus o seaque esta limpio, bralo sin ningn problema, ya que ah viene un ejemplo de laMacro ya realizada y solo la ejecutara y vera como trabajan las Macros. Espero yests pendiente porque vienen mas partes sobre este interesante curso de Macros.
Descubre miles de cursos como ste en www.mailxmail.com 16
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
17/56
6. Trabajando con frmulas[http://www.mailxmail.com/curso-macros-excel/trabajando-formulas]
Es de suma importancia saber aplicar Formulasen Macros de Excel, ya que lamayora de las hojas de clculos las involucran, por ejemplo los Inventarios, lasNominas o cualquier otro tipo de hoja las llevan, es por eso que en la siguiente Fasese muestra como manejar Formulasen Macros de Excel.
Fase I
Presione La Teclas Alt + F11,para entrar al editor de Visual Basic. Activa lassiguientes opciones: De clic en el Men Very elija la opcin Explorador deProyectosDe clic en el Men very elija la opcin Ventana PropiedadesDel MenInsertarelija la Opcin UserForm.Esto inserta el Formulario que programaremoscon controles. En el Explorador de Proyectose observara que se inserto elUserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendr:
- Tres etiquetas
- Tres Textbox- Un Botn de Comando
Los datos que se preguntaran sern Nombre y Edad, los Das Vividos se generaranautomticamente cuando insertes la edad. A continuacin se muestra como sedeben de programar estos Controles:
Programacin de los Controles:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Descubre miles de cursos como ste en www.mailxmail.com 17
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/trabajando-formulashttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/trabajando-formulas -
5/22/2018 Macros Excel 12719
18/56
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
Rem aqu se crea la Formula
TextBox3 = Val(TextBox2) * 365
Rem El Textbox3 guardara el total de la multiplicacin del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numrico
Rem Esto se debe a que los Textbox no son Numricos y debemos de Convertirlos
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado delos das vividos aparecer en el Textbox3y se escribir tambin en Excel. Elcomando Vales un comando de Visual Basicque te permite convertir un valor detexto a un valor numrico. Recuerden el Comando Rem se utiliza para poner
Comentarios nicamente y no afecta a la programacin.
Este Archivo de esta Macrose llama Macros de Edady viene incluido aqu.
Generaremos otro ejemplo, Crea el Siguiente Formulario con los siguientes datos:
- 5 Etiquetas- 5 Textbox- 1 Botn de Comando
Los datos que se preguntaran sern Nombre, Das Trabajados, Pago por Da, Bonosy Sueldo Neto.
Descubre miles de cursos como ste en www.mailxmail.com 18
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
19/56
Descubre miles de cursos como ste en www.mailxmail.com 19
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
20/56
7. Genera el siguiente cdigo[http://www.mailxmail.com/curso-macros-excel/genera-siguiente-codigo]
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("D9").Select
ActiveCell.FormulaR1C1 = TextBox4
Rem aqu se crea la formula
TextBox5 = Val(TextBox2) * Val(TextBox3) + Val(TextBox4)
Rem El TextBox5 guardara el total
End Sub
Private Sub TextBox5_Change()
Range("E9").Select
Descubre miles de cursos como ste en www.mailxmail.com 20
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/genera-siguiente-codigohttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/genera-siguiente-codigo -
5/22/2018 Macros Excel 12719
21/56
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Cuando se introduzca el Bonos automticamente se generara el Sueldo Neto.
Este ejemplo viene en el Archivo Macros de Sueldo Neto
BUSANDO INFORMACIN CON UN TEXTBOX
Se puede buscar informacin con un Textbox programndolo de la siguiente forma:
Dibuje una Etiqueta, un Textboxy un Botnde Comandoy agregue el siguienteCdigo:
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Si te fijas inclu en la programacin del Botn Buscar Ahora que buscara lo que enel Textbox1 a la hora de Presionarse.
Este proceso viene en el Archivo Completo Macro2
Descubre miles de cursos como ste en www.mailxmail.com 21
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
22/56
8. Trabajando con el asistente[http://www.mailxmail.com/curso-macros-excel/trabajando-asistente]
El asistente es el personaje de Officeque se activa para ayudarnos y una de lasventajas es que podemos Manipularlo, por ejemplo se le puede dar animacin,Moverse, Hacer Preguntas, Etc.
A continuacin se muestran algunos cdigos del Asistente:
Este cdigo permite hacer visible el ayudante o sea mostrarlo. Si deseas ocultarlosolo cambia la opcin Truepor False.
Assistant.Visible = True
Este cdigo permite Mover el Asistente a un nuevo lugar, solo cambia los valoresnumricos y cambiara de posicin.
Assistant.Move 430, 230
Este cdigo permite activar un efecto de animacin, cuando escribas el signo Igualdespus de Assistant.Animation = aparecer un men con diferentes efectos deanimacin
Assistant.Animation = msoAnimationListensToComputer
Este ejemplo permite crear un Nuevo Asistentepara poderlo manipular con unapregunta y que tu contestes. La variable tguardara el valor de la respuesta, si elvalor es -3 significa que es Si y por lo tanto borrara el rengln.
With Assistant.NewBalloon
.Text = "Deseas Borrar este Registro"
.Button = msoButtonSetYesNo
.Heading = "Advertencia"
t = .Show
End With
If t = -3 Then
Assistant.Animation = msoAnimationEmptyTrash
Descubre miles de cursos como ste en www.mailxmail.com 22
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/trabajando-asistentehttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/trabajando-asistente -
5/22/2018 Macros Excel 12719
23/56
Selection.EntireRow.Delete
End If
Este ejemplo viene en el archivo Macro2
Si deseas que siga saliendo esta gua solo escrbeme pidiendo que sigan saliendoejemplos.
Descubre miles de cursos como ste en www.mailxmail.com 23
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
24/56
9. Elaborando una consulta[http://www.mailxmail.com/curso-macros-excel/elaborando-consulta]
Todo Registro de informacindebe de tener su propia Consulta, Baja yModificacin, es por eso que en este nuevo capitulo nos concentramos en ello,primeramente en poder consultar la informacinque ya se escribi en la Hoja de
Excel, obviamente desde una Macrocombinada con Visual Basic, observemos elsiguiente ejemplo:
Fase I
Presione La Teclas Alt + F11,para entrar al editor de Visual Basic. Activa lassiguientes opciones: De clic en el Men Very elija la opcin Explorador deProyectosDe clic en el Men very elija la opcin Ventana PropiedadesDel MenInsertarelija la Opcin UserForm.Esto inserta el Formulario que programaremoscon controles. En el Explorador de Proyectose observara que se inserto elUserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendr:- Tres etiquetas- Tres Textbox- Tres Botones de Comando
Los datos que se preguntaran sern Nombre, Direccin y Telfono. Los tresbotones nos servirn para lo siguiente: Consultarconsultara la informacin quehayamos insertado desde el botn insertar. Bajapodr eliminar algn dato que seconsulto y no lo queremos. Insertartendr la funcin de insertar los registros quevayamos dando de alta, es como los ejercicios anteriores. A continuacin se muestracomo se deben de programar estos Controles:
Descubre miles de cursos como ste en www.mailxmail.com 24
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/elaborando-consultahttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/elaborando-consulta -
5/22/2018 Macros Excel 12719
25/56
10. Programacin de los Controles I[http://www.mailxmail.com/curso-macros-excel/programacion-controles-1]
BOTON DE CONSULTA
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
Rem la lnea que contiene el ActiveCell.Offset(0, 1).Selectpermite moverse unacolumna a la derecha, por lo tanto despus de la bsqueda de las primeras lneascon Cell.Findsi encuentra el Nombre de la persona se mueve a la siguiente columnay la lnea TextBox2 = ActiveCellPermite capturar el valor de la celda al Textbox2yas mostrar el dato de la celda en el TextBox2.
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
Rem Cada vez que se escriba la lnea ActiveCell.Offset(0, 1).Selectsignifica que setiene que moverse una columna a la derecha.
Rem Si el nombre que tratas de consultar no se encuentra podra generar un errorporque fallara el Cell.Find esto puede ocurrir en el Word 97, yo trabajo con el Word2000 o XP y no tengo ese problema. Pero esto se solucionara con una trampa de
error.
End Sub
BOTON BAJA
Private Sub CommandButton2_Click()
Selection.EntireRow.Delete
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
BOTON INSERTAR
Descubre miles de cursos como ste en www.mailxmail.com 25
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/programacion-controles-1http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/programacion-controles-1 -
5/22/2018 Macros Excel 12719
26/56
Private Sub CommandButton3_Click()
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
CUADROS DE TEXTO
Private Sub TextBox1_Change()
Range("A9").FormulaR1C1 = TextBox1
Rem esta primer lnea reemplaza a estas dos...... que te parece todava mas corta
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1[Leon1]
End Sub
Private Sub TextBox2_Change()
Range("B9").FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").FormulaR1C1 = TextBox3
End Sub
Si con el Botn Consultatienes un error cuando no encuentra a la persona,entonces tendrs que agregar esto a tu cdigo del Botn Consultar
[Leon1]Range("A9").FormulaR1C1=TextBox1 Reemplaza estas dos lineas
Descubre miles de cursos como ste en www.mailxmail.com 26
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
27/56
11. Programacin de los Controles II[http://www.mailxmail.com/curso-macros-excel/programacion-controles-2]
BOTON DE CONSULTA
Private Sub CommandButton1_Click()
On Error Goto noencontro
Rem esta lnea genera una trampa de error si Excel encuentra un error se le dice quese vaya a la etiqueta noencontroque esta definida mas adelante en el cdigo. Nouse la trampa de error si no tiene problemas a la hora de que no encuentra a lapersona. Recuerde si usted comete cualquier error Excel se dirigir a la etiquetanoencontro.y esquivara cualquier error, hasta uno que usted cometa en laprogramacin.
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
Rem Tambin se puede utilizar este cdigo para leer la informacin de las celdas loque esta en azul. La diferencia es que se asignan los valores a variables y despus sedescargan a los TextBoxs.
ActiveCell.Offset(0, 1).Select
Direccion = Activecell
ActiveCell.Offset(0, 1).Select
Telefono = Activecell
TextBox2 = Direccion
TextBox3 = Telefono
noencontro:
Rem Aqu se esquiva el error
End Sub
Que te parece es increble como una Macro combinada con Visual Basic puede hacerhasta lo imposible
Bueno ya tenemos elaborado un ejercicio de consultas de datos, ahora accesaremosal formulario desde Excelsin necesidad de entrar al Editor de Visual Basic.
Descubre miles de cursos como ste en www.mailxmail.com 27
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/programacion-controles-2http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/programacion-controles-2 -
5/22/2018 Macros Excel 12719
28/56
Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basicpara poder introducir el cdigo en un Modulo, por lo tanto debers seguir lossiguientes pasos:
- De clic en el Men Insertary elija la opcin Modulo
- Escriba dentro del Moduloel nombre del modulo en este caso Sub Entrada
Cuando usted escriba Sub Entrada aparecer de la siguiente manera:
Sub Entrada()
Load UserForm1
UserForm1.Show
End Sub
Usted deber escribir las dos lneas que estn en medio que son:
Load UserForm1
UserForm1.Show
La primer lnea significa que cargue a la memoria el formulario que se llamaUserForm1, la segunda lnea significa que lo muestre, esto quiere decir que en elmodulo estamos escribiendo el cdigo de una macro que permitir cargar elformulario desde Excel sin necesidad de entrar al Editor de Visual Basic.
Si te fija en el explorador de proyecto aparece el Moduloque creamos.
si queremos volver al formulario solo da doble clic en UserForm1Bueno ya esta listo ahora salgamos del Editor de Visual Basic y volvamos a Excel.
- De clic en el Men Archivodel Editor de Visual Basic
- Elija la opcin Cerrar y volver a Microsoft Excel
Ya que estamos en Excel, podemos insertar una imagen o un botn o cualquiergrafico, por ejemplo:
Descubre miles de cursos como ste en www.mailxmail.com 28
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
29/56
- De clic en el Men Insertar
- Elija la opcin Imagen, seguido por Imagen Prediseada
- inserte cualquier imagen y dele el tamao que usted desea.
- De clic derecho sobre la Imagen
- Elija la opcin Asignar Macro
- De clic en la Macroque se llama Entrada, es obvio la nica que hicimos- De Clic en Aceptar
- De clic fuera de la imagen en cualquier celda y listo si presionas la imagencargara el formulario.
Descubre miles de cursos como ste en www.mailxmail.com 29
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
30/56
12. Trabajar con Listbox y Combobox[http://www.mailxmail.com/curso-macros-excel/trabajar-listbox-combobox ]
Bueno empezaremos con como agregar informacin a un Comboboxy un Listbox,primeramente debers crear el siguiente formulario dentro de Visual Basic,recuerda desde Excel se utiliza la tecla ALT + F11para entrar a Visual Basic,seguido del Men Insertary despus Userform, bueno creo que ya lo sabes.Inserta Un Combobox y un Listboxy un Botn.
Ahora que ya creaste la Interfaz vamos a programar el botn, veremos como se lepuede agregar informacin por medio de cdigo a estos dos controles.
Da doble clic en el Botny escribe las siguientes lneas dentro del procedimiento.
Private Sub CommandButton1_Click()
ComboBox1.AddItem "Juan Jose"
ComboBox1.AddItem "Pedro de la Fuente"
ComboBox1.AddItem "Salvador de la Luz"
ListBox1.AddItem "Juan Jos"
ListBox1.AddItem "Pedro de la Fuente"
ListBox1.AddItem "Salvador de la Luz"
End Sub
Bueno vamos a analizar el significado de estas lneas:
ComboBox1.AddItem "Juan Jos "
La opcin AddItemsignifica que vas a agregar un dato de texto, por lo tanto seentiende como vas a agregar a Juan Jos al Combobox1, por lo tanto yo puedoagregar los datos que quiera a un Comboboxo un Listboxcon la opcin AddItem,entonces al presionar el botn aparecern los datos que se encuentra escritos ypodrs seleccionar cualquiera de ellos, recuerda que la informacin la vas a agregarsegn tus necesidades.
Descubre miles de cursos como ste en www.mailxmail.com 30
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/trabajar-listbox-comboboxhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/trabajar-listbox-combobox -
5/22/2018 Macros Excel 12719
31/56
Ahora si deseas agregar nmeros a un Combobox o ListBox escribe el siguientecdigo en un botn:
Private Sub CommandButton1_Click()
For X=1 to 50
Listbox1.AddItem str(x)
Next
End Sub
La Instruccin For-Nextes un ciclo contador que te permite contar desde unnumero hasta otro. Por ejemplo le digo que cuente desde el 1 hasta el 50 y lo que seencuentre dentro del ciclo For-Nextse ejecutara el nmero de veces, la Xes unavariable numrica que guarda el valor, cada vez que el ciclo da una vuelta aumentaun numero, por lo tanto Xva a valer desde 1 hasta 50, y la instruccin Stres paraconvertir el valor numrico de la Xen valor de Texto, ya que la opcin AddItemguarda solo texto, claro esta que tambin puede funcionar sin esta instruccin enalgunos casos.
Por lo tanto el Listbox1va a guardar los nmero del 1 al 50, sin necesidad de irlosponiendo de uno por uno, imagnatelo.
Listbox1.AddItem "1"
Listbox1.AddItem "2"
Listbox1.AddItem "3"
Ya te quiero ver en el cdigo para que llegues al 50, jejejejejejeje.
Bueno esto es para introducirle datos a un Listbox y Combobox, pero como puedousar estos datos para enviarlos para una celda, en el siguiente ejemplo te lo explico:
Da doble clic en el Listboxy escribe el siguiente cdigo:
Private Sub ListBox1_Click()
Range("a9").Select
ActiveCell.FormulaR1C1 = ListBox1
End Sub
As de de fcil cada vez que escojas un dato que se encuentre en un Listbox1 loenviara a la celda a9, escribindolo ah. Si lo deseas hacer lo puedes hacer en un ComCombobox, solo cambia Listbox1por Combobox1y se acabo.
Ahora si deseas agregar los datos al Listboxo Comboboxsin ningn botn quepresionar escribe el siguiente cdigo:
Private Sub UserForm_Activate()
ComboBox1.AddItem "Juan Jose"
ComboBox1.AddItem "Pedro de la Fuente"
ComboBox1.AddItem "Salvador de la Luz"
Descubre miles de cursos como ste en www.mailxmail.com 31
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
32/56
ListBox1.AddItem "Juan Jos"
ListBox1.AddItem "Pedro de la Fuente"
ListBox1.AddItem "Salvador de la Luz
End Sub
La Clave esta en el procedimiento UserForm_Activate()esto quiere decir que
cuando se active el formulario cargara lo que tu le indiques, en este caso va aintroducir los datos al Listbox1y Combobox1automticamente, que te parece.
Ahora si deseas tomar informacin de una celda y enviarla a un ComboboxoListboxescribe el siguiente cdigo en un Botn:
Private Sub CommandButton1_Click()
Range("a9").Select
Do While ActiveCell Empty
ActiveCell.Offset(1, 0).Select
ListBox1.AddItem ActiveCell
Loop
End Sub
Fjate bien, primeramente muevo el rango a la celda a9porque ah esta el inicio demi informacin, despus la lnea Do While Activecell Emptysignifica Hazlomientras la celda no se encuentre vaca, la siguiente lnea que esActiveCell.Offset(1,0).Select,significa Baja un Rengln, la siguiente lnea ListBox1.AddItem ActiveCell,agrega la informacin de la celda al Listbox1y la lnea Loopes parte del ciclo DoWhile,siempre cierra el ciclo, como el For-Next.Por lo tanto todos los nombres queestn delante de a9sern enviados al Listbox1y cuando tope con la celda a15quese encuentra vaca la condicin del Do Whileparara la ejecucin de su cdigo. Esto
Descubre miles de cursos como ste en www.mailxmail.com 32
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
33/56
funciona caminando renglones hacia abajo, pero si deseas moverte hacia la derechapor columnas solo cambia la lnea ActiveCell.Offset( 1, 0).Select porActiveCell.Offset(0, 1).Select,quiere decir que se mueva por columna, no porrengln. ActiveCell.Offset(Rengln, Columna).Select
Si cambias el 1 por otro numero se mover el numero de veces que tu le indiques,por ejemplo si quiero bajar 10 renglones de un golpe:
ActiveCell.Offset(10, 0).Select
Si quiero moverme 20 columnas a la derecha
ActiveCell.Offset(0, 20).Select
Descubre miles de cursos como ste en www.mailxmail.com 33
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
34/56
13. As funciona[http://www.mailxmail.com/curso-macros-excel/asi-funciona]
Ahora veremos como se ejecuta una macro a la hora de abrir un libro
Primeramente inserta un Modulodel Men Insertardentro de Visual Basicy
escribe el siguiente cdigo:Sub Auto_open()
Load UserForm1
UserForm1.Show
End Sub
La magia esta en el procedimiento Auto_open()que permite ejecutarautomticamente lo que se encuentre dentro de el cuando abras un libro quecontenga este cdigo, en este ejemplo cuando se abre el libro se activa el formulario
1 que programe.As que todo lo que agregues dentro de este procedimiento se ejecutaraautomticamente cuando abras un libro, que te parece.
A continuacin veremos como ordenar una informacin por orden alfabticaascendente, es un cdigo muy completo y bueno que te permite localizar los datos yordenarlos, sin pasarse un rengln en blanco.
Observemos el siguiente ejemplo y aprendamos de el:
Si se fijan en la siguiente pantalla tengo datos en una hoja que empinan en elrengln A10y terminan en C16, el siguiente cdigo detectara donde debe detenerse
para poder ordenar los datos. Es necesario crear el cdigo para ordenar datos, peroaqu yo te lo muestro:
Programa esto en el botn1
Private SubCommandButton1_Click()
Descubre miles de cursos como ste en www.mailxmail.com 34
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/asi-funcionahttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/asi-funciona -
5/22/2018 Macros Excel 12719
35/56
Rem este cdigo localiza el ultimo registro por medio del rengln
Range("a10").Select
Do While ActiveCell Empty
ActiveCell.Offset(1, 0).Select
Loop
Rem llega hasta el a17 donde no hay informacin y se regresa un rengln paraser exacto con la siguiente lnea.
ActiveCell.Offset(-1, 0).Select
Rem este cdigo localiza la ltima columna del ltimo dato
Do While ActiveCell Empty
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, -1).Select
Rem esta lnea guarda en la variable celdaactiva la celda exacta donde esta elultimo dato de la ultima columna de informacin, en este caso C16.
celdaactiva = ActiveCell.Address
Rem este cdigo toma el rango desde A10 donde empieza la informacin, hastadonde encontr el ultimo dato C16, que lo guarda la variable celdaactiva.Selecciona de A10 hasta C16.
Range("A10:" + celdaactiva).Select
Rem este cdigo ordena los datos en orden ascendente, el cdigo fue generado
en Excel, as que si no sabes generarlo solo copialo de aqu.
Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
As es como funciona este cdigo de Macros de Excel ordenando exactamente desdeA10 hasta donde estn los datos finales.
Bueno ahora para convertir la informacin a Minscula o Mayscula es muy parecidoel cdigo, solo obsrvalo:
Private SubCommandButton1_Click()
Range("a10").Select
Do While ActiveCell Empty
ActiveCell.FormulaR1C1 = LCase(ActiveCell)
ActiveCell.Offset(1, 0).Select
Descubre miles de cursos como ste en www.mailxmail.com 35
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
36/56
Loop
End Sub
As es la magia esta en Lcaseque convierte a Minsculas y Ucasea Maysculas,empieza en A10 y hasta que no encuentra datos deja de convertir a Minsculas.
El siguiente Formulario y cdigo muestra la fuerza de cmo se puede consultar ymodificar el dato que se encontr.
Etiqueta 4,escrbele el numero 9 dentro.
Crea la siguiente Interfaz, 4 Etiquetas, 3 Textbox y 3 Botones
Copia el siguiente cdigo:
Private Sub CommandButton1_Click()
Rem si no se escribe nada en los Textboxs a la hora de insertar escribe NoTiene
If TextBox1 = Empty Then Range("A9").FormulaR1C1 = "No Tiene"
If TextBox2 = Empty Then Range("B9").FormulaR1C1 = "No Tiene"
If TextBox3 = Empty Then Range("C9").FormulaR1C1 = "No Tiene"
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
On Error GoTo noencontro
Descubre miles de cursos como ste en www.mailxmail.com 36
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
37/56
14. Rem Cdigo[http://www.mailxmail.com/curso-macros-excel/rem-codigo ]
Rem Cdigo para buscar, ya lo conocemos
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
Rem la etiqueta 4 toma el valor del rengln activo y permite modificar la
informacin que encontr, ya que modifiques la informacin presionas el botnactualizar.
Label4 = ActiveCell.Row
noencontro:
End Sub
Private Sub CommandButton3_Click()
Rem Vuelve a indicar el rengln 9 para escribir en los Textboxs
Label4 = "9"
Range("a9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Rem si nos damos cuenta la etiqueta 4 sirve para llevar el rengln dondeintroducimos los datos o los modificamos, asi que cada textbox queprogramemos debe llevar estas lineas.
Range("A" + Label4).FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Descubre miles de cursos como ste en www.mailxmail.com 37
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/rem-codigohttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/rem-codigo -
5/22/2018 Macros Excel 12719
38/56
Range("B" + Label4).FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C" + Label4).FormulaR1C1 = TextBox3
End Sub
Bueno amigos, espero les sea de provecho los ejemplos mostrados, por lo tanto nosvemos en la prxima edicin, con mas de Macros en Excel.
Descubre miles de cursos como ste en www.mailxmail.com 38
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
39/56
15. Grficos en Excel[http://www.mailxmail.com/curso-macros-excel/graficos-excel]
Hoy nos toca aprender mas sobre este interesante curso de Macros, en el cualtrabajaremos con grficos en Excel, veremos como se puede generar una graficadesde un cdigo generado y alterado por nosotros mismos.
Si observamos los datos que vamos a graficar nos damos cuenta que en la columnaAse encuentran los valores ejes (X)y en la columna Blos valores series (Y),estos datos son necesario para efectuar una grafica que podra quedar as
Esta grafica muestra las edades de 5 personas, los nombres son los valores ejesyla edad los valores series, ahora veremos como se puede detectar estos datos pormedio de una Macro
Al graficar estos datos se genero el siguiente cdigo:
Sub Macro1()
Range("A5:B10").SelectCharts.AddActiveChart.ChartType = xlColumnClusteredActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=
_xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
End Sub
Descubre miles de cursos como ste en www.mailxmail.com 39
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/graficos-excelhttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/graficos-excel -
5/22/2018 Macros Excel 12719
40/56
La primer lnea indica el rango donde estn los datos, valores ejes y valoresseries, La segunda lnea indica que se agrega una grafica La tercera lnea indica eltipo de grafica que se desea La cuarta lnea indica como se acomodan los datos enla grafica La quinta lnea indica donde se muestra la grafica, si en la misma hoja o enuna sola hoja.
Nota.Los nmeros de 1 al 5 no van en el cdigo, solo los puse para poder explicarlas lneas
Descubre miles de cursos como ste en www.mailxmail.com 40
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
41/56
16. Diferentes tipos de grficas[http://www.mailxmail.com/curso-macros-excel/diferentes-tipos-graficas]
A continuacin se muestran algunos de los diferentes tipos de graficas Lnea 3:
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ChartType = xlBarClustered
ActiveChart.ChartType = xlLineMarkers
Descubre miles de cursos como ste en www.mailxmail.com 41
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/diferentes-tipos-graficashttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/diferentes-tipos-graficas -
5/22/2018 Macros Excel 12719
42/56
ActiveChart.ChartType = xlPie
ActiveChart.ChartType = xlXYScatter
ActiveChart.ChartType = xlAreaStacked
ActiveChart.ChartType = xlDoughnut
ActiveChart.ChartType = xlRadarMarkers
Descubre miles de cursos como ste en www.mailxmail.com 42
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
43/56
ActiveChart.ChartType = xlCylinderColClustered
ActiveChart.ChartType = xlConeColClustered
ActiveChart.ChartType = xlPyramidColClustered
Si tu agregas al final del cdigo principal alguna lnea del tipo de grafico que tegusto, ese se activara, por ejemplo:
Sub Macro1()
Range("A5:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=_xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
ActiveChart.ChartType = xlPyramidColClustered.
End Sub
Descubre miles de cursos como ste en www.mailxmail.com 43
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
44/56
Este cdigo se puede programar en un botn o cualquier otro control de VisualBasic.
A continuacin se muestra como se acomodan los datos Lnea 4:
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlRows
En esta lnea se muestra la grafica por Rengln
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlColumns
En esta lnea se muestra la grafica por Columna
Descubre miles de cursos como ste en www.mailxmail.com 44
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
45/56
17. Grfica por columna[http://www.mailxmail.com/curso-macros-excel/grafica-columna]
Esta es la forma en que se muestran los datos de lo que habla la lnea 4.
La lnea 5habla de que si la grafica queda en la misma hoja o simplemente toma
una hoja para ella, por ejemplo:
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafico 1"
Esta lnea indica que la grafica tenga su propia hoja y que su nombre sea Grafico 1.
En este ejemplo ejecuto un cdigo con cada una de las caractersticas explicadas enlas 5 lneas.
Range("A5:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=_xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
ActiveChart.ChartType = xlPyramidColClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafico 1"3. Tipo de Grafico
4. Comose acomodan los datos
5. Como se muestra la grafica, en este caso en una sola hoja
Elabora el siguiente formulario con el siguiente cdigo, para observar los diferentestipos de grficos y la forma en que se acomodan los datos:
Descubre miles de cursos como ste en www.mailxmail.com 45
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/grafica-columnahttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/grafica-columna -
5/22/2018 Macros Excel 12719
46/56
Dibuja dos Listbox y un Botn y pega el cdigo dentro del formulario.
Private Sub CommandButton1_Click()
Rem este cdigo genera la Grafica en la hoja1
Range("A5:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
Rem agrega los diferentes tipos de grafica al Listbox1
ListBox1.AddItem "xlColumnClustered"
ListBox1.AddItem "xlBarClustered"
ListBox1.AddItem "xlLineMarkers"
ListBox1.AddItem "xlPie"
ListBox1.AddItem "xlXYScatter"
ListBox1.AddItem "xlAreaStacked"
ListBox1.AddItem "xlDoughnut"
ListBox1.AddItem "xlRadarMarkers"
ListBox1.AddItem "xlCylinderColClustered"
ListBox1.AddItem "xlConeColClustered"
ListBox1.AddItem "xlPyramidColClustered"
Rem agrega las diferentes formas de acomodar los datos al Listbox2
ListBox2.AddItem "Renglon"
Descubre miles de cursos como ste en www.mailxmail.com 46
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
47/56
ListBox2.AddItem "Columna"
End Sub
Private Sub ListBox1_Click()
Rem este cdigo da el tipo de grafica al dar clic en el Listbox1
If ListBox1 = "xlColumnClustered" Then ActiveChart.ChartType = xlColumnClustered
If ListBox1 = "xlBarClustered" Then ActiveChart.ChartType = xlBarClustered
If ListBox1 = "xlLineMarkers" Then ActiveChart.ChartType = xlLineMarkers
If ListBox1 = "xlPie" Then ActiveChart.ChartType = xlPie
If ListBox1 = "xlXYScatter" Then ActiveChart.ChartType = xlXYScatter
If ListBox1 = "xlAreaStacked" Then ActiveChart.ChartType = xlAreaStacked
If ListBox1 = "xlDoughnut" Then ActiveChart.ChartType = xlDoughnut
If ListBox1 = "xlRadarMarkers" Then ActiveChart.ChartType = xlRadarMarkers
If ListBox1 = "xlCylinderColClustered" Then ActiveChart.ChartType =xlCylinderColClustered
If ListBox1 = "xlConeColClustered" Then ActiveChart.ChartType =xlConeColClustered
If ListBox1 = "xlPyramidColClustered" Then ActiveChart.ChartType =xlPyramidColClustered
End Sub
Private Sub ListBox2_Click()
If ListBox2 = "Renglon" Then
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlRows
End If
If ListBox2 = "Columna" Then
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlColumns
End If
End Sub
Descubre miles de cursos como ste en www.mailxmail.com 47
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
48/56
Antes de ejecutar esta Macrollenas los datos anteriores en la hoja1 de Excel
Descubre miles de cursos como ste en www.mailxmail.com 48
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
49/56
18. Macros en Excel y Visual Basic[http://www.mailxmail.com/curso-macros-excel/macros-excel-visual-basic]
Estamos listos para ver mas sobre este interesante curso, en este caso veremoscomo se pueden archivar los datos de una hoja en un archivo aparte. Aprenderemosa trabajar con archivos secuncialesen Visual Basic. Los archivos secuncialesson aquellos que al registrar sus datos llevan una secuencia, por ejemplo si registro5 nombres llevaran un orden del 1 al 5, en cambio existen tambin los archivosaleatorios, pero ellos no respetan la secuencia, por ejemplo los 5 nombres podranquedar en cualquier posicin del 100 en adelante, del 300 en adelante, del 10 enadelante, de donde quieras ponerlos, tu indicas en donde quieres que queden los 5nombres, pueden quedar hasta separados y no respetar una secuencia.
El problema de los archivos secunciales, es que si introduces algunos smbolos enla captura pueden alterar el archivo y no funcionar correctamente, por eso serecomienda filtrar los datos con algn cdigo o simplemente no capturar smbolos.
En esta hoja podemos observar 5 nombres, la intencin ser archivarlos aparte y
hacerlos desparecer de la hoja, para despus volverlos aparecer en la hoja. A estose le llamara Registro de datos y Consulta de datos.
Iremos a Visual Basiccon Alt+F11y Insertaremos un UserForm,en el cualdibujaremos dos botones, uno con el nombre de Registroy Otro con el Nombre deConsulta.
Ahora a programar el botn Registro, para poder archivar los nombres.
Private Sub CommandButton1_Click()
Rem se translada a la celda a8
Range("a8").Select
Rem si no hay ningn dato en a8 que no archive de nuevo
Descubre miles de cursos como ste en www.mailxmail.com 49
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/macros-excel-visual-basichttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/macros-excel-visual-basic -
5/22/2018 Macros Excel 12719
50/56
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de aadir Temporal (Output) en el rea de almacenamiento #1
Open "c:\datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem escribe el dato de la celda activa en el archivo
Write #1, ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem baja un rengln para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem si la celda esta vaca que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End Sub
Los datos quedaran archivados en la unidad y sern devueltos cuando presiones elbotn consulta. Que a continuacin se muestra:
Descubre miles de cursos como ste en www.mailxmail.com 50
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
51/56
19. Programar el botn consulta[http://www.mailxmail.com/curso-macros-excel/programar-boton-consulta ]
Ahora a programar el botn consulta
Private Sub CommandButton2_Click()
Rem se translada a la celda a8
Range("a8").Select
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de Leer (input) en el rea de almacenamiento #1
Open "c:\datos.txt" For Input As 1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
Do While Not EOF(1)
Rem lee un dato
Input #1, nombre
Rem lo escribe en la celda
ActiveCell.FormulaR1C1 = nombre
Rem baja un rengln para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem activa el ciclo Do While-que regrese hasta
Rem que se cumpla la condicin
Loop
Rem cierra el archivo
Close #1
End Sub
Que te parece archivar los datos aparte sin que nadie pueda observarlos, esta es lamagia de los archivos secunciales. Este ejemplo viene indexado en un archivo conel nombre de Macros VI.
El siguiente cdigo archiva el nombre, la direccin y el telfono en el archivo, creaun formulario igual con dos botones.
Private Sub CommandButton1_Click()
Descubre miles de cursos como ste en www.mailxmail.com 51
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/programar-boton-consultahttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-macros-excel/programar-boton-consulta -
5/22/2018 Macros Excel 12719
52/56
Rem se traslada a la celda a8
Range("a8").Select
Rem si no hay ningn dato en a8 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de aadir Temporal(output) en el rea de almacenamiento #1
Open "c:\datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el nombre en una variable
nombre = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem captura la direccion en una variable
direccion = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem captura el telefono en una variable
telefono = ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem escribe los datos nombre, direccion y telefono en el archivo
Write #1, nombre, direccion, telefono
Rem baja un rengln para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem retrocede dos columnas
ActiveCell.Offset(0, -2).Select
Descubre miles de cursos como ste en www.mailxmail.com 52
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
53/56
Rem si la celda esta vaca que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End Sub
Private Sub CommandButton2_Click()
Rem se translada a la celda a8
Range("a8").Select
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de Leer (input) en el rea de almacenamiento #1
Open "c:\datos.txt" For Input As 1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
Do While Not EOF(1)
Rem lee los datos
Input #1, nombre, direccion, telefono
Rem escribe en la celda el nombre
ActiveCell.FormulaR1C1 = nombre
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem escribe en la celda la direccion
ActiveCell.FormulaR1C1 = direccion
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem escribe en la celda el telefono
ActiveCell.FormulaR1C1 = telefono
Descubre miles de cursos como ste en www.mailxmail.com 53
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
54/56
Rem baja un rengln para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem retrocede dos columnas
ActiveCell.Offset(0, -2).Select
Rem activa el ciclo Do While-que regrese hasta
Rem que se cumpla la condicin
Loop
Rem cierra el archivo
Close #1
End Sub
Descubre miles de cursos como ste en www.mailxmail.com 54
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/ -
5/22/2018 Macros Excel 12719
55/56
20. Ejemplo[http://www.mailxmail.com/curso-macros-excel/ejemplo]
Tambin se puede consultar sin necesidad de leer los datos en la hoja, esto quieredecir leyendo directo del archivo y trayendo los datos al formulario, en el siguienteejemplo, se programa el botn consulta en formulario.
Dibuja el siguiente formulario, los dos primeros botones es el mismo cdigo
anterior, pero el tercer botn incluye el siguiente cdigo:Private Sub CommandButton3_Click()
Open "c:\datos.txt" For Input As 1
Do While Not EOF(1)
Input #1, nombre, direccion, telefono
If nombre = TextBox1 Then
TextBox2 = direccion
TextBox3 = telefono
End If
Loop
Close #1
End Sub
Solo corra el formulario y escriba el nombre que desea consultar y presione el tercerbotn.
Usted podr consultar cualquiera de los nombres que se encuentren dentro delarchivo, sin necesidad de que existan en la hoja, claro esta que primero es necesariopresionar el botn registro para archivarlos, pero despus se pueden manipular.
Bueno espero que sea de su agrado esta parte y que practiquen mucho los archivossecuenciales.
Visita ms cursos como este en mailxmail:[http://www.mailxmail.com/cursos-informatica]
Descubre miles de cursos como ste en www.mailxmail.com 55
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/curso-macros-excel/ejemplohttp://www.mailxmail.com/cursos-informaticahttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/cursos-ofimaticahttp://www.mailxmail.com/cursos-informaticahttp://www.mailxmail.com/curso-macros-excel/ejemplo -
5/22/2018 Macros Excel 12719
56/56
[http://www.mailxmail.com/cursos-ofimatica]
Tu opinin cuenta! Lee todas las opiniones de este curso y djanos la tuya:[http://www.mailxmail.com/curso-macros-excel/opiniones]
Cursos similares
Cursos Valoracin Alumnos Vdeo
Word 2003. Formato de documentos (2/2)En esta parte del curso veremos el formato de texto de Word 2003. Cuandohablamos del formato de un texto nos estamo...[24 /11 /10]
200
Conceptos bsicos sobre Microsoft OfficeEste curso le proporcionar herramientas tiles e indispensables a todosaquellos que deseen aprender a manejar un computador, y sobre todo, aquienes estn interesados e...[08 /08 /08]
4.354
Diseo de base de datos relacionalesAprende a disear bases de datos relacionales.Conocer el origen, historia yla evolucion. Adems aprenderas a conocer los tipos de relaciones queexisten y que te convert...[13 /04 /05]
21.462
YouTube. Subir vdeos en pantalla completaCmo subir vdeos a YouTube en pantalla completa? Ahora te mostramoscmo hacerlo de manera sencilla, utilizando el programa [25/02/11]
929
Access 2007. Ordenar datosAccess 2007 permite organizar datos y registros para que despus puedanser recuperados con facilidad. Con este curs...[19 /05 /10]
3.102
Descubre miles de cursos como ste en www.mailxmail.com 56
mailxmail - Cursos para compartir lo que sabes
http://www.mailxmail.com/cursos-ofimaticahttp://www.mailxmail.com/curso-macros-excel/opinioneshttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2http://www.mailxmail.com/curso-microsoft-office-word-excelhttp://www.mailxmail.com/curso-diseno-base-datos-relacionaleshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-access-2007-ordenar-datoshttp://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/http://www.mailxmail.com/curso-access-2007-ordenar-datoshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-access-2007-ordenar-datoshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-access-2007-ordenar-datos/opinioneshttp://www.mailxmail.com/curso-access-2007-ordenar-datoshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completa/opinioneshttp://www.mailxmail.com/curso-youtube-subir-videos-pantalla-completahttp://www.mailxmail.com/curso-diseno-base-datos-relacionales/opinioneshttp://www.mailxmail.com/curso-diseno-base-datos-relacionaleshttp://www.mailxmail.com/curso-microsoft-office-word-excel/opinioneshttp://www.mailxmail.com/curso-microsoft-office-word-excelhttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2/opinioneshttp://www.mailxmail.com/curso-word-2003-formato-documentos-2-2http://www.mailxmail.com/curso-macros-excel/opinioneshttp://www.mailxmail.com/cursos-ofimaticahttp://www.mailxmail.com/cursos-informatica