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

您可以通过将某个范围添加到组合框的 ListFillRange 属性中，来为一个组合框（ActiveX 控件）指定该范围的数据。但是，您知道如何在 Excel 中使用命名区域的数据来填充组合框吗？例如，您已经在工作表中命名了一个单元格区域，现在需要将此区域名称指定给一个组合框。当在一个组合框中选择该区域名称时，此命名区域中的所有单元格值将自动填充到另一个组合框中。本文将介绍一种使用 VBA 方法解决此问题的方式。

使用 VBA 代码通过命名区域的数据填充组合框

使用 VBA 代码通过命名区域的数据填充组合框

请按照以下步骤操作，以使用 Excel 中命名区域的数据填充组合框。

1. 请选择工作表中的所有标题行（在此情况下，我选择 A1:E1），然后在 名称框中输入一个名称，如下截图所示。

2. 选择每个列的数据（不包括其标题），然后分别在名称框中命名该列。见截图：

在此情况下，我分别将 A2:A8、B2:B8、C2:C8、D2:D8 和 E2:E8 命名为日期、商店、项目、销售和工作日。

3. 然后通过点击 开发工具 > 插入 > 组合框（ActiveX 控件）插入一个组合框。见截图：

4. 重复步骤 3，在工作表中插入另一个组合框。

5. 右键单击工作表标签，然后从上下文菜单中点击 查看代码。见截图：

6. 在打开的 Microsoft Visual Basic for Applications 窗口中，请将以下 VBA 代码复制并粘贴到代码窗口中。

VBA 代码：使用命名区域的数据填充组合框

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    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("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

注意：在代码中，ComboBox1 是您将在其中列出所有区域名称的组合框的名称，而 ComboBox2 是指定命名区域的数据将填充到的组合框的名称。“Headers” 是您在步骤 1 中创建的区域名称。

7. 通过点击 开发工具 > 设计模式 关闭设计模式。

8. 单击工作表中的任何单元格以激活代码。单击第一个组合框中的箭头按钮，您可以看到所有命名区域都列在其中。见截图：

当在第一个组合框中选择命名区域时，相应的单元格数据将填充到第二个组合框中，如下截图所示：

相关文章：

• 如何在 Excel 中将组合框的值复制到活动单元格？
• 如何在 Excel 中显示组合框输出的日期格式？
• 如何防止或禁用在 Excel 中的组合框内输入内容？
• 如何在工作簿打开时用指定数据填充组合框？
• 如何在 Excel 下拉列表中选择值时自动填充其他单元格？