Function eva(Rng As Range) '带备注公式变计算结果 [长]1*[宽]2*[高]3
Set x = CreateObject("MSScriptControl.ScriptControl")
x.Language = "vbscript"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
eva = x.Eval(.Replace(Rng.Text, "$1"))
End With
End Function
Set x = CreateObject("MSScriptControl.ScriptControl")
x.Language = "vbscript"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
eva = x.Eval(.Replace(Rng.Text, "$1"))
End With
End Function