如何在Excel中的UserForm里根据组合框选择填充文本框？

假设您有一个包含姓名和员工编号列的表格，如下截图所示。现在，您需要创建一个嵌入了组合框（收集所有姓名）和文本框的用户窗体，当从组合框中选择姓名时，该文本框将自动填充对应的员工编号。本文中的方法可以帮助您实现这一功能。

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

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

请按照以下步骤操作，根据UserForm上组合框的选择填充相应的文本框值。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 用户窗体。参见截图：

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

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

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

VBA代码：根据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

注意：在代码中，A2:B2 是包含您希望分别填充到用户窗体组合框和文本框中的值的区域。而 Sheet5 是包含数据区域的工作表名称。请根据需要进行更改。

6. 按 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

7. 点击 开发工具 > 插入 > 命令按钮（ActiveX 控件），将命令按钮插入到工作表中。

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

VBA代码：显示用户窗体

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

9. 关闭工作簿中的设计模式。

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

相关文章：

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