[Excel VBA] 正規表現判定を行う（RegExp）

Excel VBAで正規表現判定を行う方法

今回は置換など考えず、シンプルに判定のみ行います。

RegExpオブジェクトを用いた正規表現判定

事前準備

VBAの設定を変更する必要があります。

面倒そうですが、簡単なので1分以内に終わります。

１．上部メニューの「ツール」⇒「参照設定」をクリックします。

２．「Microsoft VBScript Regular Expresions 5.5」が必ずあるので見つけてチェックボックスにチェックをいれて「OK」をクリックします。
※Microsoft VBScript Regular Expresions 1.0でもOKな模様。

Excelの再起動とかは要りません。

サンプル

ブック内で日付指定されたシートのセル(1, 1)に"A"と入力するプログラム

Dim regexp as New RegExp
' 擬似的に「数値８桁」で日付指定判定
regexp.Pattern = "([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])"
' 検索文字列全体についてのパターンとの一致を検索するか(True)、最初の一致だけを検索するか(False)
regexp.Global = True

For i = 1 To Sheets.Count
 ' Test()で判定処理
 if regexp.Test(Sheets(i).Name) Then
  Sheets(i).Cells(1, 1) = "A"
  end if
Next i