使用 byref 的类型不匹配

Question

以下代码创建编译时错误消息"类型不匹配"：

Private Sub Example  
    JustAdd(Sheet1.ListObjects("Table6"))
End Sub
Public Sub JustAdd(ByRef tableN As ListObject)  
   tableN.ListRows.Add
End Sub

还尝试过：

Private Sub Example  
    Dim tmp As ListObject
    Set tmp = Sheet1.ListObjects("Table6")
    JustAdd(tmp)
End Sub
Public Sub JustAdd(ByRef tableN As ListObject)  
   tableN.ListRows.Add
End Sub

也：

Private Sub Example  
    Dim tmp As ListObject
    tmp = Sheet1.ListObjects("Table6")
    JustAdd(tmp)
End Sub
Public Sub JustAdd(ByRef tableN As ListObject)  
   tableN.ListRows.Add
End Sub

只需要在正确的方向上快速推动即可使此 JustAdd 子程序正常工作

Answer 1

我只尝试了您的第一个示例，但我相信它们中的任何一个都应该使用这种轻微的修改。

Call JustAdd(Sheet1.ListObjects("Table6"))

编辑¹：好的，也许不是第三个。

EDIT²：有关详细信息，请参阅：调用子和函数过程（适用于：Office 2013 |VBA）