【VBA】正規表現オブジェクト作成・検索・抽出

【使用例: 正規表現オブジェクトの作成】

Sub CreateRegExpObject()

Dim regEx As Object

' 正規表現オブジェクトを作成
Set regEx = CreateObject("VBScript.RegExp")

' オブジェクトの設定
regEx.IgnoreCase = True ' 大文字・小文字を無視
regEx.Global = True ' すべての一致を検索

End Sub

【使用例: パターンに一致するかどうかを調べる】

Sub TestRegExp()

Dim regEx As Object
Dim text As String
Dim pattern As String
Dim result As Boolean

' 正規表現オブジェクトを作成
Set regEx = CreateObject("VBScript.RegExp")

' 検索パターンと対象文字列を指定
pattern = "\d{3}-\d{3}-\d{4}" ' 電話番号の形式 (例: 123-456-7890)
text = "My phone number is 123-456-7890."

' パターンを設定
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True

' パターンに一致するかを調べる
result = regEx.Test(text)

' 結果をメッセージボックスで表示
If result Then

MsgBox "電話番号が見つかりました。"

Else

MsgBox "電話番号は見つかりませんでした。"

End If

End Sub

【使用例: 文字列の置換】

Sub ReplaceTextWithRegExp()

Dim regEx As Object
Dim text As String
Dim pattern As String
Dim replacedText As String

' 正規表現オブジェクトを作成
Set regEx = CreateObject("VBScript.RegExp")

' 検索パターンと対象文字列を指定
pattern = "\s+" ' 1つ以上のスペース
text = "Excel VBA is powerful"

' パターンを設定
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True

' パターンに一致する部分を置換
replacedText = regEx.Replace(text, " ")

' 結果をメッセージボックスで表示
MsgBox replacedText ' "Excel VBA is powerful"

End Sub

【使用例: 文字列からパターンに一致する部分を抽出】

Sub ExtractMatchesWithRegExp()

Dim regEx As Object
Dim matches As Object
Dim match As Object
Dim text As String
Dim pattern As String
Dim result As String

' 正規表現オブジェクトを作成
Set regEx = CreateObject("VBScript.RegExp")

' 検索パターンと対象文字列を指定
pattern = "\d{3}-\d{3}-\d{4}" ' 電話番号の形式
text = "Contact me at 123-456-7890 or 987-654-3210."

' パターンを設定
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True

' パターンに一致する部分を抽出
Set matches = regEx.Execute(text)

' 抽出結果を結合
For Each match In matches

result = result & match.Value & vbCrLf

Next match

' 結果をメッセージボックスで表示
MsgBox "見つかった電話番号:" & vbCrLf & result

End Sub