使用 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²：更多信息请访问：Calling Sub and Function Procedures（适用于：Office 2013 | VBA）