VBA 正規表現 複数の文字列の繰り返し パターン
Dim v As Variant
With CreateObject("VBScript.RegExp") '正規表現を利用する為のオブジェクトを作成
.Pattern = "^(\d{1,2}r((\d{1})|(\d{1}(15|30|45|00)))(,|$|, )?)+$" '文字列パターンを設定
v = .test(Str.Value) '結果を格納
Debug.Print v
End With