尝试从变量和相对位置创建公式。 变量(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 & " "
答案 0 :(得分: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
最后,删除硬编码的值并尝试一下。