我有代码可以在我单击下拉按钮时使用工作表名称和更新填充我的组合框。
问题是我无法在组合框列表中选择一个值。我还有两个隐藏的工作表,我不希望组合框填充它们。
这是代码:
Private Sub REFRESH_COMBOBOX1()
Dim ws As Worksheet
ComboBox1.Clear
For Each ws In ThisWorkbook.Sheets
If ws.Visible Then ComboBox1.AddItem(ws.Name)
Next ws
End Sub
Private Sub ComboBox1_DropButtonClick()
REFRESH_COMBOBOX1
End Sub
如果您必须使用 DropButtonClick 事件,则使用这种稍微不同的清除组合框的方法:
Sub REFRESH_COMBOBOX1()
Dim ws As Worksheet
Dim i As Long
Do While ComboBox1.ListCount > 0
ComboBox1.RemoveItem (0)
Loop
For Each ws In ThisWorkbook.Sheets
If ws.Visible Then ComboBox1.AddItem (ws.Name)
Next ws
End Sub
而不是使用.Clear
也会删除框中文本的内置函数,它只会从列表中删除项目,然后重新添加它们
这意味着当您选择一个项目时,即使再次调用“REFRESH_COMBOBOX1”例程,它也不会被清除。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句