我是在 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
它使用在代码的其他部分设置的全局变量。如有必要,我可以发布所有代码。