将正则表达式应用到文本框中VBA

心中已经创建了一个示例User_Form和CommandButton（如“确认”按钮），一旦它按下它会检查在TextBox ES输入的所有值都根据这规则。

下面的代码会帮助您开始，它会检查“托盘ID”（9位数字）和“纸箱ID”（10位数字）中的值。

代码

Option Explicit 
Private Sub CommandButton1_Click() 
Dim Reg1 As Object 
Dim Reg2 As Object 
Dim RegMatches As Object 
' ====== Test PalletID_Tb ===== 
Set Reg1 = CreateObject("VBScript.RegExp") 
With Reg1 
    .Global = True 
    .IgnoreCase = True 
    .Pattern = "\d{9,9}" ' Match any set of 9 digits 
End With 
Set RegMatches = Reg1.Execute(Me.PalletID_Tb.Value) 
If RegMatches.Count = 1 Then '<-- make sure there is only 1 match (9 digits and not 18 or 27) 
    MsgBox "Value in Pallet ID is OK" 
Else 
    MsgBox "Pallet ID must have a 9 digit format" 
    Me.PalletID_Tb.Value = "" 
    Exit Sub 
End If 
' ====== Test CartonID_Tb ===== 
Set Reg2 = CreateObject("VBScript.RegExp") 
With Reg2 
    .Global = True 
    .IgnoreCase = True 
    .Pattern = "\d{10,10}" ' Match any set of 10 digits 
End With 
Set RegMatches = Reg2.Execute(Me.CartonID_Tb.Value) 
If RegMatches.Count = 1 Then '<-- make sure there is only 1 match (10 digits and not 20) 
    MsgBox "Value in Carton ID is OK" 
Else 
    MsgBox "Carton ID must have a 10 digit format" 
    Me.CartonID_Tb.Value = "" 
    Exit Sub 
End If 
' Do something if passed the 2 conditions 
End Sub