2楼
我不需要这么麻烦，计算式输入后，自动就会得到结果。如果是cad拾取的数据，组合出计算式自动导入excel，会自动就会得到结果。哪里需要你这么麻烦。
回复
3楼
wqq2006 发表于 2014-3-7 10:49 我不需要这么麻烦，计算式输入后，自动就会得到结果。如果是cad拾取的数据，组合出计算式自动导入excel，会 …哦，好的。给个链接看看你的软件好吗？
回复
4楼
hechuanghong 发表于 2014-3-7 12:35 哦，好的。给个链接看看你的软件好吗？代码告诉你，自己做吧，很简单的，如果不明白就上网查找。可以了吧？Function 合计(c As Range)p = c.TextFor j = 1 To Len(p)F: If (Mid(p, j, 1) = “[”) Then For i = j + 1 To Len(p) If (Mid(p, i, 1) = “]”) Then j = i + 1 Exit For End If Next End IfIf (Mid(p, j, 1) = “[”) ThenGoTo FEnd Ifr = r + Mid(p, j, 1)NextIf (r <> “”) Then 合计 = Application.Evaluate(“(” & r & “)”) Else 合计 = “” End IfEnd Function
回复
5楼
本帖最后由 hechuanghong 于 2014-3-15 16:59 编辑
好的，还没试。先谢！
回来试用了，还不错的。计算式可以即时修改结果。只是保存时，要另存为可编辑宏的文件。另外，遗憾没有换行功能。
回复
6楼
我在来补充一点：
如果你要输入取整、三角函数等的计算式 例如 取整 15/9 或者计算 sin(45.6)
那么你就要先查一下formula中这些函数的语法 比如要向上取整 15/9，就输入roundup(15/9,)
这样配合脚本才可以计算出结果。
回复
7楼
本帖最后由 hechuanghong 于 2014-3-16 11:14 编辑
新增加了换行输入的功能.
回复
8楼
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
回复
9楼
没弄过这个玩意儿 怎么弄啊 看着好神奇
回复
10楼
zhangqiaoyujia 发表于 2014-3-20 13:57 没弄过这个玩意儿 怎么弄啊 看着好神奇按alt+f11进入VBA编辑器。如果没有的话，就要下载安装。一般excel2007以后的版本都有VBA安装选择项。进去后insert一个新的moudle，将4楼wqq 2006的脚本复制进去。 好后，回到sheet中，在任意一个cell内输入你的计算式，再在其他cell中输入 =合计(这里选计算式的那个cell) 即可。 当然如果你不喜欢用“合计”的字眼来调用这个function，那么你直接回到VBA把所有的“合计”改为你想要的名称并用此名调用即可。
回复
11楼
过来学习的
回复
