macros

Présentation

Esta macro agrega datos a Excel, lee bien y realiza el ejercicio

Téléchargez la version pour jouer sur papier

Dupliquer

Créer un défi

Imprimer le PDF

À propos de Présentation

Âge recommandé: 20 ans

117 fois fait

Créé par

Noemi Araiza Ramirez

Mexico

Top 10 résultats

1

Rodrigo Altamirano

1 Décembre 2014

00:03

temps

100

but
2

Kenii Gil

12 Décembre 2014

00:03

temps

100

but
3

David Conde

11 Décembre 2014

00:04

temps

100

but
4

Nayeli Antonio

11 Décembre 2014

00:04

temps

100

but
5

José de Jesús Rodríguez

1 Décembre 2014

00:06

temps

100

but
6

julio cesar calitl

10 Juin 2014

00:09

temps

100

but
7

José Juan Ramos Sanchez

18 Décembre 2014

00:09

temps

100

but
8

Raciel Zepeda Enriquez

1 Décembre 2014

00:13

temps

100

but
9

José Inés Gallardo Mendoza

11 Décembre 2014

00:16

temps

100

but
10

gerardo chavez robles

8 Janvier 2015

00:20

temps

100

but

Voulez-vous apparaître dans le Top 10 de ce jeu?

Connectez-vous

pour vous identifier.

Créez votre propre jeu gratuite à partir de notre créateur de jeu

Créez présentation

Affrontez vos amis pour voir qui obtient le meilleur score dans ce jeu

Créer un défi


macrosVersion en ligne Esta macro agrega datos a Excel, lee bien y realiza el ejercicio par Noemi Araiza Ramirez 1 creando formularios y programandolos Ahora aprenderemos en Excel como crear formularios y programarlos. Un formulario es una ventana que se programa por medio de controles y estos controles responden a eventos que nosotros programamos. Todo esto se encuentra dentro de Visual Basic. En seguida veremos las instrucciones para crear un formulario y como programarlo: Presione La Teclas Alt + F11, para entrar al editor de Visual Basic, si no ha podido visualizar la ficha programador en la cinta de opciones. Activa las siguientes opciones: 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 3. Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyectos se observara que se insertó el UserForm. 2 continuamos... También cuando de clic en el Formulario USERFORM1 se debe de activar el Cuadro de Herramientas, si no se activa de clic en el Menú Ver y elija la opción Cuadro de Herramientas. Elija del Cuadro de Herramientas el Control Etiqueta el que tiene la A y Arrastre dibujando en el Formulario USERFORM1 la etiqueta. Quedara el nombre Label1, después de un clic en la etiqueta dibujada y podrá modificar el nombre de adentro y pondremos ahí *Nombre. Si por error da doble clic en la etiqueta y lo manda a la pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto. Elija del Cuadro de Herramientas el control Cuadro de Texto el que tiene ab y arrastre dibujando en el formulario USERFORM1 el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadro de texto debe de estar vacío y su nombre será Textbox1, el nombre solo aparecerá en el control. 3 continua... 6. Haga los dos pasos anteriores igualmente poniendo Dirección en la Label2 y Teléfono en la Label3 y también dibújeles su Textbox. Esto quedara así después de haberlo hecho.Los controles como las Etiquetas y Cuadros de Textos pueden modificárseles algunas opciones en la Ventana Propiedades. 7. Elija del Cuadro de Herramientas el control Botón de Comando y Arrastre dibujando en el Formulario USERFORM1 4 Botones, después de un clic en el nombre del Botón dibujado y podrá modificar el nombre y pondremos ahí Agregar. Si por error da doble clic en la Botón y lo manda a la pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto. Agregue los botones restantes que llevaran los nombres de: buscar, eliminar* y cerrar Vaya a la ventana de propiedades y cambie la propiedad name de cada etiqueta, cuadro de texto y botón, de forma que quedaran asi: label1 sera lblnom, label2 sera lbldir y label3 sera lbltel, los cuadros de texto serán txtnom, txt dir y txttel, los botones serán btnag, btnbuscar, btneliminar y btncerrar. 4 siguiente... Ahora de doble clic sobre el control txtnom para programarlo y después inserte el siguiente código: Private Sub txtnom_Change() Range("A9").Select ActiveCell.FormulaR1C1 = txtnom End Sub Esto indica que se vaya A9 y escriba lo que hay en el txtag Nota.-Lo que esta en azul lo genera Excel automáticamente, usted solo escribirá lo que esta en Negrita. Para volver al Formulario y programar el siguiente Textbox de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto. Ahora de doble clic sobre el control txtnom para programarlo y después inserte el siguiente código: Private Sub txtdir_Change() Range("B9").Select ActiveCell.FormulaR1C1 = txtdir End Sub Esto indica que se vaya a B9 y escriba lo que hay en el txtdir Para volver al Formulario y programar el siguiente Textbox de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto. 5 mas codigo 10 Ahora de doble clic sobre el control txttel para programarlo y después inserte el siguiente código: Private Sub txttel_Change() Range("C9").Select ActiveCell.FormulaR1C1 = txttel End Sub Esto indica que se vaya a C9 y escriba lo que hay en el txttel. Para volver al Formulario y programar el Botón de Comando Agregar de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto. 11. Ahora de doble clic sobre el control Botón de Comando para programarlo y después inserte el siguiente código: Private Sub btnag_Click() Rem inserta un renglón Selection.EntireRow.Insert Rem Empty Limpia Los Textbox txtnom = Empty txtdir = Empty txttel = Empty Rem txtnom.SetFocus Envía el cursor al txtnom para volver a capturar los datos txtnom.SetFocus End Sub Nota.-El comando Rem es empleado para poner comentarios dentro de la programación, el comando Empty es empleado para vaciar los Textbox. 6 botón buscar Private Sub btnbuscar_Click() Cells.Find(What:=txtnom, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(0, 1).Select txtdir = ActiveCell Rem la línea que contiene el ActiveCell.Offset(0, 1).Select permite moverse una columna a la derecha, por lo tanto después de la búsqueda de las primeras líneas con Cell.Find si encuentra el Nombre de la persona se mueve a la siguiente columna y la línea txtdir = ActiveCell Permite capturar el valor de la celda al txtdir y así mostrar el dato de la celda en el txtdir. ActiveCell.Offset(0, 1).Select txttel = ActiveCell Rem Cada vez que se escriba la línea ActiveCell.Offset(0, 1).Select significa que se tiene que moverse una columna a la derecha. Rem Si el nombre que tratas de consultar no se encuentra podría generar un error porque fallaría el Cell.Find Pero esto se solucionaría con una trampa de error. End Sub 7 boton eliminar Private Sub txteliminar_Click() Selection.EntireRow.Delete Range("A9").Select txtnom = Empty txtdir = Empty txttel = Empty txtnom.SetFocus End Sub 8 Modulo Bien ya tenemos elaborado un ejercicio de consultas de datos, ahora ingresaremos al formulario desde Excel sin necesidad de entrar al Editor de Visual Basic. Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basic para poder introducir el código en un Modulo, por lo tanto deberás seguir los siguientes pasos: De clic en el Menú Insertar y elija la opción Modulo Una vez insertado el modulo daremos click en la flecha de color verde para ejecutar, veremos como aparece un cuadro de dialogo. Pondremos un nombre en el cuadro de texto de hasta arriba, donde nos pide el nombre de la macro, en este caso se llamara cons y daremos click en el botón crear de la derecha, automaticamente se vera en el modulo lo siguiente: Sub cons() Load UserForm1 UserForm1.Show End Sub Usted deberá escribir las dos líneas que están en medio de Sub cons() y End Sub La primer línea significa que cargue a la memoria el formulario que se llama UserForm1, la segunda línea significa que lo muestre, esto quiere decir que en el modulo estamos escribiendo el código de una macro que permitirá cargar el formulario desde Excel sin necesidad de entrar al Editor de Visual Basic. Si se fija en el explorador de proyecto aparece el Modulo que creamos. 9 regresemos a Excel Bueno ya esta listo ahora salgamos del Editor de Visual Basic y volvamos a Excel. De clic en el Menú Archivo del Editor de Visual Basic Elija la opción Cerrar y volver a Microsoft Excel Ya que estamos en Excel, podemos insertar una imagen o un botón o cualquier gráfico, por ejemplo: De clic en la ficha Insertar, grupo ilustraciones, comando imagen. inserte cualquier imagen y dele el tamaño que usted desea. De clic derecho sobre la Imagen Elija la opción Asignar Macro De clic en la Macro que se llama cons, es obvio la única que hicimos De Clic en Aceptar De clic fuera de la imagen en cualquier celda y listo si presionas la imagen cargara el formulario. Que te parece es increíble el mundo de las Macros o No.

macrosVersion en ligne

Esta macro agrega datos a Excel, lee bien y realiza el ejercicio

creando formularios y programandolos

Ahora aprenderemos en Excel como crear formularios y programarlos.

Un formulario es una ventana que se programa por medio de controles y estos controles responden a eventos que nosotros programamos. Todo esto se encuentra dentro de Visual Basic.

En seguida veremos las instrucciones para crear un formulario y como programarlo:

Presione La Teclas Alt + F11, para entrar al editor de Visual Basic, si no ha podido visualizar la ficha programador en la cinta de opciones.
Activa las siguientes opciones:

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

3. Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyectos se observara que se insertó el UserForm.

continuamos...

También cuando de clic en el Formulario USERFORM1 se debe de activar el Cuadro de Herramientas, si no se activa de clic en el Menú Ver y elija la opción Cuadro de Herramientas.

Elija del Cuadro de Herramientas el Control Etiqueta el que tiene la A y Arrastre dibujando en el Formulario USERFORM1 la etiqueta. Quedara el nombre Label1, después de un clic en la etiqueta dibujada y podrá modificar el nombre de adentro y pondremos ahí Nombre. Si por error da doble clic en la etiqueta y lo manda a la pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto.
Elija del Cuadro de Herramientas el control Cuadro de Texto el que tiene ab y arrastre dibujando en el formulario USERFORM1 el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadro de texto debe de estar vacío y su nombre será Textbox1, el nombre solo aparecerá en el control.

continua...

6. Haga los dos pasos anteriores igualmente poniendo Dirección en la Label2 y Teléfono en la Label3 y también dibújeles su Textbox.

Esto quedara así después de haberlo hecho.Los controles como las Etiquetas y Cuadros de Textos pueden modificárseles algunas opciones en la Ventana Propiedades.

7. Elija del Cuadro de Herramientas el control Botón de Comando y Arrastre dibujando en el Formulario USERFORM1 4 Botones, después de un clic en el nombre del Botón dibujado y podrá modificar el nombre y pondremos ahí Agregar. Si por error da doble clic en la Botón y lo manda a la pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto. Agregue los botones restantes que llevaran los nombres de: buscar, eliminar y cerrar

Vaya a la ventana de propiedades y cambie la propiedad name de cada etiqueta, cuadro de texto y botón, de forma que quedaran asi: label1 sera lblnom, label2 sera lbldir y label3 sera lbltel, los cuadros de texto serán txtnom, txt dir y txttel, los botones serán btnag, btnbuscar, btneliminar y btncerrar.

siguiente...

Ahora de doble clic sobre el control txtnom para programarlo y después inserte el siguiente código:

Private Sub txtnom_Change()

Range("A9").Select

ActiveCell.FormulaR1C1 = txtnom

End Sub

Esto indica que se vaya A9 y escriba lo que hay en el txtag

Nota.-Lo que esta en azul lo genera Excel automáticamente, usted solo escribirá lo que esta en Negrita.

Para volver al Formulario y programar el siguiente Textbox de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto.

Ahora de doble clic sobre el control txtnom para programarlo y después inserte el siguiente código:

Private Sub txtdir_Change()

Range("B9").Select

ActiveCell.FormulaR1C1 = txtdir

End Sub

Esto indica que se vaya a B9 y escriba lo que hay en el txtdir

mas codigo

10 Ahora de doble clic sobre el control txttel para programarlo y después inserte el siguiente código:

Private Sub txttel_Change()

Range("C9").Select

ActiveCell.FormulaR1C1 = txttel

End Sub

Esto indica que se vaya a C9 y escriba lo que hay en el txttel.

Para volver al Formulario y programar el Botón de Comando Agregar de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto.

11. Ahora de doble clic sobre el control Botón de Comando para programarlo y después inserte el siguiente código:

Private Sub btnag_Click()

Rem inserta un renglón

Selection.EntireRow.Insert

Rem Empty Limpia Los Textbox

txtnom = Empty

txtdir = Empty

txttel = Empty

Rem txtnom.SetFocus Envía el cursor al txtnom para volver a capturar los datos

txtnom.SetFocus

End Sub

Nota.-El comando Rem es empleado para poner comentarios dentro de la programación, el comando Empty es empleado para vaciar los Textbox.

botón buscar

Private Sub btnbuscar_Click()

Cells.Find(What:=txtnom, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate

ActiveCell.Offset(0, 1).Select

txtdir = ActiveCell

Rem la línea que contiene el ActiveCell.Offset(0, 1).Select permite moverse una columna a la derecha, por lo tanto después de la búsqueda de las primeras líneas con Cell.Find si encuentra el Nombre de la persona se mueve a la siguiente columna y la línea txtdir = ActiveCell Permite capturar el valor de la celda al txtdir y así mostrar el dato de la celda en el txtdir.

ActiveCell.Offset(0, 1).Select

txttel = ActiveCell

Rem Cada vez que se escriba la línea ActiveCell.Offset(0, 1).Select significa que se tiene que moverse una columna a la derecha.

Rem Si el nombre que tratas de consultar no se encuentra podría generar un error porque fallaría el Cell.Find Pero esto se solucionaría con una trampa de error.

End Sub

boton eliminar

Private Sub txteliminar_Click()

Selection.EntireRow.Delete

Range("A9").Select

txtnom = Empty

txtdir = Empty

txttel = Empty

txtnom.SetFocus

End Sub

Modulo

Bien ya tenemos elaborado un ejercicio de consultas de datos, ahora ingresaremos al formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basic para poder introducir el código en un Modulo, por lo tanto deberás seguir los siguientes pasos:

De clic en el Menú Insertar y elija la opción Modulo
Una vez insertado el modulo daremos click en la flecha de color verde para ejecutar, veremos como aparece un cuadro de dialogo.
Pondremos un nombre en el cuadro de texto de hasta arriba, donde nos pide el nombre de la macro, en este caso se llamara cons y daremos click en el botón crear de la derecha, automaticamente se vera en el modulo lo siguiente:

Sub cons()

Load UserForm1

UserForm1.Show

End Sub

Usted deberá escribir las dos líneas que están en medio de Sub cons() y End Sub

La primer línea significa que cargue a la memoria el formulario que se llama UserForm1, la segunda línea significa que lo muestre, esto quiere decir que en el modulo estamos escribiendo el código de una macro que permitirá cargar el formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

Si se fija en el explorador de proyecto aparece el Modulo que creamos.

regresemos a Excel

Bueno ya esta listo ahora salgamos del Editor de Visual Basic y volvamos a Excel.

De clic en el Menú Archivo del Editor de Visual Basic
Elija la opción Cerrar y volver a Microsoft Excel

Ya que estamos en Excel, podemos insertar una imagen o un botón o cualquier gráfico, por ejemplo:

De clic en la ficha Insertar, grupo ilustraciones, comando imagen.
inserte cualquier imagen y dele el tamaño que usted desea.
De clic derecho sobre la Imagen
Elija la opción Asignar Macro
De clic en la Macro que se llama cons, es obvio la única que hicimos
De Clic en Aceptar
De clic fuera de la imagen en cualquier celda y listo si presionas la imagen cargara el formulario.

Que te parece es increíble el mundo de las Macros o No.

macros

Présentation

Téléchargez la version pour jouer sur papier

Créé par

Top 10 résultats

Top Jeux

Compléter

partes de una planta

Compléter

Completar un texto en inglés.

macrosVersion en ligne

par Noemi Araiza Ramirez

creando formularios y programandolos

continuamos...

continua...

siguiente...

mas codigo

botón buscar

boton eliminar

Modulo

regresemos a Excel