'对象范围'_Worksheet失败 – 用户表单
我正在使用VBA – Excel 2016
我试图从一个表单中调用一个用户表单input，find另一个表单上的下一个空白行并插入值。 但是我不断收到一个运行时错误 – “对象的范围”_Worksheet失败。 该表单是从另一个表单中调用的。
我试过各种解决scheme，但似乎没有任何工作。
我在其他地方使用几乎相同的代码，当调用窗体并将值插入到同一张表中时，所以得出的结论是它必须closures以访问其他表。
它在这条线上失败：
ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName 我使用的代码如下。
Private Sub addSupplierConfirm_Click() 'Initialise variables Dim SupplierName As String 'Assign variables SupplierName = addSupplierName.Value If (SupplierName = "") Then MsgBox ("Please enter a supplier name") Exit Sub End If 'Find next row on supplier sheet add supplier name NextRow = ActiveWorkbook.Worksheets("Suppliers").Range("A" & Rows.Count).End(xlUp).Row + 1 ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName Application.ScreenUpdating = False 'Sort Suppliers ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort.SortFields. _ Add Key:=Range("tbl_suppliers[[#All],[Suppliers]]"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 'Activate home page Sheets("Expenses").Activate Range("A1").Select Application.ScreenUpdating = True 'Unload form addSupplierName.Value = "" UfAddSupplier.Hide End Sub
提前致谢！
当表单仍然显示时，您无法访问表单。 移动UfAddSupplier.Hide在访问表单之前，在你的sub UfAddSupplier.Hide一点，所有事情都应该按照预期工作：
Private Sub addSupplierConfirm_Click() 'Initialise variables Dim SupplierName As String 'Assign variables SupplierName = addSupplierName.Value If (SupplierName = "") Then MsgBox ("Please enter a supplier name") Exit Sub End If UfAddSupplier.Hide 'Find next row on supplier sheet add supplier name NextRow = ActiveWorkbook.Worksheets("Suppliers").Range("A" & Rows.Count).End(xlUp).Row + 1 ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName ... ... ...