如何使用填充在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

当我运行此操作时，我收到错误消息

  

未定义的功能子

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

以下是模块中GetTellerNames子代码：

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

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

Answer 1

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