実行時エラー：438　ユーザーフォームを引数に指定

VBAで関数を作成しています。
複数のUserFormに対して同じ処理をしたいので
引数にUserFormを指定したいのですが下記のエラーが発生しています。

実行時エラー：438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。

引数指定は以下のコードの通りしています。
どのように変更すればよいでしょうか。ご教示お願い致します。

Public Function FORM_OPEN(UF1 As msForms.UserForm) As Boolean
UF1.Show vbModeless

関数の呼び出しコードは以下の通りです

Call FORM_OPEN(UserForm5)

行動規範の内容に同意します

回答1件

ベストアンサー

下記の修正でエラーは出なくなります。

diff
1-Public Function FORM_OPEN(UF1 As msForms.UserForm, ) As Boolean
2+Public Function FORM_OPEN(UF1 As Object) As Boolean
3UF1.Show vbModeless

,はタイプミスとしても、
msForms.UserForm だとエラーになるのはなんでかちょっと分かりません。

投稿2021/04/13 05:11

総合スコア34075

2021/04/13 05:14

ご回答ありがとうございます。解決しました！！

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

関連した質問