vba - VBA Excel で「/」文字列を除算などに変換する

Question

VBA Excelで次のことをしたい

範囲A1には値が含まれていますval1,/,val2。次のように記述された式を計算する関数が必要です。

Sub CalculateFormula()
With Sheets("Sheet1")
    splitFormula = split(.range("A1").value,",")
    debug.print splitFormula(0) / splitFormula(2)
End With
End Sub

サブルーチンの/符号は動的であるため、代わりに+ -orを入力すると、その操作がその場で実行されます。*A1

Answer 1

Evaluate() を使用すると、次のようになります。

Sub CalculateFormula()
With Sheets("Sheet1")
    splitFormula = Split(.Range("A1").Value, ",")
    Debug.Print Application.Evaluate(splitFormula(0) & splitFormula(1) & splitFormula(2))
End With
End Sub