嘻皮客娱乐学习网

标题: 自定义函数去掉计算表达式中的不需要的内容，然后求值 [打印本页]

作者: xipick 时间: 2016-9-4 12:08
标题: 自定义函数去掉计算表达式中的不需要的内容，然后求值
在excel中插入一个模块，然后复制下面的内容加到这个模块中

Function 公式求和(Rg As Range)
Dim Reg
Set Reg = CreateObject("Vbscript.RegExp")
With Reg
.Global = True
.Pattern = "<.*?>" '这是不需要的字符，也就是说尖括号和其中的内容不要。
End With
公式求和 = Application.Evaluate(Reg.Replace(Rg, ""))
End Function

复制代码

用的时候，只要在单元格里面输入 =公式求和（要求和的公式所在的单元格）即可

此自定义函数可以求解如下表中A2到A9中的公式表达式的计算结果。也就是先除去公式表达式中尖括号及其中的内容，然后对剩下的只含有数字和运算符号的表达式进行运算，得出结果。

(, 下载次数: 11)

也可以直接用下面的附件，下载后，放到 C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns这个文件夹里面，可能不同的系统不太一样，这个地址是office加载项文件存放的默认位置。可以在c盘搜索AddIns，得到该文件夹位置。
放在那儿后，直接在任何一个excel中把该文件加载上就可以了，具体步骤是在菜单栏选择文件——选项——加载项——转到(G) ，然后就弹出了加载宏的对话框，然后把里面的 “去除尖括号后公式求和”前面打上勾，就可以了。

这样就可以在任何一个excel文件中只要用公式 =公式求和（要求和的公式所在的单元格）即可。

需要加载的宏： (, 下载次数: 125)

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)