1
abre un libro en Excel. Si sabe qué libro 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 haga clic en "Editor de Visual Basic . "
3
Haga clic en " Insertar " y luego seleccione " formulario de usuario . "
4
Arrastre un botón de comando al formulario. Necesita al menos tres de estos para este ejemplo.
5
Ponga nombres de los botones de comando y etiquetas. Haga clic en " Ver" y "Ventana de Propiedades". Pulse sobre uno de los botones de comando que ha colocado en el formulario.
6
Name del botón de comando que se va a leer "OK " haciendo clic en el ajuste de nombre 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 ésta " cmdCancel ", y establecer el título para que diga " Cancelar " en la ventana Propiedades.
8
Haga clic en el botón de tercer comando , el nombre de " cmdClearForm " y cambie el título estableciendo para leer "Clear Form ".
9
Golpea la tecla de función " F7 " en su teclado para abrir la ventana de código .
10
Haga clic en la lista desplegable de la la parte superior de la ventana de código . Haga clic en la lista de arriba a la izquierda para abrir el subprocedimiento denominado " formulario de usuario " y haga clic en la otra lista desplegable para seleccionar
11
Eliminar el subprocedimiento enumerados anteriormente que lea "Iniciar ". : UserForm_Click ( ) Procedimiento
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 . Valor = " " Con cboDepartment.AddItem "Empleados" . AddItem "" End Con
YourCourse.Value = " administradores " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13
Introduzca el código en el botón Cancelar. Haga doble clic en el botón Cancelar para abrir la ventana de código. Escriba el código para que la ventana de código lee : Private Sub cmdCancel_Click () Unload Meend Sub
14
Abra la ventana de código para el botón Borrar formulario . Recuerde que debe 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_InitializeEnd Sub
16 < p> 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 ") ActivateRange ("A1 ") SelectDoIf IsEmpty ( ActiveCell ) FalseThenActiveCell.Offset = ( 1 , 0 ) . SelectEnd IfLoop Hasta EsVacío ( ActiveCell ) = TrueActiveCell.Value txtName.ValueActiveCell.Offset = ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . Offset ( 0 , 3 ) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset ( 0 , 4 ) . Valor = " Intro" ElseIf optIntermediate = True ThenActiveCell.Offset ( 0 , 4 ) . Valor = ElseActiveCell.Offset " Intermed " ( 0 , 4 ) . Valor = End " Adv " IFIF chkLunch = True ThenActiveCell.Offset ( 0 , 5 ) . Valor = "Si" ElseActiveCell.Offset ( 0 , 5 ) . Valor = " No" End IFIF chkWork = True ThenActiveCell.Offset ( 0 , 6 ) . Valor = "Si" ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Valor = " " ElseActiveCell.Offset ( 0 , 6 ) . Valor = " No" End IfEnd IfRange ("A1 ") . SelectEnd Sub