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

/登录子是动态的，因此如果放置 + -或 *而是在 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