vba - 通过vba在Excel中添加单元格公式

Question

我不是 Excel 或 VBA 专家，但我想使用 VBA 将当前的 Excel 公式插入到单元格中。

当前 Excel 公式:

=IF(OR(ISNUM(D570)=FALSE;ISNUM(D573)=FALSE);"";IF(C573="Total";D573-D570;""))

VBA 公式:

 ActiveSheet.Range("a" & ActiveSheet.Rows.Count).End(xlUp).Offset(2, 12).Value = "=IF(OR(ISNUM(R[-3]C[-9])=FALSE;ISNUM(R[0]C[-9])=FALSE);'';IF(R[0]C[-10]='Total';R[0]C[-9]-R[-3]C[-9];''))"

这不起作用……有人可以帮助我吗？

Answer 1

尝试在 VBA 代码中使用 .formula = 而不是 .value =。

设置单元格的.value 只需复制您指定的任何值即可。在这种情况下，您的公式只是转换为字符串值。

使用 .formula 属性，您实际上是在指定用于计算值的公式，这就是您要查找的值。