VBA检测字符串是否为首位字母+指定位数数字

想要用vba检查字符串是否为首位字母+指定位数数字，比如检测字符串是否为首位字母加6位数数字，有以下两种方法：

第一种，用like运算符判断：

Sub like识别字符串是否为首位字母加6位数数字()
MsgBox "A123456" Like "[A-Za-z]######" '将要处理的字符串进行文本识别（符合like返回希尔值true/否则返回false）
MsgBox "A65432a" Like "[A-Za-z]######" '将要处理的字符串进行文本识别（符合like返回希尔值true/否则返回false）
End Sub

第二种，用正则表达式判断：

Sub 正则识别字符串是否为首位字母加6位数数字()
Dim regx As Object
Set regx = CreateObject("vbscript.regexp")  '创建正则表达式对象“常规”
regx.Pattern = "^[A-Za-z][0-9]{6}$"  'Pattern设置正则表达式的特征、规则为“六位数字”
MsgBox regx.Test("A123456") '将要处理的字符串进行文本识别（符合正则返回希尔值true/否则返回false）
MsgBox regx.Test("A65432a") '将要处理的字符串进行文本识别（符合正则返回希尔值true/否则返回false）
End Sub

以上内容对您有帮助可以分享或转藏，避免以后找不到。想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。