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

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..

我解决了我的问题。我将 'sheet2' 重命名为 'components'。我每次都在宏中使用 'sheet2' 。我改变了它并解决了它。

How to add value to combobox from column?