Icon Créer jeu Créer jeu

macros

Présentation

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

Téléchargez la version pour jouer sur papier

Âge recommandé: 20 ans
117 fois fait

Créé par

Mexico

Top 10 résultats

  1. 1
    00:03
    temps
    100
    but
  2. 2
    00:03
    temps
    100
    but
  3. 3
    00:04
    temps
    100
    but
  4. 4
    00:04
    temps
    100
    but
  5. 5
    00:06
    temps
    100
    but
  6. 6
    00:09
    temps
    100
    but
  7. 7
    00:09
    temps
    100
    but
  8. 8
    00:13
    temps
    100
    but
  9. 9
    00:16
    temps
    100
    but
  10. 10
    00:20
    temps
    100
    but
Voulez-vous apparaître dans le Top 10 de ce jeu? pour vous identifier.
Créez votre propre jeu gratuite à partir de notre créateur de jeu
Affrontez vos amis pour voir qui obtient le meilleur score dans ce jeu

Top Jeux

  1. temps
    but
  1. temps
    but
temps
but
temps
but
 
game-icon

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:

 

  1. 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.
  2. 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. 

  1. 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.
  2. 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...

  1. 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.

  1. 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.

 

educaplay suscripción