我似乎无法让组合框工作。我正在尝试添加一个显示工作簿中所有工作表的下拉组合框。我的第一步是创建一个组合框,添加工作表,但框不添加任何工作表名称
这是我的代码:
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