将复杂的公式放入细胞中

Question

我想将公式放到单元格中，我将使用的值基于另一个单元格（不是修复单元格）。 这是公式，如果它在excel的公式栏上。

=IF(AND(D9=0,J9<>0),100%,IFERROR(K9/D9,0))

但我不能在vba中使用它，因为公式应该在我将使用它的每个单元格中都是灵活的。这是我的代码（我知道它不好。）

ws.Range("L" & src1).Formula = "=IF(AND(" & ws.Range("D" & src1).Value & "=0," & ws.Range("J" & src1).Value & "<>0),100%,IFERROR(" & ws.Range("K" & src1).Value / ws.Range("D" & src1).Value & ",0))"

Answer 1

假设src1是一个整数值，我相信你想要：

ws.Range("L" & src1).Formula = "=IF(AND(D" & src1 & "=0,J" & src1 & "<>0),100%,IFERROR(K" & src1 & "/D" & src1 & ",0))"