如何从列中添加组合框的值？

Question

我想将一些数据设置为组合框。此代码块在Sub Auto_Open()中无效。如何解决这个问题呢？我该怎么办？

With Sheet2.ComboBoxTetiklenenEvent
.Clear
.ListFillRange = "Sheet2!B10:B16"
End With

Answer 1

您可以在DropButtonClick活动期间添加项目，这会在用户点击下拉按钮时触发。

例如：

Private Sub ComboBox21_DropButtonClick()
    Me.ComboBox21.ListFillRange = "Sheet2!B10:B16"
End Sub

Answer 2

如果删除.Clear方法，它应该可以正常工作。它出错的原因是.Clear用于清除手动添加的项目。因此，更改.ListFillRange就足够了。

但是如果你真的想使用.Clear方法，可以使用它：

With Sheet2.ComboBoxTetiklenenEvent .Clear For Each r In Sheets("Sheet2").Range("B10:B16") .AddItem r.Value Next r End With

Answer 3

谢谢@joelc和@ user3561813 ..

我解决了我的问题。我重新命名了我的＆＃39; sheet2＆＃39;到＆＃39;组件＆＃39;。我用过＆＃39; sheet2＆＃39;每次在宏观中。我改变了它并解决了这个问题。