指定の動作中ユーザーフォーム終了方法

質問

• 指定の動作中ユーザーフォームを終了する方法について、詳しく説明します。
• UserFormAと連携してグラフを作成するUserFormの動作中に、UserFormを終了する方法について解説します。
• UserFormBやUserFormCの動作を継続しつつ、UserFormを終了させる方法についてご説明します。

回答No.3

cj_mover

＃１-２、ｃｊです。補足欄へのレスです。

＃１
大事なのは
　　読込む　→　表示する　→　非表示にする
　　　　　　　→　再表示する　→　非表示にする
　　　　　　　→　再表示する　→　非表示にする
　　　　　　　→　再表示する　→　非表示にする
　　　　　　　→　再表示する　→　非表示にする
　　　　　↓
　　二度と使わないタイミングが来たら→インスタンスを取り消す
という順番だったり、
Load→.Show→.Hide→Unload
という順番を（プログラムの開発者として）正しく実践するか、
または、省略するなら、どこで何を省略しているのか把握しておく、ということです。
「ブックを開いたら閉じる」のと同じように
「表示したら非表示にする」一連の（一対の）処理だってことなのです。
非表示にされたユーザーフォームは目に見えませんけれども、
クラス丸ごと（イベントもプロパティもメソッドも関数もStaticな変数も）失われることなく
そのまま維持されている、ということです。
普通に閉じるボタンで閉じてしまえば、すべて失われる訳ですから大きく違います。

＃２

補足欄での説明に副い
　　BaseForm
　　　└CommandButton1
　　BasicForm
　　　├CommandButton1
　　　└ComboBox1
　　ActionForm
　　　├CommandButton1
　　　└ComboBox1
　　（Sheet1　：　"TEST"）
というテスト用のブックを作成しました。
以下の記述で動作の確認は取れています。
> Call　ActionForm.Commandbutton1_Click
この処理の内容が原因でうまくいってない可能性も少しありますけれど、
見ないと何とも言えません。
> Commandbutton1を押して、動作中であったとしても
> 終了できるように、「End」を使っていました。
> Unload についても試してみましたが、
End を使う場所ではありませんし、Unloadではなく.Hideするべきかと、、、。
> CommandButton1を押して動作中のため、
> 見た目上消えては居ますがCommandButton1の動作は継続しておりました。
意味する処が判然としませんが、
ActionFormを.Hideすれば、BasicFormのCommandButton1_Clickを抜けます。
これで解決している、というのが今の処、一番可能性の高い解釈です。
或いは、BasicFormのCommandButton1_Clickから呼び出されるループ処理を抜けられない、
ってことだったり、なんて無さそうなことも考えてみましたが、
今解っている限りでは、以下に示す方法（＃１-２の主旨そのまま）
これを試して貰ってから、ですね。
テスト用のブックを作成して、この下に書いてあるままの記述を動かしてみて、
その上で未解決なら実行結果とともに詳細な補足をください。
そうしてもらわないと問題の切り分けがこちらでも出来ません。
CommandButton操作に関する処理内容はこちらで適当に仮設したものです。

' ' 〓〓〓〓〓 BaseForm モジュール 〓〓〓〓〓 8671316-3
Private Sub CommandButton1_Click()
　　BasicForm.Show
End Sub
' ' 〓〓〓〓〓 BasicForm モジュール 〓〓〓〓〓 8671316-3
Private Sub CommandButton1_Click()
　　Load ActionForm
　　With ActionForm
　　　　.ComboBox1.List = ComboBox1.List
　　　　.ComboBox1.Value = ComboBox1.Value
　　　　Call .CommandButton1_Click
　　　　.Show
　　End With
End Sub
' ' 〓〓〓〓〓 ActionForm モジュール 〓〓〓〓〓 8671316-3
Sub CommandButton1_Click()　　'　　！　Not Private　！
　　Dim sBuf As String
　　With Me.ComboBox1
　　　　sBuf = .List(0) '.Value
　　　　.List(0) = .List(.ListIndex)
　　　　.List(.ListIndex) = sBuf
　　　　.ListIndex = 0
　　End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　　If CloseMode = vbFormControlMenu Then '終了ボタンを押されていた場合は
　　　　If FP_GetResult = True Then 'はい　を押した場合の判断
　　　　　　With ThisWorkbook.Worksheets("TEST")
　　　　　　　　.Select
　　　　　　End With
　　　　　　Cancel = True
　　　　　　Me.Hide　　'　　←後から表示したものから順番に
　　　　　　BasicForm.Hide　　'　　←そのまま表示しておきたいものは.Hideしない
　　　　　　BaseForm.Hide　　'　　←　　　　同上
　　　　　　Exit Sub　　'　　これ←特に必要ないとは思うのですが一応、、、、。
　　　　End If
　　End If
　　Application.ScreenUpdating = True　　'　　←この記述の意図は解りません。
End Sub
' キャンセルするかを確認する関数
Private Function FP_GetResult() As Boolean
　　If MsgBox("終了しますか？", vbInformation + vbYesNo) = vbYes Then
　　　　FP_GetResult = True
　　End If
End Function
' ' 〓〓〓〓〓 〓〓〓〓〓

> UserForm　という名称でユーザーフォームは作っていなく、
> 投稿用？に名前を変えさせていただきました。
こちらの指摘の仕方も悪かったのでしょうけれど、
私が問題にしているのは、寧ろ、
UserForm という名前のユーザーフォームがあるという設問で、
投稿されていたこと、の方なのです。
質問掲示板は質問者と回答者の為にだけ存在する訳ではないので、
何も知らない閲覧者が話を鵜呑みにしてトラブった処で自己責任、ではありますが、
トラブルの原因になり兼ねない書き方を敢えて選ぶこともない訳ですし、
出来るだけ、資料として役立つスレッドだったり回答だったり、
そういうものであって欲しい、ありたい、という私の願いも含めての話でした。
認識にズレがあるようなので仕方ないです、これ以上は言いません。
あなた自身がこのカテゴリーで回答をしている人でなかったなら、
幾度かスレッドでご一緒した方でなかったなら、何も書かずに素通りしていたとは思います。
失礼しました。

＃１-２補足欄へのレス、以上です。

お礼

回答・ご忠告ありがとうございます。

補足

テストプログラム、ありがとうございます。
試してみました。
ActionFormのCommandButton1_Clickの
ループから抜けられませんでした。

BaseForm →BasicForm →ActionForm（画面は切り替わらない）
この流れで試し、ActionFormで長いこと処理があるので
右上の×をクリックし終了させる。
そうすると、記載されていた
.hideが動くわけですが、
メモリ上では動作したままでした。
分かりやすいように、
ActionFormのCommandButton1_Clickが
終わったときに
Msgbox　"ActionFormのボタン動作は終了しました！"

と出るようにしましたが、
何度試しても「ActionFormのボタン動作は終了しました！」
と表示されました。
やはり、CommandButton1_Clickの動作を
途中で終了させるにはUserForm_QueryCloseで
End　を記入し、強制終了させるしかなさそうな気もします。

------------------------------

回答者の方々の回答しやすさ、初心者が見たときも同じものが作れるか…を考えたほうが良いということでしょうか？

資料として役立つスレッド、そのことについては
あまり考えておりませんでした。以後気をつけます。