【VBA】動的に生成したコントロールにイベントを追加したいです。

Question

お世話になります。
VBAを始めて3週間ほどの者です。

ユーザーフォームに動的にコマンドボタンを設置し、
さらにクリックイベントを付与したいと思っております。

ユーザーフォームのInitializeイベントの中で呼び出している「checkClmn」という
関数内で下記のコードを記述しております。

Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False

    'ユーザーフォームのCaptionにシート名(テーブル名)を入れる
    ufrmValueInput.Caption = ActiveSheet.Name    

    'セルB3(固定)からカラム名の取得を開始する
    Call checkClmn    
    
    Application.ScreenUpdating = True
End Sub

当初はオリジナルのクラスを作成せずに、
動的作成コントロールにイベントを作成する
↑こちらのサイトを参考にさせていただき、WithEventsキーワードを使って、

Dim WithEvents btn_rst As MSForms.CommandButton
Set btn_rst = Controls.Add("Forms.CommandButton.1", "btn_rst" & now_cell_ad)

と記述したのですが、
コードを記述する黒い画面のすぐ上にありますオブジェクトボックスの中に、
「btn_rst 」(コマンドボタンのオブジェクト)が現れず、
上記の方法を辞めて、クラスを作成しました。

クラスモジュール(クラス名「clsOpbtnRst」)に

Private WithEvents btnRst As MSForms.CommandButton
Private usr_frm As MSForms.UserForm

'対応するコントロールを設定する
Public Sub setEvent(new_ctrl As MSForms.CommandButton) 
  Set btnRst = new_ctrl 
End Sub

Private Sub btnRst_Click()
    MsgBox "OK"
End Sub

そして、ユーザーフォームのUserForm_Initialize()の関数checkClmn内(先程と同じ場所)に、

Dim WithEvents btn_rst As MSForms.CommandButton
Set btn_rst = Controls.Add("Forms.CommandButton.1", "btn_rst" & now_cell_ad)

Dim cls_oprst_obj As clsOpbtnRst
Set cls_oprst_obj = New clsOpbtnRst
cls_oprst_obj.setEvent btn_rst

と記述しました。
すると、コマンドボタンは作成されるのですが、
押しても何も反応せず、メッセージボックスは表示されません。エラーも発生しませんでした。

デバックのF8で一つずつ進めると、きちんとクラスを認識して処理をしてくれているようですが(↓)

コマンドボタンをクリックしても、何も反応せずエラーも出ず、
クラス内のイベントプロシージャに黄色い矢印が表示されません。(↓)

長文すみません！
エラーが発生しないため、途方に暮れております。
どなたか、イベントプロシージャを実行できる方法をご教示いただけますと大変ありがたいです。
どうかよろしくお願い致します。

Answer 1

フォームのinitializeに書いている

Dim cls_oprst_obj As clsOpbtnRst

をグローバル(プロシージャの外)に置いてください

Comments

[hikonyansuke]

回答を誠にありがとうございます。
あっさり動いてしまいました。少々お恥ずかしいですが本当に助かりました。

これは、オリジナルクラスのインスタンスである「cls_oprst_obj 」をモジュールレベルで、宣言すると、
再度、プロシージャ外で呼び出せるということだと思うのですが、
イベント発生時にまたこのインスタンスを必要とするということでしょうか？
よろしければ、動いた理由を簡単に教えていただけいますとありがたいです。

[aaabrt]

プロシージャ外で宣言すると、フォームが起動している間インスタンスが維持されるので、正常にイベントが処理されます。

元のコードだとプロシージャ内でのみインスタンスが維持される書き方(ローカル変数)になっているのでプロシージャを抜けた後はイベントの処理をしてくれるインスタンスが無くなってしまいます。
(スマホから入力しているので細かく書けなくて申し訳ないです)

結論から言えば質問者さんの認識の通りですね

[hikonyansuke]

なるほど、頭の中がすっきりしました！
大変助かりました。
本当にありがとうございました！

[hikonyansuke]

ちなみにおかげさまで、
質問の最初で申し上げた「クラスを使わない方法」も、
ご回答と同じように、プロシージャ外で宣言しましたら上手くいきました！
どちらも変数の宣言場所が問題だったのですね。
本当にありがとうございました！