正規表現によるチェック@Excel マクロ・VBA
正規表現によるチェックを行います。
MicroSoft VBScript Regular Expressionを参照設定します。
VBScript_RegExp_55.regExpを生成します。
Patternにチェックしたい正規表現を設定します。
testで文字のチェックを行います。
戻り値はBooleanです。
Dim regExp As VBScript_RegExp_55.regExp
Dim str As String
'VBScript_RegExp_55.regExpを生成
Set regExp = New VBScript_RegExp_55.regExp
'チェックする正規表現
regExp.Pattern = "^123$"
'チェックする文字
str = "123"
'チェック
If regExp.test(str) Then
MsgBox ("OK")
Else
MsgBox ("NG")
End If
'チェックする文字
str = "234"
'チェック
If regExp.test(str) Then
MsgBox ("OK")
Else
MsgBox ("NG")
End If
Set regExp = Nothing
End Sub
|