Cómo crear formularios utilizando Excel

Crear un formulario en Excel, utilizando controles agrupados en un marco, que producirá los campos de texto simples, donde el usuario puede introducir su información. Cree tres botones de comando en la forma que tendrán un efecto sobre la información contenida en el formulario cuando el usuario realiza un clic izquierdo con su ratón. Es muy sencillo de crear un formulario que mostrará una lista de los empleados o gerentes, y comprobar su estado.

Instrucciones

1 Abrir un libro en Excel. Si sabe qué libro que desea que su forma de pertenecer a, entonces ahora es el momento de abrirlo. Utilice el menú Archivo para acceder al libro.

2 Haga clic en el menú "Herramientas", seleccione "Macro" y hacer clic en "Editor de Visual Basic."

3 Haga clic en "Insertar" y luego seleccione "formulario de usuario."

4 Arrastre un botón de comando en el formulario. Necesita al menos tres de estos para este ejemplo.

5 Poner nombres en sus botones de comando y etiquetas. Haga clic en "Ver" y "Ventana Propiedades". Haga clic en uno de los botones de comando que ha colocado en el formulario.

6 Nombre del botón de comando que leerá "OK" haciendo clic en el nombre de configuración en la ventana Propiedades y escribiendo "cmdOK". Haga clic en la opción "Subtítulos" en la ventana Propiedades y escriba "OK".

7 Haga clic en otro botón de comando. Nombre esta uno "cmdCancel", y establecer el título para que diga "Cancelar" en la ventana Propiedades.

8 Haga clic en el botón tercer comando, el nombre de "cmdClearForm" y cambie el ajuste de subtítulos para que diga "Borrar formulario."

9 Pulsa la tecla de función "F7" en su teclado para que aparezca la ventana de código.

10 Haga clic en las listas desplegables en la parte superior de la ventana de código. Haga clic en la lista de la parte superior izquierda para abrir el subprocedimiento llamado "formulario de usuario" y haga clic en la otra lista desplegable para seleccionar "Iniciar".

11 Eliminar el subprocedimiento aparece sobre eso lee: Procedimiento UserForm_Click ().

12 Escriba el siguiente código en la ventana de código (no escriba sobre el texto azul, sólo tiene que añadir el texto negro):
Private Sub UserForm_Initialize ()

txtName.Value = ""
txtPhone.Value = ""
With cboDepartment
.AddItem "Employees"
.AddItem "Managers"
End With

YourCourse.Value = ""
optIntroduction = True
chkWork = false
chkVacation = False
txtName.SetFocus

End Sub

13 Introducir el código en el botón Cancelar. Haga doble clic en el botón Cancelar para abrir la ventana de código. Escriba su código para que la ventana de código lee: Private Sub cmdCancel_Click ()

Unload Me

End Sub

14 Abra la ventana de código para el botón Borrar formulario. Recuerde que hacer doble clic en el botón "Clear Form".

15 Escriba su código en la ventana de código para que se lea:
Private Sub cmdClearForm_Click ()

Call UserForm_Initialize

End Sub

dieciséis Haga doble clic en el botón "OK" para agregar el siguiente código en la ventana de código:

Private Sub cmdOK_Click ()

ActiveWorkbook.Sheets("YourWork").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = FalseThen
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 1) = txtPhone.Value
ActiveCell.Offset(0, 2) = cboDepartment.Value
ActiveCell.Offset(0, 3) = cboCourse.Value
If optIntroduction = True Then
ActiveCell.Offset(0, 4).Value = "Intro"
ElseIf optIntermediate = True Then
ActiveCell.Offset(0, 4).Value = "Intermed"
Else
ActiveCell.Offset(0, 4).Value = "Adv"
End If
If chkLunch = True Then
ActiveCell.Offset(0, 5).Value = "Yes"
Else
ActiveCell.Offset(0, 5).Value = "No"
End If
If chkWork = True Then
ActiveCell.Offset(0, 6).Value = "Yes"
Else
If chkVacation = False Then
ActiveCell.Offset(0, 6).Value = ""
Else
ActiveCell.Offset(0, 6).Value = "No"
End If
End If
Range("A1").Select

End Sub