¿Cómo rellenar el cuadro de texto según la selección del cuadro combinado en UserForm en Excel?
Supongamos que tiene una tabla que contiene un nombre y una columna de número de personal como se muestra a continuación. Ahora necesita crear un formulario de usuario incrustado con un cuadro combinado que recopile todos los nombres dentro y un cuadro de texto que llenará el número de personal correspondiente al seleccionar el nombre del cuadro combinado. El método de este artículo puede ayudarte a conseguirlo.
Complete el cuadro de texto según la selección del cuadro combinado en Userform con VBA
Complete el cuadro de texto según la selección del cuadro combinado en Userform con VBA
Haga lo siguiente para completar el cuadro de texto con el valor correspondiente según la selección del cuadro combinado en el formulario de usuario.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Formulario de usuario. Ver captura de pantalla:
3. Luego inserte un control de cuadro combinado y un control de cuadro de texto en el formulario de usuario creado como se muestra a continuación.
4. Haga clic con el botón derecho en cualquier espacio en blanco del formulario de usuario y luego haga clic en Ver código desde el menú contextual. Ver captura de pantalla:
5. En la ventana de apertura del formulario de usuario (código), copie y pegue el siguiente código VBA para reemplazar el original.
Código de VBA: rellene el cuadro de texto según la selección del cuadro combinado en el formulario de usuario
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End SubNote: En el código, A2:B2 es el rango que contiene los valores que completará por separado tanto en el cuadro combinado de formulario de usuario como en el cuadro de texto. Y Sheet5 es el nombre de la hoja de trabajo que contiene el rango de datos. Cámbielos según sea necesario.
6. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana.
7. Hacer clic en Developer > recuadro > Botón de comando (control ActiveX) para insertar un botón de comando en la hoja de trabajo.
8. Haga clic derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual. Luego copie y pegue el código VBA en la ventana de código.
Código VBA: Mostrar formulario de usuario
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Desactive el modo de diseño en el libro de trabajo.
Haga clic en el botón de comando para abrir el formulario de usuario especificado. Luego podrá ver que todos los nombres están recopilados en el cuadro combinado. Al seleccionar un nombre del cuadro combinado, el número de personal correspondiente se completará automáticamente en el cuadro de texto como se muestra a continuación.
Artículos relacionados:
- ¿Cómo llenar un cuadro combinado con datos especificados en el libro de trabajo abierto?
- ¿Cómo rellenar automáticamente otras celdas al seleccionar valores en la lista desplegable de Excel?
- ¿Cómo rellenar automáticamente otras celdas al seleccionar valores en la lista desplegable de Excel?
- ¿Cómo completar los resultados de búsqueda de Google en la hoja de trabajo en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
