Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA调试-运行时1004:R1C1公式未计算_Excel_Vba_Excel R1c1 Notation - Fatal编程技术网

Excel VBA调试-运行时1004:R1C1公式未计算

Excel VBA调试-运行时1004:R1C1公式未计算,excel,vba,excel-r1c1-notation,Excel,Vba,Excel R1c1 Notation,我试图编写一些包含Excel公式的VBA脚本,但不断出现错误,似乎在任何地方都找不到解决方案 我想可能是因为我有一个R1C1公式,它包含了+1。我不能确定,但它似乎有可能被解释为糟糕的语法。也许会让人觉得我指的是当前列+1列。但总伸展 Range("A4").Select ActiveCell.FormulaR1C1 = _ "=IF(R[-1]C+1>R2C15,"",R[-1]C+1)" 最终结果应该是,如果前一行的值+1大于R2C15(O2)中的值,它将生成一个空白,否则前

我试图编写一些包含Excel公式的VBA脚本,但不断出现错误,似乎在任何地方都找不到解决方案

我想可能是因为我有一个R1C1公式,它包含了+1。我不能确定,但它似乎有可能被解释为糟糕的语法。也许会让人觉得我指的是当前列+1列。但总伸展

Range("A4").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-1]C+1>R2C15,"",R[-1]C+1)"
最终结果应该是,如果前一行的值+1大于R2C15(O2)中的值,它将生成一个空白,否则前一行的值+1。然而,我一直得到1004错误


有什么想法吗?

你没有逃过引号

如果您是VBA新手,需要一些时间才能习惯,但您需要使用

Range("A4").Select
ActiveCell.FormulaR1C1 = _
    "=IF(R[-1]C+1>R2C15,"""",R[-1]C+1)"

将此:
“=IF(R[-1]C+1>R2C15,”,R[-1]C+1)
转换为:
“=IF(R[-1]C>值(RC)+1,”,值(R[-1]C)+1)”
这以及Gareth的答案解决了此错误。非常感谢。这以及达米安的回答解决了这个错误。非常感谢。