excel_vbaでの正規表現について

実現したいこと

EXCEL_VBAでinputboxを使いセルの範囲選択をさせようとしています。
その際、特定のセル範囲が選択されているかどうかの判定を行いたいと考えてます。

前提

条件は下記です。
①列Cの範囲が選択されている。
②10行目以下が選択されている。
OKパターン 「$C$26」「$C$24:$C$28」「$C$22:$C$25,$C$30」
NGパターン「$C:$C」「$C$25:$D$31」「$C$8:$C$22」

発生している問題・エラーメッセージ

正規表現で判定をしたいのですが、うまくいきません。

該当のソースコード

下記は、条件①のみを適用した場合です。(正常動作していませんが)
これに加えて、判定条件②を満たしたコードを完成させたいです。

'####セル範囲選択コードは省略"
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
With re
.Global = True
.Pattern = "^$C$[0-9]{1,7}$|^$C$([C]|[0-9]|[$]|[:,])[0-9]{1,7}$"
アドバイスを頂けると幸いです。

コメントを投稿

0 コメント