VBA正则表达式问题

Question

如果给定Excel单元格的内容与特定正则表达式匹配，VBA是否有任何良好的检查机制？

就我而言，我想知道某个单元格的格式是否

m
m2
m1234

实际上，开头只有一个定义的字母，其后是未指定数量的数字。

如何将其放入If-Else构造中？

If Doc.Cells(1,1).Value ..... ???

迎接诗丹

Answer 1

您可以通过“工具”->“参考”并添加“ Microsoft VBScript正则表达式5.5”来获取VBScript RegExp对象。

或者，如果您不需要像`m1234X1中那样检查下一个字母，那么一种快速的方法是：

if Doc.Cells(1,1).Value like "[a-zA-Z]#*" then ...

（这不需要引用任何内容）

Answer 2

我不知道VBA，但是正则表达式[a-zA-Z][0-9]*可能可以匹配您想要的。

Answer 3

这是我的RegexContains函数。 向其传递单元格和模式，如果包含或不包含单元格和模式，则它将返回TRUE或FALSE。

Function RegexContains(ByVal find_in As String, _
                       ByVal find_what As String, _
                       Optional IgnoreCase As Boolean = False) As Boolean

Application.ScreenUpdating = False

Dim RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = find_what
RE.IgnoreCase = IgnoreCase
RE.Global = True
RegexContains = RE.Test(find_in)

Application.ScreenUpdating = True

End Function

现在，我不确定您想在示例中找到什么，但是如果您想知道单元格中是否包含单个字母，然后是一个或多个字母，则可以使用（假设该单元格为A1）：= RegexContains（A1，“ ^ \\ w \\ d +”）

• ^标记句子的开头
• \\ w表示单个字母字符（a-zA-Z）
• \\ d +标记一个或多个数字字符[0-9]

我希望这有帮助。