将值插入2张

我希望能够在2张表中添加多个数据。 有了这个，我有一个错误：

运行时错误“91”：对象variables或未设置块

参考这一行：

With Sheetclient = ThisWorkbook.Sheets(CMB_Test.Value) 

第一页由combobox值select，运行良好，第二页将自动显示页面“testbit”。

  Private Sub Save_test_Click() Dim Sheetclient As Worksheet Dim testbit1 As Worksheet Dim nr As Integer, lr As Integer With Sheetclient = ThisWorkbook.Sheets(CMB_Test.Value) nr = Sheetclient.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheetclient.Cells(nr, 5) = Me.TB_dateBit.Value Sheetclient.Cells(nr, 6) = Me.serial.Value Sheetclient.Cells(nr, 7) = Me.matrice.Value Sheetclient.Cells(nr, 8) = Me.CMB_config.Value Sheetclient.Cells(nr, 9) = Me.lifetime.Value End With With testbit1 = ThisWorkbook.Sheets("testbit") nr = testbit1.Cells(Rows.Count, 1).End(xlUp).Row + 1 testbit1.Cells(nr, 1) = Me.TB_dateBit.Value testbit1.Cells(nr, 2) = Me.serial.Value testbit1.Cells(nr, 3) = Me.matrice.Value testbit1.Cells(nr, 4) = Me.CMB_config.Value testbit1.Cells(nr, 5) = Me.lifetime.Value End with End End Sub 

Answer 1

你需要Set对象 – 并Set它，你可以使用. 引用它。 因此你的代码可能看起来像这样：

 Set Sheetclient = ThisWorkbook.Sheets(CMB_Test.Value) With Sheetclient nr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(nr, 5) = Me.TB_dateBit.Value .Cells(nr, 6) = Me.serial.Value .Cells(nr, 7) = Me.matrice.Value .Cells(nr, 8) = Me.CMB_config.Value .Cells(nr, 9) = Me.lifetime.Value End With 

代码的第二部分相同