VBA 通常モジュールからUserFormのInitializeイベントへの値の持ち込み

Question

実現したいこと

VBAのグローバル変数を使わずにUserFormのInitializeイベントに値を持ち込みたい。

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

現在こちらの質問にてエクセルの挙動がおかしい原因(落ちる、IF判定できない)を探っております。
https://teratail.com/questions/el25h3tb1f9yhx

その中で、通常モジュールから
押されたボタンによって

新規登録時は1
上書き更新時は2

グローバル変数の値を格納してInitializeイベントの中で分岐させる処理を書いているのですが、グローバル変数の値の挙動がおかしい時があります。

該当のソースコード

'通常モジュール　編集ボタン押下時

intNum = 2     'グローバル変数

UserForm1.show

'UserForm1 Initializeイベント

If intNum = 1 Then
    '新規登録時のcmbBox等の読み込み処理
ElseIf intNum = 2 Then
    '編集時の値の格納処理
Else
    Msgbox "エラー"
End If

というコードがあったとき、普段は通常通りに動くのですが、なぜかElseに入る時があります。
その時にIfの開始行にブレイクポイントを置いて
intNumの値をイミディエイトウィンドウにて

?intNum = 2
True

を確認しているにも関わらずElseに入ります。

試したこと

・Initializeイベント内でグローバル変数を再代入
intNum = intNum
するもElseに入りました。

・ローカル変数に格納してIf分岐させると
intNum_Local = intNum
If intNum_Local = 1 Then 等に書き換え

その瞬間は治ったがElseに入る時がある
(結局何も変わらず　If判定できない)

グローバル変数は値が残り続けるとのことなので、今回のような挙動になった時、バグの原因になりかねないので残ってもらいたくありません。

このような挙動が起きている時グローバル変数に問題があるのか確かめるために、グローバル変数を使わずに通常モジュールから押したボタンを判定するための値を渡したいのですが渡す方法はありますか？

こちらについてお分かりになられる方いらっしゃいましたら、ご教授ください。
よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ユーザーフォームのInitializeイベントは使わずに、SubプロシージャをPublicで定義して、それの引数で渡して、自身を表示(Me.Show)すればいいでしょう。

Public Sub doModal(intNum As Integer)
    If intNum = 1 Then
        '新規登録時のcmbBox等の読み込み処理
    ElseIf intNum = 2 Then
        '編集時の値の格納処理
    Else
        MsgBox "エラー"
    End If
    
    Me.Show
End Sub

Sub 編集ボタン_Click()

    Call UserForm1.doModal(2)
    
End Sub

Comments

[ataru2222]

hatena19様
こんな書き方ができるのですね。
調べてもわからず、かなり困っておりました。

本当にありがとうございました。