如何从列中添加combobox的值？

我想设置一些数据到combobox。 这个代码块在Sub Auto_Open()不起作用。 如何解决这个问题呢？ 我能做什么？

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

Answer 1

您可以在DropButtonClick事件期间添加项目，当用户单击下拉button时会触发该项目。

例如：

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

Answer 2

如果你删除.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'。 我每次都在macros中使用“sheet2”。 我改变了它并解决了这个问题。