如何在Excel中使用命名区域数据填充组合框？

在Excel电子表格中添加组合框将通过为用户提供预设的选择项来提高其功能和可用性。通过将组合框附加到指定的区域，您可以轻松更改选项列表，而无需更改任何公式或代码。在本文中，我们将介绍使用命名区域数据填充组合框的步骤。无论您的Excel熟练程度如何，本文都将向您展示如何最大限度地发挥组合框的潜力并加快数据录入过程。

在开始培训之前，务必了解Excel及其术语的基础知识。熟悉单元格、区域和公式等术语将很有帮助。此外，由于我们将使用Excel中内置的窗体控件创建组合框，因此需要支持窗体控件的Excel版本。

使用命名区域数据填充组合框

在这里，我们将首先命名单元格区域，然后插入组合框并向工作表添加VBA代码来完成任务。让我们来看一个简单的过程，了解如何使用Excel中命名区域的数据填充组合框。

步骤1

考虑一个Excel工作表，其中工作表中的数据类似于下图。

首先，选择标题单元格区域，然后单击名称框。然后，输入名称“Head”并单击Enter键。

选择单元格 > 名称框 > Head > Enter。

步骤2

然后按照上述步骤，使用其标题值命名每一列的单元格。

步骤3

然后单击“开发工具”，单击“插入”，然后在“ActiveX控件”下选择组合框。

开发工具 > 插入 > 组合框。

步骤4

然后绘制两个组合框。然后右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后将以下代码复制到文本框。

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

代码

Private Sub ComboBox1_Change()
   Dim xRg As Range
   Set xRg = Range(Me.ComboBox1.Text)
   Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim xRg As Range
   Set xRg = Range("Head")
   Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub