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

其中/sub 中的符号是动态的，因此如果将 a+ -或*改为 in 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