首页 > 代码库 > 在VB6/VBA中使用正则表达式
在VB6/VBA中使用正则表达式
<style></style>
一、关于起因
最近在Office的QQ群里问如何在一串字符串中提取数值并加总的问题。如果使用正则表达式可以非常迅速的解决这个问题。
那么今天我就探讨一下在VB6/VBA中使用正则表达式的方法及代码，另外为了快速测试正则表达式，我给大家推荐notepad++及使用方式。
二、操作步骤
1、按Alt+F11进入Excel的VBE环境，依次选择“工具/引用”菜单，选择“Microsoft VBScript Regular Express”；
2、插入一个模块，在模块中输入如下所示的代码；
1 Function SumValueInText(TargetRange As Range) As Double 2 Dim mRegExp As RegExp 3 Dim mMatches As MatchCollection ‘匹配字符串集合对象 4 Dim mMatch As Match ‘匹配字符串 5 6 Set mRegExp = New RegExp 7 With mRegExp 8 .Global = True ‘True表示匹配所有, False表示仅匹配第一个符合项 9 .IgnoreCase = True ‘True表示不区分大小写, False表示区分大小写10 .Pattern = "([0-9])?[.]([0-9])+|([0-9])+" ‘匹配字符模式11 Set mMatches = .Execute(TargetRange.Text) ‘执行正则查找，返回所有匹配结果的集合，若未找到，则为空12 For Each mMatch In mMatches13 SumValueInText = SumValueInText + CDbl(mMatch.Value)14 Next15 End With16 17 Set mRegExp = Nothing18 Set mMatches = Nothing19 End Function
3、在工作表的A列单元格中输入各种测试字符串，在B列单元格中输入自定义函数进行测试，结果如下图所示；
三、Attention
在VB6/VBA中使用正则表达式时，我们也可以省去第一步，即采用后期绑定的方式来使用正则表达式，但是代码要做相应的调整，如下所示为调整后的代码。
1 Function SumValueInText(TargetRange As Range) As Double 2 Dim mRegExp As Object ‘正则表达式对象 3 Dim mMatches As Object ‘匹配字符串集合对象 4 Dim mMatch As Object ‘匹配字符串 5 6 Set mRegExp = CreateObject("Vbscript.Regexp") 7 With mRegExp 8 .Global = True ‘True表示匹配所有, False表示仅匹配第一个符合项 9 .IgnoreCase = True ‘True表示不区分大小写, False表示区分大小写10 .Pattern = "([0-9])?[.]([0-9])+|([0-9])+" ‘匹配字符模式11 Set mMatches = .Execute(TargetRange.Text) ‘执行正则查找，返回所有匹配结果的集合，若未找到，则为空12 For Each mMatch In mMatches13 SumValueInText = SumValueInText + CDbl(mMatch.Value)14 Next15 End With16 17 Set mRegExp = Nothing18 Set mMatches = Nothing19 End Function
在VB6/VBA中使用正则表达式
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。