Crear un formulario de usuario
1 Su formulario de usuario puede incluir una imagen de las flores del jardín .
Abra el Editor de Visual Basic . Haga clic en " Visual Basic " en la sección "Código" de la pestaña " Developer " .
2
Seleccione Ver> Explorador de proyectos en el menú , a continuación, seleccione Ver > Propiedades.
Página 3
Seleccione Insertar> UserForm en el menú. Usted verá un formulario de usuario en blanco y la caja de herramientas Controles.
4
Agregar un cuadro de texto al formulario. En el Cuadro de controles , coloque el cursor sobre los iconos para encontrar el cuadro de texto, que se parece a "ab ". Haga clic en el icono. Haga clic en el formulario de usuario para poner el cuadro de texto en el formulario, colocándolo a la derecha para dejar espacio para una etiqueta, y dejando espacio por encima y por debajo .
5
Agregar una etiqueta al formulario. Buscar "Etiqueta" en la caja de herramientas (se ve como un gran A). Con el mismo método , coloque una etiqueta a la izquierda del cuadro de texto .
6
Añada dos botones de comando . Buscar " CommandButton " en la caja de herramientas . Utilice el mismo procedimiento para colocar dos botones de comando de lado a lado en la parte inferior del formulario.
7
Haga clic en la etiqueta en el formulario de usuario. En la ventana Propiedades, junto a la " Leyenda ", cambie " Label1 " en " Entrar nombre ".
8
Haga clic en el cuadro de texto en el formulario de usuario . En la ventana Propiedades, junto a " ( nombre) ," cambiar " TextBox1 " a " name_txt . "
9
Haga clic en el primer botón de comando en el formulario de usuario . En la ventana Propiedades, junto a " ( nombre) , " cambiar " CommandButton1 " a " OK_btn . " Al lado de " Leyenda ", cambie " CommandButton1 " a "OK ".
10
Haga clic en el segundo botón de comando en el formulario de usuario . En la ventana Propiedades, junto a " ( nombre) , " cambiar " CommandButton2 " a " Cancel_btn . " Al lado de " Leyenda ", cambie " CommandButton2 " a " Cancelar".
11
Añade una foto al formulario de usuario . En el Cuadro de controles , haga clic en el control de la imagen , que se ve como dos montañas y el sol. Haga clic en el formulario de usuario para colocar el cuadro de la imagen en el formulario.
12
Haga clic en el control de la imagen que colocó en el formulario de usuario . En la ventana Propiedades, junto a "Imagen ", haga clic en los puntos suspensivos ( ... ) a la derecha. Vaya a una imagen guardada en el equipo, como por ejemplo C: \\ Users \\ Public \\ Pictures \\ Sample imágenes \\ Garden.jpg para una exhibición de flores de naranja . Haga doble clic en la imagen seleccionada.
13
Mover y cambiar el tamaño de los controles en el formulario de usuario hasta que esté satisfecho con el diseño.
Agregar código y ejecutar la rutina
Página 14 Crear una lista de nombres en la hoja de cálculo Excel.
Haga doble clic en el botón "OK " en el formulario de usuario para abrir una ventana de código . Usted verá el comienzo y declaraciones que terminan para el subprograma
15
Agregar código entre las " Private Sub " y declaraciones "End Sub " para que se lea como sigue: .
Privado Sub OK_btn_Click ()
Dim LASTROW As Long
LASTROW = Worksheets ( "Sheet1 ") . Range (" A65536 ") . End ( xlUp ) . Fila + 1
las células ( LASTROW , 1 ) . Valor = name_txt
End Sub
Este código coloca el nombre del cuadro de texto en la celda A1 de la hoja de cálculo Excel. Cada vez que el usuario entra en un nuevo nombre y haga clic en "Aceptar ", se añadirá debajo.
16
Haga doble clic en UserForm1 En la ventana del proyecto . Haga doble clic en el botón Cancelar . En la ventana de código , agregue el código entre " Private Sub " y "End Sub " para que la rutina es el siguiente :
Private Sub Cancel_btn_Click ()
UserForm1.Hide
< p > End Sub
Este código oculta el cuadro de diálogo cuando el usuario hace clic en "Cancelar ".
17
ejecutar la rutina . Seleccione Ejecutar > Ejecutar Sub /UserForm en el menú. Volverá a Excel y ver el cuadro de diálogo , incluyendo la imagen seleccionada .
18
Escriba un nombre en el cuadro de texto y haga clic en " Aceptar". Verá el nombre en la celda A1 . Escriba otro nombre y haga clic en " Aceptar". Verá el nombre en la celda A2.
19
Haga clic en " Cancelar " para ocultar el cuadro de diálogo .