将excel公式转换为其数值VBA

时间:2017-01-09 10:26:07

标签: excel excel-vba vba

Worksheets("Risk Plan").Range("U2:U800").FormulaR1C1 = "=IFERROR(IF(RC[-1]<=0,"" "",(RC[-1]/RC[-2])*100),"" "")"
Worksheets("Risk Plan").Range("V2:V800").FormulaR1C1 = "=IF(RC[-1]<>"" "",(IF(RC[-1] * 0.75 >= RC[-16],""1"",(IF(AND(RC[-1] * 0.75 < RC[-16] = TRUE, RC[-16] < RC[-1] = TRUE),""2"",(IF(RC[-16] >= RC[-1], ""3"", "" "")))))),"" "")"

上面是我用于使用excel公式填充工作表中的单元格的一些代码的示例。

我的问题是我不知道如何将这些公式的输出转换为整数值,我可以在其余的代码中计算。我正在引用包含xlCell.Offset(x, y).Value计算中使用的值的单元格。我读到的地方乘以我希望我的公式将数值显示为1的范围将给出数值,但这种方法比解决方案引起的问题更多。感谢任何帮助或建议。

0 个答案:

没有答案