Evaluate已经突破255字符限制

stmason · 发表于 2015-9-1 00:14

借鉴修改一下，现在能用内置的INT等函数了，分享一下思路，这个代吗应该还有精简改进的空间滴

'自动计算
Function tn(R As String, Optional n As Variant) As Variant
Dim PL As String, PR As String, PL2 As String, PR2 As String, PL21 As String, PL22 As String
Dim PL2rl As Integer '+
If IsMissing(n) Then Else If n <> Int(n) Or n < 0 Then GoTo a4
Do
If InStr(R, "[") > InStr(R, "]") Then GoTo a4
If InStr(R, "[") = 0 Then Exit Do
PL = Left(R, InStr(R, "]") - 1)
PR = Right(R, Len(R) - InStr(R, "]"))
PL2 = Left(PL, InStrRev(PL, "[") - 1)
R = PL2 & PR
If InStr(R, "]") = 0 Then Exit Do
Loop
R = StrConv(R, vbNarrow) '把计算式里的全角“（”、“）”都转化为半角“(”、“)”
R = Replace(R, "K", "^(.5)")
R = Replace(R, "F", "^(2)")
R = Replace(R, "÷", "/")
R = Replace(R, "×", "*")
If Len(R) > 255 Then GoTo a1
Zhuhanshu:
On Error GoTo a4
If IsMissing(n) Then
tn = Round(Evaluate(R), 3)
Else
tn = Round(Evaluate(R), n)
End If
Exit Function
If 1 = 2 Then
a1:
On Error GoTo a4
If InStr(R, "(") = 0 Then GoTo a2
Do
PL = Left(R, InStr(R, ")"))
PR = Right(R, Len(R) - InStr(R, ")"))
If IsNumeric(Left(PR, 1)) Or Left(PR, 1) = "(" Or Left(PR, 1) = "." Then GoTo a4
PL2 = Left(PL, InStrRev(PL, "(") - 1)
PR2 = Right(PL, Len(PL) - InStrRev(PL, "(") + 1)
If Right(PL2, 1) <> "*" Or Right(PL2, 1) <> "/" Or Right(PL2, 1) <> "+" Or Right(PL2, 1) <> "-" Then
PL2rl = Application.Max(InStrRev(PL2, "*"), InStrRev(PL2, "/"), InStrRev(PL2, "+"), InStrRev(PL2, "-")) '+
PL21 = Left(PL2, PL2rl) '+
PL22 = Right(PL2, Len(PL2) - PL2rl) '+
PL2 = PL21
PR2 = PL22 & PR2
End If
R = PL2 & Evaluate(PR2) & PR
If Len(R) <= 255 Then GoTo Zhuhanshu
If InStr(R, "(") = 0 Then GoTo a2
Loop
End If
If 1 = 2 Then '无()时
a2:
On Error GoTo a4
If InStr(R, "+") = 0 And InStr(R, "-") = 0 Then GoTo a3
Do
PL = Left(R, 255)
If InStrRev(PL, "+") > InStrRev(PL, "-") Then
PL2 = Left(PL, InStrRev(PL, "+") - 1)
R = Evaluate(PL2) & Right(R, Len(R) - InStrRev(PL, "+") + 1)
Else
PL2 = Left(PL, InStrRev(PL, "-") - 1)
R = Evaluate(PL2) & Right(R, Len(R) - InStrRev(PL, "-") + 1)
End If
If Len(R) <= 255 Then GoTo Zhuhanshu
If InStr(R, "+") = 0 And InStr(R, "-") = 0 Then GoTo a3
Loop
End If
If 1 = 2 Then
a3:
On Error GoTo a4
Do
PL = Left(R, 255)
If InStrRev(PL, "*") > InStrRev(PL, "/") Then
PL2 = Left(PL, InStrRev(PL, "*") - 1)
R = Evaluate(PL2) & Right(R, Len(R) - InStrRev(PL, "*") + 1)
Else
PL2 = Left(PL, InStrRev(PL, "/") - 1)
R = Evaluate(PL2) & Right(R, Len(R) - InStrRev(PL, "/") + 1)
End If
If Len(R) <= 255 Then GoTo Zhuhanshu
Loop
End If
If 1 = 2 Then
a4:
If R = "" Then tn = 0 Else tn = "错误"
If R = "密码" Then tn = "不能让你看"
End If
End Function

复制代码

xd3210 · 发表于 2015-9-1 05:25

stmason 发表于 2015-9-1 00:02
借鉴修改一下，现在能用内置的INT等函数了，分享一下思路，这个代吗应该还有精简改进的空间滴

上传代码，分享成果！！

fjfhjie · 发表于 2016-5-22 10:40

本帖最后由 fjfhjie 于 2016-5-22 10:42 编辑

根据9楼建议，11楼方法完善此函数。此次上传加载宏xlam版与自动化加载项DLL版，两个版代码相同。如有需要自行下载

补充内容 (2016-6-30 11:52):
自动化加载项dll版，好像只能在office2010 32位中使用。

fjfhjie · 发表于 2016-6-25 17:11

本帖最后由 fjfhjie 于 2016-6-25 17:19 编辑

此次上传加载宏xll版。office 2003、2007、2010、2013、2016 32位版本以及wps均可使用（但精简版不可以用）！但必须在安装了.net framework 4.0才可以使用。此自定义函数是用vbScript计算的，所以只能在32位的excel中用，且计算式有出现excel内置函数时不可以计算（但是可以计算int取整函数，别的不可以）！！

补充内容 (2016-7-2 11:18):
office2003加载可以计算，关闭后，打开excel会一直提示错误，故office2003中不可使用。

fjfhjie · 发表于 2016-8-5 16:35

本帖最后由 fjfhjie 于 2016-8-6 20:31 编辑

excel计算表达式函数.zip (319.03 KB, 下载次数: 91)
此次上传加载宏xll版，其中有两个自定义函数（计算表达试函数tn()/人民币大写函数dx()）。
2007、2010、2013、2016 32位&64位office版本以及wps均可使用（但精简版不可以用）！
但必须在安装了.net framework 4.0才可以使用。
且tn()函数计算式中可以有mod/int等一些函数。
本加载宏是用ExcelDna封装的，附有代码。如有错误，欢迎指正。

补充内容 (2016-8-13 17:00):
此版本发现错误，计算表达式函数tn()，有些正确的计算式不能得出结果。特此说明。
如果有需要可以来这里下载
http://www.excelpx.com/thread-329088-1-1.html
这里的是已经修复好的！！！

fjfhjie · 发表于 2016-9-1 18:38

excel计算表达式函数2016.08.13.zip (319.92 KB, 下载次数: 108)

补充内容 (2016-10-12 20:08):
22楼，最新

huangxuejin · 发表于 2016-9-13 10:23

老师你好，有没有时间，帮我编写一个数值转换大写代码吗？

cbtaja · 发表于 2016-9-13 18:10

fjfhjie 发表于 2016-8-5 16:35
此次上传加载宏xll版，其中有两个自定义函数（计算表达试函数tn()/人民币大写函数dx()）。
2007、2010、 ...

砼浇筑计划跟进表.rar (18.93 KB, 下载次数: 122) 没有必要搞那么复杂。
对于计算式中的注释文字，使用正则表达式将其判别出来并删除掉，然后用Change事件触发的自动宏，在计算结果的单元格中自动填写公式，并进一步转化为值即可。
因为上述方法采用的完全是EXCEL公式本身的计算功能，当然就不受Evaluate字符数限制，而计算式也如同普通公式一样，可包含任意EXCEL内置函数、自定义函数、名称定义（可以用来自定义代号），而且通用于32位和64位的EXCEL2003及以上的任意版本，无需.net framework即可使用。
简单说来，就是用自动宏完成3个步骤：①清除计算式中注释内容；②为计算式添加“=”号，使之成为普通公式；③把公式转换为数值。

fjfhjie · 发表于 2016-9-23 19:09

本帖最后由 fjfhjie 于 2016-9-23 19:11 编辑

cbtaja 发表于 2016-9-13 18:10
没有必要搞那么复杂。
对于计算式中的注释文字，使用正则表达式将其判别出来并删除掉，然后用Change事件 ...

搞的复杂吗？我恰恰是从加载方便，使用简单的角度出发才弄的这个
或许你这个从计算式转化成值代码写的比较简单，但是在我们专业里你写的这个实用性几乎为零，无实用性价值。
你这只限定在这张表格中使用，而在我们专业里，有计算式的表不可能只是这一种样式。你把计算式限定在第5列，结果限定在6列，是不现实的。当然你这个也可以改代码来实现，计算式不在第5列，结果也在其它列，但那必须有点VBA基础的人才能用，但是话说回来了，懂vba的人会用到你写的这个东西吗？
而且触发自动宏事件，撤销功能就没有了
综上所述，你写的这个实用性不强。

fjfhjie · 发表于 2016-9-23 19:20

huangxuejin 发表于 2016-9-13 10:23
老师你好，有没有时间，帮我编写一个数值转换大写代码吗？

LBC转大写.zip (9.77 KB, 下载次数: 66)

		自动登录	找回密码
密码			免费注册

[分享] Evaluate已经突破255字符限制

计算表达式tn函数

excel一列计算式一列结果函数tn()/人民币大写函数dx()

评分