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

【问题标题】：ComboBox load the Worksheet names into Dropdown ListComboBox 将工作表名称加载到下拉列表中
【发布时间】：2018-01-17 11:35:45
【问题描述】：

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

这是我的代码：

Sub ComboBox1_Change()

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


End Sub

【问题讨论】：

标签： excel vba combobox

【解决方案1】：

问题是您通过事件“更改”添加项目。如果组合框中没有变化（因为没有任何项目），则永远不会触发此事件。

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

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

【讨论】：

【解决方案2】：

这将是正确的结果

Private Sub UserForm_Initialize()   
    Dim ws As Worksheet
    For Each ws In Worksheets
    If ws.Name <> "Main" Then
    Me.ComboBoxpgname.AddItem ws.Name
    End If
    Next ws    
End Sub

【讨论】：