は、私はあなたの助けみんなを必要とするテキストボックスフォームVBA

Question

に正規表現を適用します。テキストボックスを制限するにはどうしたらいいですか？これは私の下のフォームです。私は必要なもの

場合は、次のテキストボックスのための文を作成することです： パレットIDを：10個の数字 雑誌（全6）にのみ含まれている必要があります：のみ9つの数字 カートンIDが含まれている必要がありFOCをstartwithだけ含まれている必要がありますCAPSと数字[AZ] [0-9]

私はJavascriptでこれを行いましたが、今はExcelシートにバックアップが必要です。何か案は？あなたの注意のための

おかげで、

Answer 1

I'vは、TextBox ESに入力されたすべての値がに従っていることを確認押されています一度それだ（「確認」ボタンのような）サンプルUser_FormとCommandButtonを作成しましたルール

以下のコードは、「パレットID」（9桁）と「カートンID」（10桁）の値をチェックします。例えば、各ボックスの `MaxLength`プロパティを設定し、テキストボックスのイベントを処理

コード

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