如何在工作簿打开时用指定数据填充组合框？

通常，您可以通过在组合框属性的 ListFillRange 字段中输入单元格引用，用特定范围的单元格数据填充组合框（ActiveX 控件）。如果您想直接用指定数据填充组合框，而无需手动调整其属性，本文介绍的方法可以帮助您实现。

使用 VBA 代码用指定数据填充组合框

使用 VBA 代码用指定数据填充组合框

此方法可以帮助您在工作簿打开时直接用指定数据填充组合框。请按照以下步骤操作：

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

2. 在 Microsoft Visual Basic for Applications 窗口中，双击左侧窗格中的 ThisWorkbook 以打开 ThisWorkbook 代码编辑器。然后将以下 VBA 代码复制到其中。参见截图：

VBA 代码：在工作簿打开时用指定数据填充组合框

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
    With Sheet1.ComboBox1
        .Clear
        .AddItem "Select a Fruit"
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Peach"
        .AddItem "Pineapple"
        .AddItem "Watermelon"
        .Text = .List(0)
    End With
End Sub

注意：

3. 将工作簿保存为启用宏的工作簿格式，并关闭它。

4. 重新打开工作簿后，您会看到组合框已被指定数据填充，如下方截图所示：

相关文章：

• 如何在 Excel 中将组合框的值复制到活动单元格？
• 如何在 Excel 中显示组合框输出的日期格式？
• 如何在 Excel 中防止或禁用组合框输入？
• 如何在 Excel 中用命名区域的数据填充组合框？