Question

EXCEL中一列输入公式及备注，一列自动计算结果，用EVALUATE函数却超过255字符的限制，如何实现？

以下这个方法虽然解决了EVALUATE函数字符超限的问题，但是当公式中有“[备注]”时不能计算结果，请求高手帮忙
Function Autocal1(Cell
With CreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"
Autocal1 = .Eval(Cell)
End With
End Function

Function Autocal2(Cell)
With CreateObject("Access.Application")
Autocal2 = .Eval(Cell)
End With
End Function

Sub test()
Dim x As String
x =
"((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+4*(0.0+0.0)+3*0.0+0.0+(2.4+3.9+2.8+1.3)+2+5+5*2+2+5+5*2-((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+4*(0.0+0.0)+3*0.0+0.0+(2.4+3.9+2.8+1.3)+2+5+5*2+2+5+5*2*
((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+((2.4+3.9+2.8+1.3)+(4.7+2.8)+(6.3+0.7+9.1+5.1+3.2+0.4+4.2+0.6))*0.5+0.0+2*0.0+4*(0.0+0.0)+3*0.0+0.0+4*(0.0+0.0)+3*0.0+0.0+(2.4+3.9+2.8+1.3)+2+5+5*2+2+5+5*2"
MsgBox Autocal1(x)
MsgBox Autocal2(x)
[A1] = x
MsgBox Autocal1([A1])
MsgBox Autocal2([A1])
End Sub

Answer 1

不要把问题搞得太复杂来计算……
说说你的具体情况 然后大家给你一些建议……举出你数据的例子 要有代表性的 包括各种可能出现的情况 加以说明一下……
还有 你的数据 原始来源等等……
个人认为 不要把问题弄复杂了 再求最后的结果；能拆分成分步解决 再做最后处理最好 并且要从原始数据搜集开始 ……基础工作 很重要

追问

 

能解决图片中的问题吗？

追答

看来你没有理解我说的意思
我是想知道 你为什么要这样做 你这样做的目的是什么 仅仅是练习计算 怎样做都没有问题 因为是练习嘛，但是如果是要解决实际问题 我不觉得这样做是 一个好的解决方案
说说你的具体情况 或许有更好的解决方案 如果不是实际需要 那么 我就爱莫能助了……对这样的计算 在实践中 没有多大实用价值……

你目前的数据中不带备注文本 你说 没有问题 那么 你可以把备注文本删掉嘛……
使用替换 把不需要的文本替换掉 查找 [*] 替换什么也不填写……
或者 使用数据分列 分别用 [、] 来分列……然后 再计算 ……
这样化整为零 也是解决问题的一个办法哦

追问

当然是要解决实际问题啦！ 在做工程结算时，用EXCEL计算工程量，需要在一个单元格输入带[注解]的计算式，在另一个单元格自动计算出结果。这样打印出来的表格，工程量时计算式、包括计算式的注解、结果都一目了然，可极大的方便别人审核。 但工程实际中计算式往往很长，一般都超过255的字符，我就提出了这个问题。

追答

我看 我也不去仔细研究你的问题了，你就把 你这样的一个数据 复制到另外一列里边（作为实际计算列 平时隐藏起来就可以了），然后使用替换的方式 把“[*]” 就是你的注释 替换掉 ……
然后再使用你的那个第一个自定义函数 来进行计算………
当然 如果能够 在你的自定义函数中 直接把代码写上去是最好的了 期待吧……

追问

此问题几天前自己已编码解决，不过还是谢谢你

追答

哦 后来我也编辑了一下 在你的第一段代码基础上 增加一些VBA代码 去掉你的注释后再运算……
不过 注释是规范的“[xxxxxx]” 这样的形式 其他形式的还没有考虑 ……

祝贺你解决了这个问题！该不是你就是那位求得编码的吧？……

Answer 2

可以参照我主页中这篇文章，其附件EXCEL文件中第39行公式就是去除备注后再运算的方法
函数多了个语言选项，可利用JScript正则表达式处理问题，甚至可以在公式中编程。
具体参见下面文章的附件（示例EXCEL表格）。
http://hi.baidu.com/ygjnfsgasybbguq/item/08a3f21e2cac28e89c778a9e