用Eval()函数克服evaluate()函数的局限求文本型数学表达式计算结果

happym8888 · 发表于 2011-12-7 11:34

在Excel中可以用evaluate()函数求文本型数学表达式的计算结果，不过Evaluate有个缺陷，使用它时字符数不能超过一定的量（可能是255个），这个时候可以采用Eval函数来实现EValuate的功能，操作方法如下：
1. 新建一EXCEL工作簿BOOK1.xls,打开；
2. 按Alt+F11打开VB编辑器，插入一模块；
3. 在模块中输入一下代码、自定义一函数DEva()：
Function DEva(Cell)
With CreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"
DEva = .Eval(Cell)
End With
End Function
4. 关闭后可以在单元格里直接调用DEva()来计算文本型数学表达式的计算结果。

hxigang · 发表于 2011-12-8 09:30

只有路过.............

生存方式 · 发表于 2012-1-16 22:08

好好学习，天天向上！

liyh67 · 发表于 2012-1-17 20:11

宏表函数evaluate需要定义名称才能使用，而这个在单元格中直接使用

geniusq · 发表于 2013-1-12 11:19

您好楼主，我照您的方法操作后可以实现计算表达式，但是如何在表达式里加入文本呢？

匿名 *发表于 2014-11-11 11:57* · 发表于 2014-11-11 11:57

您的这个方法保存不了
保存就没用了
请教如何解决谢谢

xiaojin6550 · 发表于 2015-3-18 16:55

还是用不了

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

[分享] 用Eval()函数克服evaluate()函数的局限求文本型数学表达式计算结果

评分

相关帖子