我试图通过VBA将以下公式写入“订单号”工作表(在CL列中):=SUMIF('Dummy Sheet One'!C:C,'Order Number'!DB3,'Dummy Sheet One'!A:A)
当在纸张本身上键入单元格并向下拖动时,该公式按预期工作。
我尝试了几个不同的代码:
尝试一:
Dim wsDummy As WorksheetDummy Sheet One")
Dim wsOrderNumber As Worksheet
Set wsOrderNumber = Worksheets("Order Number")
wsOrderNumber.Cells(2, 90).FormulaR1C1 = "=SUMIF('" & wsDummy.Name & "'!C:C," & wsOrderNumber.Name & "'!DB2""," & wsDummy.Name & "!A:A)"
这给了我一个“应用程序或对象定义”错误。
尝试二:
Dim wsDummy As Worksheet
Set wsDummy = Worksheets("Dummy Sheet One")
Dim wsOrderNumber As Worksheet
Set wsOrderNumber = Worksheets("Order Number")
Dim LastRow As Long
LastRow = Worksheets("Order Number").Range("A" & Rows.Count).End(xlUp).Row
worksheets("Order Number").Range(“CL2”) = Application.WorksheetFunction.SumIf(wsDummy.Range(“C:C"), wsOrderNumber.range(DB2), wsDummy.Range("A:A"))
Worksheets("Order Number").Range(.Cells(2, 90), .Cells(LastRow, 90)).FillDown
这给了我一个“无效或不合格的引用”错误。
我猜我错过了一组引号或其他语法相关的问题?我看过这个网站并在网上找不到任何东西让我直截了当。
提前致谢!
我认为你的问题可能是引用和错误对象的混合。
FormulaR1C1
更改为Formula
Dim wsDummy As Worksheet
Set wsDummy = Worksheets("Dummy Sheet One")
Dim wsOrderNumber As Worksheet
Set wsOrderNumber = Worksheets("Order Number")
wsOrderNumber.Cells(2, 90).Formula = "=SUMIF('" & wsDummy.Name & "'!C:C,'" & wsOrderNumber.Name & "'!DB2,'" & wsDummy.Name & "'!A:A)"
检查公式的一个好方法是将表放在错误输出的行上,并将字符串粘贴到调试/立即窗格中,如下所示:
?"=SUMIF('" & wsDummy.Name & "'!C:C,'" & wsOrderNumber.Name & "'!DB2,'" & wsDummy.Name & "'!A:A)"
这对于调试这样令人困惑的字符串很有帮助。