将表单中的信息添加到表中

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