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