如何在VBA中使用RegEx

Question

匹配简单数字模式如何检查字符串是一位数字还是两位数字，否则返回false？

Answer 1

如何：

Function OneOrTwo(i As Integer) As Boolean 
Dim objRegEx As Object 
Set objRegEx = CreateObject("VBScript.RegExp") 
objRegEx.IgnoreCase = True 
objRegEx.Global = True 

objRegEx.Pattern = "^\d{1,2}$" 

OneOrTwo = objRegEx.Test(i) 
End Function 

参见：http://msdn.microsoft.com/en-us/library/ms974570.aspx

Answer 2

IF CInt(myNumberString) < 100 Then 
    MsgBox "String must be either 1 or 2 digits" 
Else 
    Msgbox "Failed" 
End IF 

应该为你工作。

Answer 3

这是我会尝试。/d代表数字，？对于选项2数字。

/d/d？

或

/d {1,2}

Answer 4

你也可以做到这一点使用VBA LIKE：

Function OneOrTwo(Digits As Variant) As Boolean 
    OneOrTwo = Digits Like "#" Or Digits Like "##" 
End Function 

Answer 5

Remo你说得对。这里是一个RegexContains函数，所以你可以使用它的各种模式，而不仅仅是你现在需要的模式。

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

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

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

End Function 

继从Remou的例子，假设细胞是A1，你会写：

= RegexContains（A1， “^ \ d {1,2} $”）