excel - フォームからテーブルに情報を追加する

Question

EXCELドキュメントとテーブルのフィールドのリスト（シート上）があります。ボタンをクリックした後、入力フィールドからこのテーブルにすべての情報を追加する必要があります。VBAでイベントのコードを書く必要があります。誰かがこれを行う方法の例を手伝ってもらえますか？

ここに私のテーブルの例があります：

Answer 1

これを行うための方法のデモ

テーブル名List1
テキストボックス名TextBox1とTextBox2
ボタン名CommandButton1

ボタンクリックコード

Private Sub CommandButton1_Click()
    Dim lst As ListObject
    Dim rng As Range
    Set lst = Me.ListObjects("List1")
    lst.Range.Activate
    Set rng = lst.InsertRowRange
    rng.Cells(1, lst.ListColumns("Item A").Index) = TextBox1.Value
    rng.Cells(1, lst.ListColumns("Item B").Index) = TextBox2.Value
End Sub

編集

リストが別のシートにある場合は、このバージョンを使用してください

Private Sub CommandButton1_Click()
    Dim lst As ListObject
    Dim rng As Range
    Dim lstRow As ListRow
    Set lst = Me.Parent.Worksheets("Sheet2").ListObjects("List1")
    Set lstRow = lst.ListRows.Add
    Set rng = lstRow.Range
    rng.Cells(1, lst.ListColumns("Item A").Index) = TextBox1.Value
    rng.Cells(1, lst.ListColumns("Item B").Index) = TextBox2.Value
End Sub