コマンドボタンで最後の行を最初に選択せずにExcelテーブル（リスト）の最後に行を追加する

Question

コマンドボタンで最後の行を最初に選択せずにExcelテーブルの最後に新しい行を追加する必要があります私のテーブルの名前はエクセル2013

を使用して：元帳 のCommandButton1の名前は：私はコードを書くことに失敗した新

を追加し、あなたは私を助けてくださいことができますか？

Answer 1

テーブルの場所を特定し、テーブルに含まれるRangeオブジェクトを作成するコードを記述する必要があります。テーブル内の任意の範囲にすることができます。表がスプレッドシートの左上にある場合は、単にA1を使用できます。

Set r = ActiveSheet.Range("A1") 

その後、本質的にあなたのテーブルを取得する電池用ListObjectを取得し、行を挿入します。その後、ListRows.Addに電話してください。

r.ListObject.ListRows.Add 

Answer 2

あなたはこのような何かをしようとする...

Private Sub AddNew_Click() 
Dim tbl As ListObject 
Set tbl = ActiveSheet.ListObjects("Ledger") 
tbl.ListRows.Add AlwaysInsert:=True 
End Sub