VBA Excel ユーザーフォームを変数に格納して処理しようとすると

Question

前提・実現したいこと

Excelで、以下の3つのユーザーフォームを作成しました。
F_Customer
F_Item
F_Staff

標準モジュールに、ユーザーフォームを開く以下のようなプロシージャを
作成しました。

Sub 顧客フォーム()
    Dim fm as Object
    Set fm = F_Customer
    ’（コントロールの表示などの処理をここに記述）
    fm.Show
End Sub

Sub 商品フォーム()
    Dim fm as Object
    Set fm = F_Item
    ’（コントロールの表示などの処理をここに記述）
    fm.Show
End Sub

Sub 担当者フォーム()
    Dim fm as Object
    Set fm = F_Staff
    ’（コントロールの表示などの処理をここに記述）
    fm.Show
End Sub

ワークシートにコマンドボタンを設置し、上記の各プロシージャをマクロとして登録しました。

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

上記プロシージャのうち、「顧客フォーム」「商品フォーム」は想定通りに動作したのですが、
「担当者フォーム」を実行すると、下記エラーが表示されました。

実行時エラー '13':
型が一致しません。

試したこと

上記「担当者フォーム」プロシージャで、変数 fm を フォーム名 F_Staff に置き換えても、
同様のエラーが表示されました。

なぜ他のフォームと異なる動作になりエラーが発生するのか見当がつきません。
原因や解決策など、お分かりになる方がいらっしゃいましたら是非ともアドバイスをお願いしたく、
書き込ませていただきます。
よろしくお願いいたします。

Comments

[hex309]

実行時エラーが出ているのは、以下の部分で間違いないでしょうか？

Set fm = F_Staff

以下の部分が実際にはどのようになっているかが気になります。
’（コントロールの表示などの処理をここに記述）

ステップ実行で試してみてはいかがでしょうか。

[Chim]

実行時エラーが出ているのは、

Set fm = F_Staff

の部分で間違いありません。

’（コントロールの表示などの処理をここに記述）
の部分は、例えば

fm!コントロール名 = ""

のようにフォーム上の各コントロールを初期化する記述をしています。
書き漏らしていましたが、原因解明のためにコントロールを処理する記述はいったんコメントアウトしました。
それでもやはり上記の行でエラーが発生してしまいました。

[hex309]

念の為ですが、F_StaffのInitializeイベントとかはどうでしょうか？
Set fm = F_Staffの処理で、確かInitializeイベントは走るはずですので。
ちなみに、手動でF_Staffを開くとどうですか？

[Chim]

すみません情報が不足していました。

F_Staff にInitializeイベントが記述していました。
確かに、他の2つのフォームではInitializeイベントは記述していませんでした。これがカギのようですね！
今、Initializeイベントを一旦コメントアウトしたところ、先ほどの箇所でのエラーは発生しませんでした。

[hex309]

もし、未解決であれば、Initializeイベントの内容を質問に追記いただくと回答が付きやすいかと思います。

[Chim]

「なぜ F_Staff フォームにだけエラーが発生するのか」がある程度わかりましたので、いったんこちらの質問はクローズさせて頂きます。Initializeイベントの内容を確認して、不明な点がありましたら改めて質問します。

ありがとうございました！

Answer 1

Initializeイベントに原因があったようですね。

VBEの「ツール」→「オプション」で「オプション」でオプションダイアログを表示し、「全般」タブの「エラートラップ」を「クラスモジュールで中断」にすると、今回のようなケースで、エラー時に止まる箇所が呼び出し元ではなく、呼び出された先（今回であれば、Initializeイベント内）になるので便利です。

Answer 2

F_Staff には Initializeイベントが記述されていました。
（他の2つのフォームにはInitializeイベントは記述していません）
Initializeイベントを一旦コメントアウトしたところ、エラーは発生しませんでした。

「なぜ他の2つのフォームと同じ記述をしているのに、F_Staff でのみエラーが発生するのか」の理由は、Initializeイベントに記述した内容によるようです。
ここまで判明しましたので、あとは自力で解決したいと思います。

ありがとうございました！