如何在 Excel 中的用户窗体上根据组合框选择填充文本框？

---

Microsoft Excel 中的用户窗体提供了一种有趣的方式来获取用户输入和收集数据。它们包含许多控件，如文本框、按钮、复选框和组合框，使用户可以轻松输入或选择数据。根据组合框中的选择填充文本框的能力是用户窗体中的一项常见需求。本文将引导您在 Excel 中建立一个用户窗体，并向您展示如何根据您在组合框中做出的选择动态填充文本框。通过实施这些步骤，您可以通过在用户做出选择时自动填写相关数据来改善用户体验。

根据组合框选择填充文本框

这里我们将首先插入一个用户窗体，然后向窗体添加 VBA 代码来完成任务。因此，让我们来看一个简单的过程，了解如何在 Excel 中的用户窗体上根据组合框选择填充文本框。

步骤 1

考虑任何 Excel 工作表。首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。

右键点击 > 查看代码。

步骤 2

然后单击“插入”，然后选择“用户窗体”。然后绘制一个组合框控件和一个文本框控件。

插入 > 用户窗体 > 组合框控件 > 文本框控件。

步骤 3

然后右键单击用户窗体，选择“查看代码”，并将下面的代码复制到文本框中。

右键点击 > 查看代码 > 复制。

代码

Dim xRg As Range
Private Sub UserForm_Initialize()
   Set xRg = Worksheets("Sheet1").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

步骤 4

然后使用 Alt + Q 退出 VBA。然后单击“开发工具”，然后单击“插入”，然后在“ActiveX 控件”下选择“命令按钮”。

Alt + Q > 开发工具 > 插入 > 命令按钮。

步骤 5

然后绘制一个命令按钮。然后右键单击工作表名称，选择“查看代码”，并将下面的代码复制到文本框中。

绘制 > 右键点击 > 查看代码 > 复制。

代码

Private Sub CommandButton1_Click()
   Dim frm As UserForm1
   Set frm = New UserForm1
   frm.Show
End Sub

步骤 6

然后退出设计模式。然后单击命令按钮。然后您可以在组合框中看到所有收集的名称。

从组合框中选择一个名称时，相应的员工编号将自动填充到文本框中，如下面的屏幕截图所示。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中的用户窗体上根据组合框选择填充文本框，以突出显示特定数据集。