VBA - 填充自定义功能区下拉列表列表框

使用VBA编程可以为Excel中的自定义功能区添加下拉列表或列表框，这为用户提供了更方便的数据选择和操作方式。通过编写一些简单的代码，我们可以将自定义功能区与数据源连接实现动态数据加载和选择。下面将介绍如何使用VBA填充自定义功能区下拉列表或列表框，并提供一个案例代码来帮助理解。

vba
Private Sub Workbook_Open()
    ' 在工作簿打开时填充下拉列表或列表框
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置数据源范围
    Set rng = ws.Range("A1:A5")
    
    ' 填充下拉列表或列表框
    For Each cell In rng
        Sheet1.ComboBox1.AddItem cell.Value
        ' 或者使用 Sheet1.ListBox1.AddItem cell.Value
    Next cell
End Sub

vba
Private Sub Workbook_Open()
    ' 在工作簿打开时填充下拉列表
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置数据源范围
    Set rng = ws.Range("A1:A5")
    
    ' 填充下拉列表
    For Each cell In rng
        Sheet1.ComboBox1.AddItem cell.Value
    Next cell
End Sub