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

我有EXCEL文档中的字段列表（在表单中）。 点击button后，我需要将input字段的所有信息添加到此表中。 我需要在VBA上编写事件代码。 有人可以帮忙，例如如何做到这一点？

这里是我的一个例子：

Answer 1

演示这样做的方法

表名List1
文本框名称TextBox1和TextBox2
button名称CommandButton1

button点击代码

 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