式を挿入しないR1C1式の計算結果のみを挿入する方法

Question

R1C1式を範囲に挿入するステップはスキップしますが、式の結果のみを挿入する方法はありますか？私が今持っているもの：

newColumn.FormulaR1C1 = "=MID(RC[-17],14,3)" 
newColumn.Value = newColumn.Value 

私のようなものを持っているしたいと思います：

newColumn.Value = newColumn.FormulaR1C1 = "=MID(RC[-17],14,3)" 

Answer 1

newColumn.Value =評価（ "MID（RC [-17]、14,3）"）

ここで

Answer 2

A1型にR1C1式を変換する方法である：

Function MakeA1(R1C1Formula As String) As String 

MakeA1 = Application.ConvertFormula(_ 
    Formula:=R1C1Formula, _ 
    fromReferenceStyle:=xlR1C1, _ 
    toReferenceStyle:=xlA1, _ 
    ToAbsolute:=xlAbsolute)  
End Function 

その後、あなたはそれを使用することができます。

Sub test() 
    str1 = MakeA1("MID(RC[-17],1,3)") 
    Range("B2").Value = Evaluate(str1) 
End Sub