Excel VBAコマンドボタンコードがオブジェクト変数を認識しません

Question

ユーザーフォームの（テキスト）内容を既存の（名前付き）ダイナミック範囲 "MasterTable"に追加するコマンドボタン用のコードを作成しました：

Private Sub AddDev_Click() 

    Application.CutCopyMode = False 

    With Worksheets("Table").Range("MasterTable").ListObject.ListRows.Add 
     .Offset(1, 0).Value = NewDevRecord.NewCorp.Value 
     .Offset(1, 1).Value = NewDevRecord.NewAddr.Value 
     .Offset(1, 1).Value = NewDevRecord.NewFac.Value 
    End With 

End Sub 

forを入力してボタンをクリックすると、Error 91- Object Variable or With Block Variable Not Setがスローされ、違反者としてハイライトWorksheets("Table").Range("MasterTable")がスローされます。範囲を参照する有効な方法ではありませんか？それは私のVBAの本とシートモジュールで動作します - UserFormコンポーネントにアクセスできませんか？私は間違って何をしていますか？

Answer 1

ListObjectは、あなたのようにそれを参照してくださいと同じようにMasterTableが作成されている場合：だから、このコードは動作します

Worksheets("Table").ListObjects("MasterTable") 

：

Private Sub AddDev_Click() 

    Application.CutCopyMode = False 

    With Worksheets("Table").ListObjects("MasterTable").ListRows.Add 
     .Offset(1, 0).Value = NewDevRecord.NewCorp.Value 
     .Offset(1, 1).Value = NewDevRecord.NewAddr.Value 
     .Offset(1, 1).Value = NewDevRecord.NewFac.Value 
    End With 

End Sub