UserForms , también llamados cuadros de diálogo son ventanas gráficas que permiten a los usuarios introducir datos en los campos e introducir los datos en hojas de cálculo Excel . Un formulario de usuario está incrustado en un libro de Excel y se ejecuta cuando el usuario abre el archivo de Excel , por lo general a través de una macro. Debido UserForms aprovechar el lenguaje Visual Basic , se pueden personalizar generosamente para asegurar que los datos introducidos en los campos es completa y válida antes de ser transferido a la hoja de cálculo Excel en sí para su posterior manipulación . Cosas que necesitará
Microsoft Excel con el Editor de Visual Basic
Ver Más instrucciones
Cómo transferir datos de un formulario de usuario a una hoja de cálculo
1
Abra Microsoft Excel y crear un nuevo libro en blanco , haga clic en el menú Archivo y seleccionar "Nuevo". Guarde el archivo de Excel como " update_worksheet.xls . "
2
mantener el libro abierto y abrir el Editor de Visual Basic pulsando Alt- F11. Crear un nuevo formulario de usuario haciendo clic en el menú Insertar y seleccionando " formulario de usuario . " Asigne un nombre al formulario de usuario " transferForm " cambiando el atributo Name en el menú Propiedades. Cambie el atributo Caption a " transferForm . "
3
Agregar un cuadro de texto al formulario , seleccione un cuadro de texto del cuadro de herramientas y arrastrando en su lugar en el formulario. Asigne un nombre al campo de texto " transferInput " en la ventana de propiedades. Si el cuadro de herramientas no está abierto , seleccione el menú Ver y Herramientas .
4
Agregar un botón de actualización del formulario seleccionando un CommandButton de la caja de herramientas y arrastrando en su lugar en el formulario. Nombre el CommandButton " transferButton " en la ventana de propiedades y cambiar el atributo título a " Actualización de Hoja de cálculo. "
5
Agregar un botón de cierre a la forma mediante la selección de un segundo control CommandButton de la caja de herramientas y arrastrando en colocar en el formulario. Nombre el CommandButton " closeButton " en la ventana de propiedades y cambiar el atributo título a " Cerrar formulario".
6
Abrir el editor de código de Visual Basic , haga doble clic en el transferButton ( botón de actualización ) . Añadir código a la función que transfiere los datos introducidos en el cuadro de texto a la hoja update_worksheet.xls cuando el usuario hace clic en el botón transferButton _CLICK (). Cierre el editor de código de Visual Basic .
Private Sub transferButton_Click ()
transferWorksheet Dim como Hoja
Set transferWorksheet = Worksheets ( " Sheet1" )
transferWorksheet . las células ( 1,1) . Valor = Me.transferInput.Value
End Sub
7
volver a abrir el editor de código de Visual Basic , haga doble clic en el closeButton ( botón de cierre ) . Añadir código a la función closeButton_Click () que cierra el formulario cuando el usuario hace clic en el botón. Cierre el editor de código de Visual Basic .
Private Sub closeButton_Click ()
a descargar
End Sub
8
Ejecutar código del formulario haciendo clic en el menú Run y seleccionando " Ejecutar Sub /UserForm . " Introduzca los datos en el campo de entrada y haga clic en el " transferButton . " Asegúrese de que los datos se transfieren con éxito para el valor de la celda en la primera hoja de cálculo de Excel , el cambio a Excel si es necesario . Guarde y cierre el formulario de usuario se ejecuta .
9
Utilice un procedimiento de evento Excel para abrir el formulario de usuario cuando un usuario abre el libro en Excel. Abra el Explorador de proyectos y haga doble clic en la ventana de código ThisWorkbook . Introduzca una macro que abre el formulario en la hoja de cálculo se abre y guardar la macro. Guarde y cierre Visual Basic y update_worksheet.xls .
Private Sub Workbook_Open ()
transferForm.Show
End Sub
10
Reabrir " update_worksheet.xls " . El transferForm UserForm se abrirá. Escriba algún texto en el campo " transferInput " y haga clic en el " transferButton . " El texto introducido en el formulario de usuario transferForm será transferida a la primera celda de Sheet1 en update_worksheet.xls .