错误1004：应用程序定义或对象定义的错误-VBA

Question

ActiveCell.FormulaR1C1 = "=sumifs('Adjusted Forecasts'!r1c[""&(adjcol-snopadj)&""]:r""&(lrow-1)&""c[""&(adjcol-snopadj)&""]|'Adjusted Forecasts'!r1c-7:r""&(lrow-1)&""c[-7]|r[1]c[-7])"

嗨，

上一行向我抛出错误1004.这里没有复制问题，因为这是孤立的代码行。 “调整后的预测”表是同一工作簿中的另一个工作表。

任何帮助表示赞赏。 谢谢。

Answer 1

该公式有两个问题。

1. 双引号只能是单引号。 在公式中需要引号时，使用双引号。 单引号用于区分公式测试和vba代码。

2您已放置“ |” 需要逗号的地方。

尝试这个：

ActiveCell.FormulaR1C1 = "=sumifs('Adjusted Forecasts'!r[1]c[" & (adjcol - snopadj) & "]:r[" & (lrow - 1) & "]c[" & (adjcol - snopadj) & "],'Adjusted Forecasts'!r[1]c[-7]:r" & (lrow - 1) & "c[-7],r[1]c[-7])"

Answer 2

看起来您正在尝试将字符串连接与某些变量一起使用，但是您已将引号转义，因此它不起作用。

尝试：

ActiveCell.FormulaR1C1 = "=sumifs('Adjusted Forecasts'!r1c[" & (adjcol-snopadj) & _
    "]:r" & (lrow-1) & "c[" & (adjcol-snopadj) & "]|'Adjusted Forecasts'!r1c-7:r" & _
    (lrow-1) & "c[-7]|r[1]c[-7])"

（增加了换行符以提高可读性）

---

在VBA中，引号（ " ）标记字符串的开头或结尾。如果要在字符串中使用引号，则必须通过将其加倍来对其进行转义：

Debug.Print "Testing some ""quotes"" in this string"
'// Prints ~~ Testing some "quotes" in this string ~~

因为您已经将引号加倍了，所以变量将被视为字符串而不是变量，因为现有的字符串尚未结束：

Dim a As Integer
a = 5

Debug.Print "a = " & a & " (test)"   '// Prints ~~ a = 5 test~~
Debug.Print "a = "" & a "" & (test)" '// Prints ~~ a = " & a " & (test) ~~