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

nowpop

如何移值到新的excel表格中，麻烦写个教程，谢谢！

nowpop

怎样才能使计算式的单元格是空白的时候，计算结果的单元格也是空白的，而不是显示为0

ggmmlol

更新：
1、修正幂运算的幂不能为小数的Bug
2、修正计算式中不能出现连续加减运算符的Bug
3、修正Ceiling、Floor、Round三个函数与Excel内置函数不符的Bug，但请注意以下特别提示：

特别提醒：
为了“兼容”Excel内置工作表函数Ceiling、Floor、Round的习惯写法，这三个函数用了Js语言的Round函数为基础写成的衍生函数，当工作簿中包含这些函数的表达式在关闭后重新打开时，它们在EEVAL函数中的计算结果都会被取整。为了使它们得到精确结果，必须把公式重新编辑一下或删除重新填写，特别是在打印最终结果之前，应当手动重算一遍，或利用工作簿打印事件以VBA自动宏强制重新填写公式，使得公式重新计算。

更新后的代码如下：

1. Option Explicit
   
2. Public oReg As New RegExp, Initialized As Boolean '需引用Microsoft VBScript Regular Expressions 5.5
   
3. Sub Auto_Open()
   
4.     With oReg
   
5.         .Global = True
   
6.         .IgnoreCase = True
   
7.     End With
   
8.     Initialized = True
   
9. End Sub
   
10. 
    
11. Function EEVAL(ByVal s$)  '计算复杂文本描述型表达式的值 利用正则消除注释字符（以成对的半角或全角方括号[]【】包含的内容）
    
12.     Dim a$(), b$(), i%, strJS$, tmp0$, tmp1$, oDom As Object, oWin As Object
    
13.     '支持基本数学函数和两个重要常数（圆周率和自然常数）支持Int函数，支持全角四则运算符和幂运算符，支持全角圆括号。同时支持常用对数函数LOG和自然对数函数LN，并与Excel的工作表函数LOG、LN函数保持一致。
    
14.     tmp0 = "\blog10e\b、\bln(?=10\b|2\b)、\blog\(、＋、－、×、÷、（、）、(\d*\.?\d+|\w*\([^\(\)]*\)|\w+)\^(-?\d*\.?\d+|\w*\([^\(\)]*\)|\w+)、" & _
    
15.             "\bTRUNC\b、\bInt\b、\b(sqrt|round|random|pow(er)?|PI|min|max|log(10E)?|ln(2|10)|exp|E|abs|a?tan2?|a?sin|a?cos)\b、" & _
    
16.             "\[[^\[\]]*\]|【[^【】]*】|(Math\.)(?=\1)、power\b、Math.e\b、\.pi(\(\))?、\b(Math\.)?ln\(、(-\+*-|\+)+(?=[\+\-])|[\+\-]+$、--"
    
17.             
    
18.     tmp1 = "LOG10E、LN、LOG10E*log(、+、-、*、/、(、)、pow($1,$2)、" & _
    
19.             "parseInt、Math.floor、Math.$1、、pow、Math.E、.PI、Math.log(、、+"
    
20.     If Not Initialized Then Auto_Open
    
21.     a = Split(tmp0, "、")
    
22.     b = Split(tmp1, "、")
    
23.     s = VBA.LCase(s)
    
24.     With oReg
    
25.         For i = 0 To UBound(a)
    
26.             .Pattern = a(i)
    
27.             s = .Replace(s, b(i))
    
28.         Next
    
29.         If Len(s) = 0 Then EEVAL = VBA.vbNullString: Exit Function
    
30.     End With
    
31.     Set oDom = CreateObject("htmlfile")
    
32.     Set oWin = oDom.parentWindow
    
33.     oDom.write Replace("<script Language = JavaScript> function EEVAL(){return eexp} </script>", "eexp", s)
    
34.     EEVAL = oWin.eval("EEVAL()")
    
35. End Function

复制代码

应用样例： jss.rar (17.86 KB, 下载次数: 119)

2019-9-18 12:08 上传

点击文件名下载附件

bbsy83

学习了，谢谢！！

lu6200

楼主你好  用你23楼的代码和附件计算为错误值，不知道是什么原因，使用3楼的代码则没有问题，烦请楼主有空看一下，

YZC51

不错！谢谢楼主分享

younger001

高人就是高人，现在感觉离完美就差一点点了，这一点点就是我的表格目前只有100行左右的计算式，运行过程中运算时能感觉到卡顿，目前暂不影响感受，但是后面还有差不多2000行呢，届时会不会卡的失去耐性还不知道，曾经考虑过在选项内将自动计算改为手动计算，但改过后由于习惯了自动计算而在一次没有手动计算更新时直接打印上交，结果~~。
最后P个S：最新版增加支持的三个函数不知是否影响运行效率，若是，建议割爱，感觉可用INT代替
祝越来越完善

lu6200

younger001 发表于 2019-9-3 18:28
高人就是高人，现在感觉离完美就差一点点了，这一点点就是我的表格目前只有100行左右的计算式，运行过程中 ...

兄台，你用的最新代码吗？只开是一楼的代码比较卡顿，后面3楼的运行效率要高一点，但是多了计算要等待

younger001

lu6200 发表于 2019-9-4 10:35
兄台，你用的最新代码吗？只开是一楼的代码比较卡顿，后面3楼的运行效率要高一点，但是多了计算要等待

是啊，就是用的三楼的代码呀，只是我的这个工作薄另两张工作表也有函数，不过都是内置函数，把这张用楼主函数的表删除后，运算感觉不到顿，但加上后有感觉，最新的23楼的倒是没用，我的理解是多个正则式，就会慢一分，不知理解是否正确，当然主要是新增的三个函数我用不上~~

ggmmlol

根据上面两位坛友反馈，修改代码，把Round、Ceiling和Floor这3个不常用的函数从支持的函数清单中移除，同时，把正则对象的Global和Ignorecase两项都改为在Auto_Open过程中统一赋值，避免在函数中重复执行。这样，函数的效率应当略有提升，继续测试反馈：
（2019-9-8补充：对连续出现的"+"、"-" 运算符的化简，放在最后进行，避免遗漏。）
（2019-9-9补充：修正Int函数对负数取整的错误；增加对TRUNC函数的支持。）

1. Option Explicit
   
2. Public oReg As New RegExp, Initialized As Boolean '需引用Microsoft VBScript Regular Expressions 5.5
   
3. Sub Auto_Open()
   
4.     With oReg
   
5.         .Global = True
   
6.         .IgnoreCase = True
   
7.     End With
   
8.     Initialized = True
   
9. End Sub
   
10. 
    
11. Function EEVAL(ByVal s$)  '计算复杂文本描述型表达式的值 利用正则消除注释字符（以成对的半角或全角方括号[]【】包含的内容）
    
12.     Dim a$(), b$(), i%, strJS$, tmp0$, tmp1$, oDom As Object, oWin As Object
    
13.     '支持基本数学函数和两个重要常数（圆周率和自然常数）支持Int函数，支持全角四则运算符和幂运算符，支持全角圆括号。同时支持常用对数函数LOG和自然对数函数LN，并与Excel的工作表函数LOG、LN函数保持一致。
    
14.     tmp0 = "\blog10e\b、\bln(?=10\b|2\b)、\blog\(、＋、－、×、÷、（、）、(\d*\.?\d+|\w*\([^\(\)]*\)|\w+)\^(-?\d*\.?\d+|\w*\([^\(\)]*\)|\w+)、" & _
    
15.             "\bTRUNC\b、\bInt\b、\b(sqrt|round|random|pow(er)?|PI|min|max|log(10E)?|ln(2|10)|exp|E|abs|a?tan2?|a?sin|a?cos)\b、" & _
    
16.             "\[[^\[\]]*\]|【[^【】]*】|(Math\.)(?=\1)、power\b、Math.e\b、\.pi(\(\))?、\b(Math\.)?ln\(、(-\+*-|\+)+(?=[\+\-])|[\+\-]+$、--"
    
17.             
    
18.     tmp1 = "LOG10E、LN、LOG10E*log(、+、-、*、/、(、)、pow($1,$2)、" & _
    
19.             "parseInt、Math.floor、Math.$1、、pow、Math.E、.PI、Math.log(、、+"
    
20.     If Not Initialized Then Auto_Open
    
21.     a = Split(tmp0, "、")
    
22.     b = Split(tmp1, "、")
    
23.     s = VBA.LCase(s)
    
24.     With oReg
    
25.         For i = 0 To UBound(a)
    
26.             .Pattern = a(i)
    
27.             s = .Replace(s, b(i))
    
28.         Next
    
29.         If Len(s) = 0 Then EEVAL = VBA.vbNullString: Exit Function
    
30.     End With
    
31.     Set oDom = CreateObject("htmlfile")
    
32.     Set oWin = oDom.parentWindow
    
33.     oDom.write Replace("<script Language = JavaScript> function EEVAL(){return eexp} </script>", "eexp", s)
    
34.     EEVAL = oWin.eval("EEVAL()")
    
35. End Function

复制代码