Excel VBS 中的 RegEx 特定数字模式

Question

我没有太多 RegEx 经验，需要建议才能在 Excel VBA 中创建特定模式。

我想要匹配以验证 Userform 字段的模式是:nnnnnn.nnn.nn 其中 n 是 0-9 数字。

我的代码看起来像这样，但 Reg.Test 总是返回 false。

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Pattern = "/d/d/d/d/d/d\./d/d/d\./d/d"
    End With
    If RegEx.Test(txtProjectNumber.Value) = False Then
        txtProjectNumber.SetFocus
        bolAllDataOK = False
    End If

Answer 1

试试这个。您需要匹配文本框的全部内容(我假设)，因此使用 anchor (^ 和 $)。

你的斜线是错误的。您也可以使用量词来简化模式。

Private Sub CommandButton1_Click()
  Dim RegEx As Object, bolAllDataOK As Boolean
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Pattern = "^\d{6}\.\d{3}\.\d{2}$"
    End With
    If Not RegEx.Test(txtProjectNumber.Value) Then
        txtProjectNumber.SetFocus
        bolAllDataOK = False
    End If
End Sub