ComboBox将工作表名称加载到下拉列表中

Posted 2021-04-05

我似乎无法让组合框工作。我正在尝试添加一个显示工作簿中所有工作表的下拉组合框。我的第一步是创建一个组合框，添加工作表，但框不添加任何工作表名称

这是我的代码：

Sub ComboBox1_Change()

Dim WS As Worksheet
For Each WS In Worksheets
ComboBox1.AddItem (WS.Name)
Next WS


End Sub

答案

问题是您通过事件'更改'添加项目。如果组合框没有变化（因为没有任何项目），这个事件永远不会发生。

相反，您可以将代码添加到表单的“初始化”或“激活事件”中。例如：

Private Sub UserForm_Activate()
    Dim WS As Worksheet
    For Each WS In Worksheets
        ComboBox1.AddItem (WS.Name)
    Next WS
End Sub