如何在VBA中使用正则表达式的Test方法？

作者：绿色风分类：时间：2022-08-17 浏览：137

楼主
wise

Q:如何在VBA中使用正则表达式的Test方法？
A: Alt+F11→插入模块→在模块中输入以下代码测试：

Function bTest(ByVal s As String, ByVal p As String) As Boolean
Dim reg As RegExp
Set reg = CreateObject("VBSCRIPT.REGEXP")
reg.IgnoreCase = False '需要区分大小
reg.Pattern = p
bTest = reg.test(s)
End Function

Sub test1()
Dim s As String
Dim p As String
s = "我的邮箱: hao123@163.com 欢迎致电！"
'测试字符串中是否包含数字：
p = "\d+"
MsgBox bTest(s, p)
'测试字符串中是否全是由数字组成：
p = "^\d+$"
MsgBox bTest(s, p)
'测试字符串中是否有大写字母：
p = "[A-Z]+"
MsgBox bTest(s, p)
End Sub

2楼
DJ_Soo

既然讲的是Test,为啥要自定义呢?绕来绕去的

不过有自定义函数确实是方便了些

3楼
bluexuemei

学习了!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

如何在VBA中使用正则表达式的Test方 法？

如何在VBA中使用正则表达式的Test方法？