VBA：在子表单中调用

我有一个很大的问题，从子调用UserForm。

这是我的代码的一部分：

Sub TestForArray(ObjectName,FormName As String) Forms(FormName).Controls(ObjectName).List = NewArr End sub 

当我在Private Sub中调用这个子类时，就像这样

 Private Sub UserForm_Initialize() Call TestForArray("Form1", "ComboBox1") End Sub 

我得到错误; “子或function没有定义”，并重点词forms

我究竟做错了什么？

Answer 1

如果目标是有一个可以从不同的用户窗体调用的Sub来初始化用户窗体的控件，则可以将用户窗体本身作为参数。

例：

 Sub TestForArray(oForm As UserForm, sObjectName As String) aNewArr = [{1,2,3,4,5,6}] oForm.Controls(sObjectName).List = aNewArr End Sub 

和：

 Private Sub UserForm_Initialize() Call TestForArray(Me, "ComboBox1") End Sub 

问候

阿克塞尔