vba - 数字格式有问题

Question

我有以下代码:

Dim tarifa As Double
tarifa = Sheets("OD Tarifa").Cells(fila, 5 + r).value
Cells(j, r + 10).FormulaR1C1 = _
                "=" & tarifa & "-" & "SUMIF(C[-6],RC[-6],C[-3])+SUMIF(C[-6],RC[-6],C[-2])+SUMIF(C[-6],RC[-6],C[-1])"

其中 tarifa 使用逗号作为小数分隔符(例如 1,5)保存，因此当 VBA 尝试编写公式时，它会引发错误。例如，如果我手动将 tarifa 替换为 1.5，则不会出现错误。我该怎么做才能解决这个问题？

Answer 1

一种方法是使用 FormulaR1C1Local 而不是 FormulaR1C1:

Dim tarifa As Double
tarifa = Cells(1, 2).Value
Cells(2, 2).FormulaR1C1Local = "=" & tarifa