如何在Excel中的UserForm上基于组合框选择填充文本框？

假设您有一个包含“名称”和“职员编号”列的表，如下图所示。 现在，您需要创建一个嵌入有一个组合框的用户窗体，该组合框收集内部的所有名称，并且在从组合框选择名称时将填充一个文本框，该文本框将填充相应的职员编号。 本文中的方法可以帮助您轻松实现目标。

使用VBA根据用户窗体上的组合框选择填充文本框

使用VBA根据用户窗体上的组合框选择填充文本框

请执行以下操作，以根据用户窗体上的组合框选择为文本框填充相应的值。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 用户表格。 看截图：

3.然后将组合框控件和文本框控件插入到创建的用户窗体中，如下图所示。

4.右键单击用户窗体的任何空白，然后单击 查看代码 从上下文菜单中。 看截图：

5.在打开的用户窗体（代码）窗口中，请复制并粘贴以下VBA代码以替换原始代码。

VBA代码：根据用户窗体上的组合框选择填充文本框

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

备注：在代码中，A2：B2是范围，其中包含您将分别在“用户窗体”组合框和文本框中填充的值。 并且Sheet5是包含数据范围的工作表的名称。 请根据需要更改它们。

6。 按 其他 + Q 退出键 Microsoft Visual Basic应用程序 窗口。

7。 点击 开发商 > 插页 > 命令按钮（ActiveX控件） 在工作表中插入命令按钮。

8.右键单击工作表选项卡，然后选择 查看代码 从右键单击菜单中。 然后将VBA代码复制并粘贴到代码窗口中。

VBA代码：显示用户表单

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

9.在工作簿中关闭“设计模式”。

单击命令按钮以打开指定的用户窗体。 然后，您可以看到所有名称都收集在组合框中。 从组合框中选择一个名称时，相应的人员编号将自动填充到文本框中，如下面的屏幕截图所示。

相关文章：

• 如何在打开的工作簿上用指定的数据填充组合框？
• 在Excel下拉列表中选择值时如何自动填充其他单元格？
• 在Excel下拉列表中选择值时如何自动填充其他单元格？
• 如何在Excel中将Google搜索结果填充到工作表中？