2

我是在 VBA 中创建用户表单的新手。不过,我已经使用 VBA 宏有一段时间了,所以我对它们有所了解。现在,我正在为使用带有列表框的用户表单的用户创建电子表格。我在常规模块中有很多代码,需要引用模块来填充列表框。我现在拥有的是这样的:

Private Sub StartButton_Click()
 Dim Number
 Call GetTellerNames
 For Number = 0 To 40 Step 1
    If GetTellerNames(Number) <> "" Then
        ListBox1.AddItem (GetTellerNames(Number))
    End If
 Next
End Sub

当我运行它时,我收到一条错误消息

子功能未定义

如何解决这个问题,以便我可以使用模块中的数组来填充列表框?我已经有了填充数组工作的代码。

这是模块中 GetTellerNames 子的代码:

Private Function GetTellerNames()
GetTellerNames = FindOthers(BranchNumber, TellerCode, 2)
End Function

它使用在代码的其他部分设置的全局变量。如有必要,我可以发布所有代码。

4

1 回答 1

1

由于GetTellerNames()代码位于标准模块中,您需要将访问修饰符更改为public以便能够从 UserForm1 对象模块访问该方法/子。

于 2013-10-29T13:01:25.013 回答