正規表現検索ワークシート関数 excel macro

クソみたいなexcelのfind関数の代わりにつかってくれ。
他マクロからの呼び出しやワークシート関数として使える。

ただし、検索できるのはソース文字列（orセル）中で最初にマッチした１件のみ。複数検索したいヤシは、For Eachループ内のmatchオブジェクトをナンとかしてくれ。ワークシート関数の体をなしたままだと何かとメンドーそーだ。

使い方

=RegExp(<検索対象>,<正規表現パターン>,<"S" or "P" or "L">)

ex.
=RegExp(C4,"「.*」","S")
   C4セルの中からかぎ括弧で囲まれた文字列を探す。

=RegExp("日月火水木金土",C4,"P")
　C4セルに書かれた文字を曜日並びから検索し、何個目の曜日なのか、文字位置を返す。

=RegExp(C4,"(YES|NO)","L")
 C4セルに書かれた文字が"YES"なら"３"、"NO"なら"２"のようにマッチした文字数を返す。

Macroのつぼ

WSH等で使われるComモジュールのRegExpをEｘcelから呼び出している。
残念な事に、"L","P"を指定したときに返ってくる数値は文字型だ。

まっとうに使いたいヤシは、改造して、直接マクロから呼びだすべし。
マクロ作るのメンドーで、ワークシート関数でナントカしたいヤシ、そのまま使ってくれ。アドイン(.xla)で作った方がイイと思う。

Function RegExp(strTarget As String, strPat As String, para As String) As String Dim Match, Matches Dim ret As String Set RE = CreateObject("VBScript.RegExp") With RE .Pattern = strPat .IgnoreCase = True .Global = False End With Set Matches = RE.Execute(strTarget) For Each Match In Matches RegExp = "" ret = Match.Value For i = 1 To Len(para) Select Case Mid(para, i, 1) Case "P" RegExp = RegExp & Match.FirstIndex + 1 & " " Case "L" RegExp = RegExp & Len(ret) & " " End Select Next If (InStr(1, para, "S") > 0) Then RegExp = RegExp & ret Next End Function