発端 VBAで正規表現を使おうとした場合、参照設定などしないといけなかったりと、わりと面倒です。そこで、JScriptの正規表現を使ってしまうことで解決しようというのが今回の試みです。 ソース 'スクリプトエンジンを宣言(JScript) Set js = CreateObject("ScriptControl") js.Language = "JScript" 'スクリプトを定義する(JScript) Dim script As String script = "'abcdefg'.match(/a/)" 'ヒットした文字を出力 Dim result As String result = js.eval(script) MsgBox result 解説 js.eval(script) の結果、正規表現 /a/ にマッチした文字列が result に代入されます。 参照 VBAからJScr