EXCEL VBA での、正規表現のパターン表現を変数を含んだパターンで実行する方法を教えて下さい。

Question

動作環境：
Windows１０
EXCEL　2016　VBA
Microsoft VBScript regular Expressions 5.5 参照設定
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
上記環境で
正規表現で文字列の存在を確認する場合
文字列 myStr = "{(a+b+c),d}"
の中に、文字パターン myPtn = ",d}"の存在を確認する例として、
＝＝＝
Sub 正規EXP_tst()
    Dim myStr As String
    Dim myPtn As String
    
    myStr = "{(a+b+c),d}"	’対象文字列

    myPtn = ",d}"		'存在を確認したい文字パターン
    
    Debug.Print RegExpExists(myPtn, myStr)

End Sub

Function RegExpExists(myPtn As String, myStr As String)
    'Microsoft VBScript Regular Expressions 5.5　参照設定
    Dim myRegExp   As VBScript_RegExp_55.RegExp
    Dim myMatchClc As VBScript_RegExp_55.MatchCollection
    Dim myMatch    As VBScript_RegExp_55.Match
    Set myRegExp = New VBScript_RegExp_55.RegExp
    With myRegExp
        .Pattern = myPtn       'パターンの設定
        .IgnoreCase = True    '大文字と小文字を区別しない
        .Global = True         '文字列全体を検索
        RegExpExists = .Test(myStr)
    End With
    Set myMatchClc = Nothing   'オブジェクトの解放
    Set myMatch = Nothing
    Set myRegExp = Nothing
End Function
＝＝＝
を実行すれば、イミディエイト画面にはTrueを表示し、対象文字列に",d}”の文字パターンが記されていることを確認できます。
文字パターン種類がいくつかありまた、未次自体もｄ以外のA1セルに入力した文字を確認したい時、
w1 = Range("A1")
Range("A2")に "," & w1 & "}"と入力し
myPtn = Range("A2")
と変数に入力して実行すれば良いはずです。
Range("A1")にdを入力すれば、myPtn = ",d}"
となるので、d以外の文字列記載の確認も可能なはずです。ところが、
＝＝＝
Sub 正規EXP_tst()
   'Microsoft VBScript Regular Expressions 5.5　参照設定
    Dim myStr As String
    Dim myPtn As String
    Dim w1 As String
    Dim p1 As String
    
    w1 = Range("A1").Value		’　dを入力
    p1 = Range("A2").Value		’　"," & w1 & "}"を入力
 
    myStr = "{(a+b+c),d}"
    myPtn = p1   			 'パターンを指定する

    Debug.Print RegExpExists(myPtn, myStr)
End Sub
＝＝＝
を実行するとイミディエイト画面にはFalseを表示して存在しないことになります。すなわちタターンを検出しません。
ウオッチウインドウで確認すると、
w1は、入力した文字dを表示します。
p1は、入力したパターン "," & w1 & "}"をそのまま表示します。",d}"が表示されると思っていましたが、ｗ１のままでした。
実行時にｗ１として入力したdに置き換わと思っていたのですが、
実行結果がFalseであることから置換処理は実行されていないようです。
正規表現のパターン表現を変数を含んだパターンとして実行する方法があれば教えて下さい。

めぐみん_ · Accepted Answer

＞p1 = Range("A2").Value

p1が『セルの値』を代入されるから

＞p1は、入力したパターン "," & w1 & "}"をそのまま表示します

になりますよ。

少なくともセルA2に　="," & A1 & "}" と『数式』を入れておき

'w1 = Range("A1").Value ’　dを入力　・・・不要
p1 = Range("A2").Value ’　数式の結果を代入

なら出来ると思いますけど？（検証はしてません）

セルＡ２に必要性がわからないですが

w1 = Range("A1").Value ’　dを入力
p1 = "," & w1 & "}"
Range("A2").Value = p1

でも良いのかもしれません。

EXCEL VBA での、正規表現のパターン表現を変数を含んだパターンで実行する方法を教えて下さい。

＞p1 = Range("A2").Value

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング