作者：绿色风
分类：
时间：2022-08-17
浏览：179
楼主
chrisfang |
要制作一个可以对字符串进行运算的自定义函数，例如参数为字符串“1+2”时函数返回结果为3，参数为字符串“3>4”时函数返回结果为False，参数为字符串“(1<2 or 4<3 )”时函数结果返回为True等等。这个功能类似于VBA中的函数Evaluate，但Evaluate函数有很多局限性，例如不能对“(1<2 or 4<3 )”这种字符串进行正确运算，参数长度不能超过255个字符等等。
而VBScript中的Eval函数也具有类似的运算功能，调用VBScript的Eval函数能够更理想地实现这个自定义函数的功能，代码如下：
- Function myEva(target)
- Set obj = CreateObject("MSScriptControl.ScriptControl")
- obj.Language = "vbscript"
- myEva = obj.Eval(target)
- Set obj = Nothing
- End Function
运算对比如下：
 计算函数.rar
|
2楼
xyh9999 |
非常有用，好好学习！ |
3楼
wangqilong1980 |
无论如何也要顶一下喽，收了好好用。 |
4楼
xing_xingyou |
无论如何也要顶一下喽，收了先学习学习再运用。 |
5楼
水星钓鱼 |
神奇的EVAL |
6楼
tjg |
学习了，感谢楼主的分享！
 |
7楼
lrlxxqxa |
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一