作者：绿色风
分类：
时间：2022-08-17
浏览：84
楼主
kevinchengcw |
Q: 如何用vba代码自定义公式实现提取文本中指定字符开头的数值求和计算？
A: 代码如下：（公式所在工作表有效）
- Function GetSum(ByVal Rng As Range, Optional Str As String) '定义getsum公式(单元格区域,可选的数值前文本参数)
- Dim R As Range, mMatch, N#
- On Error GoTo skip '如果出错则跳到skip行
- Application.Volatile '设定公式为易失性（即时更新）
- If IsMissing(Str) Then Str = "" '如果可选参数未输入则赋值为""
- With CreateObject("vbscript.regexp") '创建正则
- .Global = True '设定全程有效
- .MultiLine = True '设定多行有效
- .Pattern = Str & "(\d+\.?\d*)" '设定正则匹配规则
- N = 0 '初始化加和值为0
- For Each R In Application.Caller.Parent.Range(Rng.Address) '循环单元格区域的各个单元格（注意指定公式所在工作表单元格的方式）
- If R <> "" Then '如果单元格内容不为空则执行下述操作
- For Each mMatch In .Execute(R.Value) '循环提取到的值并加和
- N = N + Val(mMatch.submatches(0))
- Next mMatch
- End If
- Next R
- GetSum = N '返回得到的加和值
- End With
- Exit Function '退出程序
- skip:
- GetSum = "Error" '如遇出错情况则返回"Error"
- End Function
|
2楼
亡者天下 |
过来学习一下
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一