如何解决在EXCEl中函数evaluate的计算式长度限制的问题

Question

我用的是07版office，工作是建筑行业，经常要做含有混合四则运算的计算式，而且很长，我用“名称管理器”新建名称，然后在“引用位置”输入“EVALUATE（Sheet1！A1）”，在后面一个单元格应用该名称，就可以在单元格A1中输入计算式，后面则自动出结果。但计算式过长的话就无法出结果。听说是255个字符限制，如何解决这个问题呢。希望高手帮忙。感激不尽~~
在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()来计算文本型数学表达式的计算结果。
我用了这种方法，有的可以用，有的没法用。不知怎么回事啊。。。

Answer 1

可以把计算式在适当的位置 分成2段 比如说 1+2+1+1
分别将 1+2 输入 A1 1+1输入 B1
引用位置输入 EVALUATE（Sheet1!A1&"+"&SHEET1!B1)

追问

能不能在编辑器中重新录入一个新的函数。修改字符限制啊。。。

追答

这个是EXCEL本身的限制，应该够呛，也不知道怎么修改，

追问

唉。。。纠结。。。百度上说的用宏编辑器，说的都不清。。。。。

Answer 2

可以分开命名如
想要计算1+3*5/6+6+7*10*14*42（只是假如）
那就命名
计算1=1+3*5/6+6
计算2=7*10*14*42
计算3=计算1+计算2
这样就可以 了 ，大概思路就是这样

Answer 3

Dim Expression '该变量用于附给计算公式或数值
If Len(Expression) <= 254 Then '计算不超过254字符的字符串计算式
Expression = Evaluate("=" & Expression)
Else '计算超过254字符的字符串计算式
With CreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"
Expression = .Eval(Expression)
End With
End If

Answer 4

输入以后，同时按住crtl、shit、enter

追问

输入什么以后

Answer 5

如果公式规则基本一致,可以将一个单元格的公式折分到两个单元格中去(但保证切点一致)
通过两个单元格去计算就可以了.

追问

具体做法。。。还有能否像网上说的在宏里面自定义一个可以达到要求的函数。。。

追答

要看你的表格.加510809100,看了你的数据后或许能找到一些思路