Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo rellenar el cuadro de texto basado en 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 una Userform incrustada con un cuadro combinado que recoja todos los nombres dentro y un cuadro de texto que rellenará el número de personal correspondiente al seleccionar el nombre del cuadro combinado. El método en este artículo puede ayudarlo a bajarlo.

Rellenar el cuadro de texto basado en la selección del cuadro combinado en Userform con VBA


Inserte o elimine fácilmente varias casillas de verificación a granel en Excel:

El Casillas de verificación de inserción de lotes utilidades de Kutools for Excel puede ayudarlo a insertar rápidamente varias casillas de verificación en el rango seleccionado a la vez. Y puede eliminar todas las casillas de verificación en el rango seleccionado con el Cajas de verificación de eliminación por lotes. Ver sccreenshot:

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente múltiples líneas de texto y fórmulas); Diseño de lectura (lea y edite fácilmente un gran número de celdas); Pegar en rango filtrado ...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combine filas duplicadas y suma / promedio ... Prevenga celdas duplicadas; Comparar rangos ...
  • Seleccione Filas duplicadas o únicas; Seleccione Filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta de varias celdas sin cambiar la referencia de fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, casillas de verificación y más ...
  • Favorito e inserte rápidamente fórmulas, rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de correo y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios ...
  • Super filtro (guardar y aplicar esquemas de filtro a otras hojas); Avanzado Ordenar por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF ...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.

Rellenar el cuadro de texto basado en la selección del cuadro combinado en Userform con VBA


Haga lo siguiente para rellenar el cuadro de texto con el valor correspondiente según la selección del cuadro combinado en Userform.

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 la forma de usuario creada como se muestra a continuación.

4. Haga clic derecho en cualquier espacio en blanco de la forma de usuario, y luego haga clic Ver código desde el menú contextual. Ver captura de pantalla:

5. En la ventana de apertura de Userform (Código), copie y pegue el siguiente código de VBA para reemplazar el original.

Código de VBA: Rellene el cuadro de texto basado en la selección del cuadro combinado en Userform

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 Sub

Nota: En el código, A2: B2 es el rango que contiene los valores que rellenará 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. Por favor cámbielos como lo necesite.

6. presione el otro + Q teclas para salir del Microsoft Visual Basic para aplicaciones ventana.

7. Hacer clic Desarrollador > recuadro > Botón de comando (control ActiveX) para insertar un botón de comando en la hoja de trabajo.

8. Haga clic con el botón 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 forma de usuario

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. Desactive el Modo de diseño en el libro de trabajo.

Haga clic en el botón de comando para abrir la forma de usuario especificada. Luego puede ver que todos los nombres se recopilan 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:


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Carey Ogola · 1 years ago
    The method is very simple and populates the combo box quite efficiently. However, when I try populating the text box, I get a run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class. Kindly assist with resolving this error.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      May I have your Office version? I need the feedback to check for the error.
      Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        hoa tran · 1 years ago
        office 2010 32 bit
        • To post as a guest, your comment is unpublished.
          crystal · 11 months ago
          Good day,
          I have tried the code in Office 2010 32 bit, but no errors occured.
          Please make sure the sheet name and cell range in the first VBA code are the same with your actual sheet name and range.
          Thanks for your comment.
          • To post as a guest, your comment is unpublished.
            Dimal · 6 months ago
            Hi,
            i have same issue with office 2013. Any solution please
            • To post as a guest, your comment is unpublished.
              Olban Noe Izaguirre · 3 months ago
              i have the same problem....
              • To post as a guest, your comment is unpublished.
                Chaylon · 1 months ago
                I too have the same problem
                • To post as a guest, your comment is unpublished.
                  crystal · 1 months ago
                  Hi Chaylon,
                  Have you replaced the sheet name in the below code line with your actual used worksheet name?
                  Set xRg = Worksheets("Sheet5").Range("A2:B8")