Question

我有一个将在sheet1上打开的表单，用户可以在其中输入所有信息。我希望信息填写在sheet8上，但它给我一个错误，任何人都可以帮助。我得到一个超出范围错误的下标。

提前致谢！

Private Sub EnterInfo_Click()

    Dim LastRow As Range
    Dim DataTable As ListObject


    'Add row to bottom of Data table
    ActiveSheet.ListObjects("Data").ListRows.Add

    'Enter data from form into our new row
    Set DataTable = ActiveSheet.ListObjects("Data")
    Set LastRow = DataTable.ListRows(DataTable.ListRows.Count).Range

    With LastRow

        .Cells(1, 1) = StaffName.Value
        .Cells(1, 5) = ClientName.Value
        .Cells(1, 4) = Month.Value
        .Cells(1, 7) = Description.Value
        .Cells(1, 6) = Hours.Value

    End With

End Sub

Answer 1

我如何知道哪张是活动表？标有表格表8中的“数据” - Leofig123

然后更改此行

ActiveSheet.ListObjects("Data").ListRows.Add

要

Sheets("sheet8").ListObjects("Data").ListRows.Add

错误9 VBA表单填充不同的表单

1 个答案: