arrays - 如何用在module1 VBA中填充的数组填充列表框

Question

我是在 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

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

Sub of Function not defined

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

这是模块中 GetTellerNames 子的代码:

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

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

Answer 1

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