创建一个ComboBox对象以将其传递给Sub

Posted 2021-05-03

我试图从子上访问UserForm上的ComboBox。因此，我正在尝试将Combobox对象传递给它。

但是，我似乎无法创建一个Combobox对象以便将其传入。它们在输入sub时始终为空。这就是我一直在尝试的：

Dim ctl As ComboBox

Set ctl = Me.cb_FcnName 'cb_FcnName is the name of the Combobox I'm trying to access

Call ColumnEntries2Combobox(ctl)

这是我的潜艇：

Private Sub ColumnEntries2Combobox(ByRef Combo As ComboBox)
     Combo.AddItem = Worksheets(WorksheetName).Cells(currRow, 2)
End Sub

出于某种原因，我似乎找不到任何关于如何创建必要的组合框对象以传递到子文档的文档...

在此先感谢您的任何帮助！

答案

AddItem是一种方法，而不是财产。对于一个方法，我们在空格后提供参数，而不是设置一个等于某个属性的属性。

所以改变

     Combo.AddItem = Worksheets(WorksheetName).Cells(currRow, 2)

至

     Combo.AddItem Worksheets(WorksheetName).Cells(currRow, 2)

这是一个常见错误，因此一个简单的演示是：

object.Property = value

object.Method arg1, arg2