Excel VBA ユーザーフォーム 複数のユーザーフォームの閉じ方。

MsgBox "　全問 終わったよ！ お疲れ様でした　(* ´?`)ﾉ♪"、の後に複数(14個)のユーザーフォームを自動で閉じたいです。初心者ですが、どうかご教示お願い致します。

Private Sub CommandButton1_Click()

Dim UserFrom As Integer
Dim UserFrom14

If ComboBox1.Value = "に" And ComboBox2.Value = "られる" Then
MsgBox "正解！(*´?`*ﾉﾉﾞﾊﾟﾁﾊﾟﾁ"
Else
MsgBox "ちがうよ。"
End If

If UserFrom14 = 0 Then
MsgBox "　全問 終わったよ！ お疲れ様でした　(* ´?`)ﾉ♪"
Unload UserForm1
End If

End Sub

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/04/27 12:07

こんにちは。

直接の回答ではありませんが、
ユーザーフォームを14個も開いている理由は何かあるのでしょうか？
通常は１つのユーザーフォームで処理が終わったら、そのユーザーフォーム
を閉じて、必要に応じて、次のユーザーフォームを開くというのが一般的に
良いかと思います。
中には、ユーザーフォーム同士で処理する事もあるかも知れませんが、
その様な処理はかなり少数だと思いましたので。
処理フローを見直した方が良いかと思いました。

一応、検索した記事を載せておきます。
●開いているすべてのユーザーフォームを閉じる方法
https://officedic.com/excel-vba-userforms-unload/

この回答へのお礼

あっ。おっしゃる通りです。ご回答ありがとうございました！

お礼日時：2022/04/27 12:22

No.1 回答者： Qchan1962 回答日時： 2022/04/27 12:06

こんにちは

すべてのユーザーフォームなら
If UserFrom14 = 0 Then
MsgBox "　全問 終わったよ！ お疲れ様でした　(* ´?`)ﾉ♪"

Dim uFrm As Object
For Each uFrm In UserForms
Unload uFrm
Next

End If

この回答へのお礼

ご回答ありがとうございました。
Unload uFrmにデバッグが出るのですが、頑張ります。
ありがとうございました。

お礼日時：2022/04/27 12:32