vba - 调用列表以添加到 VBA 中的组合框下拉列表

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

谢谢！