vba - EXCEL VBA公式错误与工作表参考

Question

有人可以确定错误在哪里吗？

Sub calc_external_sales()
    Sheets("Monetary All").[C5].Formula = "=SUMMEWENNS(Rawdata!K2:K3446;Rawdata!I2:I3446;""bezahlt"")"
End Sub

我想这与床单和范围有关。

Answer 1

也许

Sub calc_external_sales()
    Sheets("Monetary All").[C5].Formula = "=SUMIF(Rawdata!K2:K3446,Rawdata!I2:I3446,""bezahlt"")"
End Sub

或者

Sub calc_external_sales()
    Sheets("Monetary All").[C5].FormulaLocal = "=SUMMEWENNS(Rawdata!K2:K3446;Rawdata!I2:I3446;""bezahlt"")"
End Sub

Answer 2

问题是，当您在搜索条件（“bezahlt”）周围使用引号时，它实际上将其视为两个彼此相邻且没有连接的字符串。改用这个：

Sub calc_external_sales()
    Sheets("Monetary All").[C5].Formula = "=SUMMEWENNS(Rawdata!K2:K3446,Rawdata!I2:I3446," & Chr(34) & "bezahlt" & Chr(34) & ")"
End Sub

chr(34) 是引号的符号。