VBA test関数 正規表現 Pattern直書き

インラインで処理するための必要最低限なコード

'選択されたリストが四桁の西暦かチェックする

With CreateObject("VBScript.RegExp")    '正規表現を利用する為のオブジェクトを作成
  .Pattern = "^[0-9]{4}$"   '文字列パターンを設定
  Debug.Print .Test(ComboBox1.Text) '結果を格納
End With

参考にしたソース
【VBA】正規表現を使用して検索や置換を行う | 自恃ろぐ-jizilog.com-

Sample1()
'正規表現を使用し文字／数値を判定する
'＊＊Testメソッド＊＊
 
  '正規表現を利用する為のオブジェクトを作成
  With CreateObject("VBScript.RegExp")
  
    '文字列パターンを設定
    '「^」=文字列先頭にマッチ、[0-9]=0～9数値指定
    .Pattern = "^[0-9]"
    
    'セルA1に入力された文字列が設定パターンに該当するかテストし
    '結果をメッセージボックスに表示
    MsgBox "文字列「" & Cells(1, 1).Value & "」の先頭は数値？：" _
    & .Test(Cells(1, 1).Value) & vbLf & vbLf _
    & "True=数値　False=文字"
    
  End With
    
End Sub