Question

大神：请教你上传的excel表格“关于计算公式中带文字，还有不能超过255字符”内函数是怎么写的？

你解决了这个问题"excel中evaluate无法计算公式中带文字，还有不能超过255字符，求解决！！！"。上传的excel表格

Answer 1

Function 计算(表达式)
    Set x = CreateObject("MSScriptControl.ScriptControl")
    表达式 = Replace(Replace(表达式, "（", "("), "）", ")")
    x.Language = "vbscript"
    With CreateObject("VBSCRIPT.REGEXP")
        .Global = True
        .Pattern = "\[.*?\]|\【.*?\】|{(.*?)}|[^0-9.+-/^*()]"
        计算 = x.Eval(.Replace(表达式, "$1"))
    End With
End Function

自定义函数