调用列表以添加到VBA中的ComboBox下拉列表

Question

我有许多不同的模块需要调用一个选项列表来添加到下拉框中。我试图找出如何添加本质上是字典的字典，其中列表项添加到一个模块的下拉列表中，然后将该模块调用到其他模块中的某些下拉框。这是一个例子：

在我的“词典”模块中，我有这个列表：

第1项，第2项，第3项，第4项......

在另一个模块中，我想将此列表添加到ComboBox3中。但在另一个模块中，我想用这个列表等填充ComboBox1和ComboBox2。

有什么想法吗？

这是我尝试过的，但不起作用......

在词典模块中：

Public Sub AllOptions() 

     'This is a list of all the possible ComboBoxes throughout all modules.

    ComboBoxList = Array(CStr(ComboBox1), CStr(ComboBox2), CStr(ComboBox3), CStr(ComboBox4), CStr(ComboBox5)) 


    For Each Ky In ComboBoxList 
        On Error Resume Next 
        If Ky.Listbox = 0 Then 
            With Ky 
                .AddItem "Item 1" 
                .AddItem "Item 2"... 
            End With 
        End If 
    Next 

End Sub 

然后在我要调用的模块中，我有：

Private Sub ComboBox2_DropButtonClick() 


    Call Module9.AllOptions 


End Sub

谢谢！