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

質問

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

回答No.1

cj_mover

（１／全２葉）

こんにちは。

まずは、基本的事項のお浚いから、、、。
「UserFormの表示/非表示」について、
　　UserForm1.Show
と書いた場合、
既に読込み済の（インスタンスが確立されている）ユーザーフォームだった場合は、
文字通り、ユーザーフォームを表示するだけで、書いたこと、と、実行されること、が一致します。
が、読込みが済んでいない（インスタンスが確立されていない）ユーザーフォームだった場合は、
まず、ユーザーフォームを読み込んで、続けて、ユーザーフォームを表示するようになっていて、
　　Load UserForm1
　　UserForm1.Show
と、本来的には２行で書くべき２つの処理を１行に省略している、という風に考えてください。
ユーザーフォームの場合は、＜ブックやシート等とは大きく違い＞、
読込むまではインスタンス（実態）を持っていない＜ただの設計図である＞ことに留意してください。
イベントに関連付けて全体の流れを説明すると、
　　Load UserForm1　＝　読込む　→　UserForm_Initialize
　　UserForm1.Show　＝　表示する　→　UserForm_Activate
　　UserForm1.Hide　＝　非表示にする　→　該当なし
　　Unload UserForm1　＝　インスタンスを消す　→　UserForm_Terminate
別のユーザーフォームが、アクティベートされたりモーダル表示になった場合、
　　anotheRuseRforM.Show　＝　自分以外のユーザーフォームを前面表示すると　→　UserForm_Deactivate
　　　　　　　　　　　　　　　表示されたユーザーフォーム側で　→　UserForm_Activate

これらの事項への理解を一層深めていければ、今回の課題は自ずと解決できるのではないでしょうか。

実践的な話として、
最初に読込む時の処理＝Load(UserForm_Initialize)時点での処理、というのは、
大抵の場合、すべての処理が済んで、ブックを閉じるまでは、
そのままにしておいて構わない内容である筈ですから、
通常はUnload（UserForm_Terminate）せずに
（可変のパラメータに連動するにはUserForm_Activate等各種イベントで処理可能）
用が無い時は、一旦.Hideで非表示にしておいて、
つまり、読込まれた状態を保持しておいて、
また使う時に.Show（UserForm_Activate）再表示、
非表示→再表示→非表示→再表示→非表示→再表示...を繰り返し、
いよいよ使うことがない、というタイミング（通常はWorkbookを閉じる時）が来たら
Unload（UserForm_Terminate）するか、
プロジェクトの終了（リセット）を待って、勝手にインスタンスが消えるのに任せるか、
というように運用します。
なので、ユーザー操作で勝手に
＜Unload（UserForm_Terminate）即ちユーザーフォームのインスタンス（実態）を消されてしまう＞
ことを避ける意味で、
　　Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　　　　If CloseMode = vbFormControlMenu Then
　　　　　　Cancel = True
　　　　　　Me.Hide
　　　　End If
　　End Sub
のような仕組みが用意されていることで、開発者の意図の沿った自由な設計が可能になっています。

End ステートメント、って、ユーザーフォームや、VBAProjectを終了（リセット）させる意味ですから、
というか、よっぽどのことでもない限り使うものではありません。
私は全く使わないです。
＃少なくとも近現代のＶＢＡでは、必要なものではない筈です。

＃４つのユーザーフォーム、といっても、モーダル表示でお使いのようですから、
＃常にひとつずつを排他的に使っているのだとすると、４つというのは少し多いような気もしますが、さておき。
　　UserForm.Show
　　UserFormA.Show
　　UserFormB.Show
　　UserFormC.Show
という記述があるなら、それらと対をなすように、
　　UserForm.Hide
　　UserFormA.Hide
　　UserFormB.Hide
　　UserFormC.Hide
という記述をを適宜用いるように考えてみて下さい。

> If UserForm.Visible = False Then
> UserForm.Show
> End If

見た目上、正しい結果を得られているのでしょうけれど、これは、ちょっと拙いです。
UserFormが既に読込まれている場合は問題ないのですが、
読込みが済んでいない（インスタンスが確立されていない）場合は、
UserForm.Visibleを取得するタイミングで
Load(UserForm_Initialize)することになってしまいます。
UserFormが既に読込まれていることが明らかな場合にしか本来はあってはならない記述です。
（.Hideされているかどうか確認する為の.Visibleプロパティです。）
処理の内容によっては問題が顕在化しないことも多いと思いますが、
期待しないタイミングで勝手に読込み処理されてしまう、ということであれば、
これは一種のバグとも言えます。
Load(UserForm_Initialize)と.Show（UserForm_Activate）の違いを理解し正しい使い分けが出来、
UserForm_Initializeイベント内でUserForm自身（または配下のコントロール）以外のオブジェクト操作は一切しないとか、
現存の記述が最終版で絶対に誰も書き換えることがないとか、条件付きで、
「まぁ差し当たり望んだ結果が得られるのだからオッケーにしよう」という割り切りの元で使うのなら構いません。
＃"オッケー"という方が以外に多いので、説得力ないかも知れません？が。

> 上記で、UserFormが表示されているか確認はできますが、
> Endの前に入れようと、後に入れようと
> UserForm.showが実行されることはありません。
> だからといって、Exit　Subを使うと
> UserFormB,UserFormCの動作を継続して行ってしまいます。

　　UserForm.Show
　　End
の順に処理した場合は、UserForm.Showを実行しますが、
直後に、VBAProjectを終了（リセット）させていますから、
＜Unload（UserForm_Terminate）即ちユーザーフォームのインスタンス（実態）を消す＞
ように指示しているということです。
　　End
　　UserForm.Show
の順に処理しようとした場合は、
End ステートメントによってVBAProjectを終了（リセット）させたからには、
それ以降の記述（UserForm.Show）が実行されることはない、
どころか、UserFormクラス自体が解放されてしまっています。

ＶＢＡでの処理中に現在表示されているユーザーフォームの数、の変動、をトレースすることは、
　　MsgBox DoEvents()
などの方法で可能ですし、（※ユーザーフォーム以外にもカウントするオブジェクトがあるようですから相対値になります）
読込み済の（インスタンスを持つ）ユーザーフォームの数は、
　　MsgBox UserForms.Count
とか、数の把握だけでも意図したことを実現できるようにも思いますが、
ユーザーフォームのインスタンスを勝手に作成することなく、特定のユーザーフォームが読込まれているかを調べるには、
　　Function FnUserFormIsLoaded(ByVal sUfName As String) As Boolean
　　Dim o As Object
　　　　For Each o In UserForms
　　　　　　If o.Name = sUfName Then
　　　　　　　　FnUserFormIsLoaded = True
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　End Function
などの方法も一応あります。

ただ、.Show→.Hide→.Show→.Hide ... のように運用して、
UserForm_QueryCloseの本来の使い方と組み合わせれば、
基本的には設計者の意図したように表示・非表示をハンドル出来ますから、
表示中かどうか（読込み済かどうか）調べることの必要性、というと、
私には必要とは思えません。
どうにもうまくいかないって場合でも、例えば一時的な演習とでも考えて、
各ユーザーフォームの読込み・表示をPublicな変数でフラグにしてみるというのはアリかも知れません。
そうやってデバッグを容易にしておいて慣れてくれば、
理解が深まり、やっぱり必要なかった、ってことになるように思いますので。

（次の投稿へ続く）

お礼

回答いただきありがとうございます。

補足

んー、むずかしいですね。
.Show　.Hide　の意味はなんとなく理解しておりました。

Loadは見えないけど、メモリ上では動作。
Unloadはメモリから削除し、画面表示も見えない。
Showはメモリ上もあるし、見える。
Hideはメモリ上あるけど、隠す。

こういった認識です。
中々むずかしくて混乱しております。