Question

尝试从变量和相对位置创建公式。变量（X）是RC [1]（未设置但看起来像一个）将选择的单元格以及它的双精度数

如果我这样运行它，则会发出应用程序或对象定义的错误。

Dim MIDDLEcounter As Integer
Dim Xdatacell As String
Dim Xdatacellvalue As Double
Xdatacell = "B" & MIDDLEcounter (basicly 2 but changable)
Range(Xdatacell).Select
Xdatacellvalue = ActiveCell.Value

ActiveCell.FormulaR1C1 = "=RC[1] - " & Xdatacellvalue  & " "

Answer 1

尝试一些小方法，看看它是否有效。只写这一行：

Sub TestMe
    ActiveCell.FormulaR1C1 = "=RC[1] - " & "23.8"
End Sub

如果有效，则可能是从本地Excel语言到VBA的Double的显示方式：

Sub TestMe
    ActiveCell.FormulaR1C1 = "=RC[1] - " & Replace("23,8", ",", ".")
End Sub

最后，删除硬编码的值并尝试一下。

R1C1，等式中的变量和数学

1 个答案: