在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()来计算文本型数学表达式的计算结果。