0

次のコードは、コンパイル時エラー メッセージ「型の不一致」を作成します。

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 サブルーチンを機能させるには、正しい方向にすばやく微調整する必要があります

4

1 に答える 1

0

私はあなたの最初の例を試しただけですが、このわずかな変更でどれもうまくいくはずです。

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

編集¹: OK、3 番目ではないかもしれません。

EDIT²:詳細情報: Sub および Function プロシージャの呼び出し(適用対象: Office 2013 | VBA)

于 2015-01-22T18:48:08.700 に答える