R1C1, переменная и математика в уравнении

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

Если это работает, возможно, проблема в представлении Double с локального языка Excel на VBA:

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

В конце удалите жестко запрограммированное значение и попробуйте.