表达式求值自定义函数突破255字符限制并兼容64位office

younger001

只是随便试了下结果这样了C:\Users\Administrator\Desktop、QQ图片20190907201538

younger001

这个是多发的，不知如何删就这样了

younger001

younger001 发表于 2019-9-7 20:21
只是随便试了下结果这样了

补充下规则:1注释前不能有运算符号

ggmmlol

younger001 发表于 2019-9-8 07:46
补充下规则:1注释前不能有运算符号

谢谢反馈了以下Bug：
原代码中，考虑了对连续的"+"、"-"运算符进行化简，但直到上次时，仍不够彻底：被注释分隔的"+"、"-"运算符,不会被自动化简，而当注释内容被消除时，计算式中可能出现"++"或"--"的情况，进而导致计算结果错误。

此Bug已经在30楼的代码中修复。

younger001

大神，下午刚发现还有一个问题，就是输入特定类型错误计算式时，其结果不是出错，而是显示上一次的计算值，比如输入1+1，计算结果=2，紧接着下另一个单元格输入3+5P0#台]+2*6,计算结果还是=2.但如果输入5+ddd+6这类错误计算式时，则会正常出错。这是下午输入"["号时错误地输入了旁边的P，结果计算值等于上面那个值才引起我的警觉。总结了下，运算符号后接数字再接英文字母或汉字时计算结果就等于紧接本次的前运算结果，而不是显示#VALUE!，除非上次出出错显示的是#VALUE!

ggmmlol

younger001 发表于 2019-9-8 22:20
大神，下午刚发现还有一个问题，就是输入特定类型错误计算式时，其结果不是出错，而是显示上一次的计算值， ...

谢谢反馈！
经过检查，发现这个Bug是由于把oDom定义为全局变量造成的。
此外，还发现EXCEL的工作表函数INT函数不等价于JS中的paresInt函数，而是等价于JS中的floor函数。EXCEL的工作表函数TRUNC函数，才是等价于JS中的paresInt函数。
所以，修正上述2处bug，并增加对TRUNC函数的支持。

代码更新在30楼。

younger001

大神回帖真是快耶，问题解决了，但是运行速度又降了下来，难到真的是鱼与熊掌不可兼得。

younger001

大神，那个幂运算好象还是有点问题，比如1+（2.3*2.3+1.6*1.6）^0.5结果就不正确

younger001

正则式修改时麻烦允许幂的底数括号内允许再套括号，因为有时真角边稍长的话也是加括号的，提前祝中秋快乐

younger001

大神，昨天在一个群里看到一个网友发的代码：
Function Evaluate64(ss As String)
    Set reg = CreateObject("VBSCRIPT.REGEXP")
    ss = Replace(Replace(Replace(Replace(Replace(Replace(ss, "（", "("), "）", ")"), "[", "("), "]", ")"), "{", "("), "}", ")") '替换全角（）及[]{}
    reg.Pattern = "\([^\(]*?\)"
    Do While reg.Test(ss)
        reg.Pattern = "[A-Za-z]*\([^\(]*?\)"
        s1 = CStr(Evaluate(reg.Execute(ss)(0).Value))
        ss = reg.Replace(ss, s1)
        reg.Pattern = "\([^\(]*?\)"
    Loop
    Evaluate64 = Evaluate(ss)
End Function
这个先用EVALUATE对计算式中的函数部份进行计算替换，忽然想到大神的代码为了对函数与EXCEL保持一致，费了很多心，看能不能参照这个，就能匹配所有的EXCEL函数了，不过这个处理后的如果超255字符，仍会出错，由于我只会CTRL+C与CTRL+V，只好期待大神了，祝大神的作品更完美