メニュー 表示 非表示

正規表現によるチェック@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




Copyright (C) Excelマクロ・VBAのお勉強. All Rights Reserved.