传递表单对象时VBA类型不匹配

Question

作为一个新手（对我来说很容易:-)，我在从函数传递信息时遇到类型不匹配。

Sub Create_Class(ByRef lstbox As ListBox, ByVal loc As String)

' Generic Checksheet
Dim checksheet As cls_DR

End Sub

这是我试图传递信息的功能。

{{1}}

这可能在VBA中吗？我担心使用表单时会出现计时错误。我无法理解。帮助

Answer 1

您的参数被声明为Listbox的错误排序（Excel库中也有一个）。你需要使用它：

Sub Create_Class(ByRef lstbox As MSForms.ListBox, ByVal loc As String)