-
Cómo transferir datos desde formulario de usuario a una hoja
-
Formularios de usuario, cuadros de diálogo, también llamadas son ventanas gráficas que permiten a los usuarios introducir datos en los campos e introducir esos datos en hojas de cálculo de Excel. Un formulario de usuario está incrustado en un libro de Excel y se ejecuta cuando un usuario abre el archivo de Excel, normalmente a través de una macro. Debido a formularios de usuario aprovechan el lenguaje Visual Basic, que se pueden personalizar con generosidad para asegurar que los datos introducidos en sus campos es completa y válida antes de ser transferido a la hoja de cálculo de Excel en sí para su posterior manipulación.Instrucciones
Cómo transferir datos desde un formulario de usuario a una hoja de cálculo
1 Abra Microsoft Excel y crear un nuevo libro en blanco haciendo 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 presionando Alt-F11. Crear un nuevo formulario de usuario haciendo clic en el menú Insertar y seleccionando "formulario de usuario." Nombrar el formulario de usuario "transferForm" cambiando el atributo de nombre en el menú Propiedades. Cambie el título atributo de "transferForm."
3 Agregar un cuadro de texto a la forma mediante la selección de un cuadro de texto de la caja de herramientas y arrastrando en su lugar en el formulario. Nombrar el cuadro de texto "transferInput" en la ventana de propiedades. Si el cuadro de herramientas no está abierto, seleccione el menú Ver y caja de herramientas.
4 Agregar un botón de actualización de la forma mediante la selección de un CommandButton de la caja de herramientas y arrastrando en su lugar en el formulario. Nombre del CommandButton "transferButton" en la ventana de propiedades y cambiar la leyenda atribuye a la "Hoja de actualización."
5 Agregar un botón de cierre a la forma mediante la selección de un segundo de comando de la caja de herramientas y arrastrando en su lugar en el formulario. Nombre del CommandButton "closeButton" en la ventana de propiedades y cambiar la leyenda atribuye a "Cerrar formulario."
6 Abra el editor de código de Visual Basic haciendo doble clic sobre el transferButton (botón de actualización). Agregar código a la función transferButton _CLICK () que transfiere los datos introducidos en el cuadro de texto a la hoja de update_worksheet.xls cuando el usuario hace clic en el botón. Cierre el editor de código de Visual Basic.
Private Sub transferButton_Click ()
Dim transferWorksheet as Worksheet
Establecer transferWorksheet = Worksheets ( "Sheet1")
transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value
End Sub
7 Vuelva a abrir el editor de código de Visual Basic haciendo doble clic sobre el closeButton (Cerrar). Agregar 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 ()
Unload Me
End Sub
8 Ejecutar código del formulario haciendo clic en el menú Ejecutar y seleccionando "Ejecutar Sub / UserForm." Introducir datos en el campo de entrada y haga clic en el "transferButton." Asegúrese de que los datos se transfieren con éxito para el primer valor de la celda en la hoja de cálculo Excel, el cambio a Excel si es necesario. Guarde y cierre el formulario de usuario en ejecución.
9 Utilizar 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. Introducir una macro que abre el formulario cuando se abre la hoja de cálculo y guardar la macro. Guarde y cierre Visual Basic y update_worksheet.xls.
Private Sub Workbook_Open ()
transferForm.Show
End Sub
10 Volver a abrir "update_worksheet.xls." El formulario de usuario transferForm 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á transferido a la primera celda de Sheet1 en update_worksheet.xls.