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

質問

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

回答No.4

cj_mover · ベストアンサー

＃３で、ああ書いておけば具体的なソースコードやプロットが返ってくるかと期待していましたが、
どうも今回はコミュニケーション・エラーばかり目立っていて、うまくいきませんね。
出口が見つからなくなってしまいました。
限られた情報の中で私の推理力を試されているようにも感じていますけれど、
今一度だけお応えします。更に続けてレスを重ねることはしませんので悪しからず。

ところで、
> End　を記入し、強制終了させるしかなさそうな
どうしてもそういう結論に導きたいのでしたら、ご自由にどうぞ。
そもそも今時、何故End ステートメントに拘るのか解りませんが、
生憎、End ステートメントを使って解決に導くようなレスは私には書けませんので、
そういう意味で期待外れでしたらば、以下読まずに無視してください。
でも、End ステートメントを使うデメリットについても知っておいてください。
例えば、VBAProjectが終了（リセット）されるまで値を保持してくれるスタティックな変数
（Static、Private、Public、Friendなどのキーワードで定義する変数のこと）、
これを使えないのは、設計やコーディングの手法を大きく限定してしまうことになります。
他の部分で何を書くのにも手間を増やさなければなりませんから、
一般論として、その場凌ぎにはなっても、"自分さえ良ければいい"的な、負の遺産でしかありません。
また、これらスタティックな変数を使わないでも成立するプロジェクトって、
そう多くはないのではないでしょうか。
もっとも、ひとつのプロジェクトにひとつのマクロというような扱いで、
且つ外部のオブジェクトを一切扱わないならば、
（それとも全知全能なＶＢＡプログラマーが正しい使い方をするのならば）
"どうぞお使いください"ってことではあります。
あと、正しくプロシージャを抜ければ、正しく解放されるオブジェクト等でも
End ステートメントのおかげでTempフォルダに残骸を残し、
ゆくゆくはExcelアプリケーションの挙動にまで悪影響を及ぼような事例もあったと思います。
まぁ一時的に変更しておいたプロパティ（例：Application.Calculation = False）等を
End ステートメントだけの為に態々元に戻すのも面倒ですよね。
実の所、ひとつひとつの記述を正しく書き直すことができれば、
End ステートメントは使う必要がない、と断言してもいいのかなって思いますけれど。
逆にEnd ステートメントでなきゃうまく行かない、と感じてしまうということは、
間違いに目が行ってない気が付いていない、って時なんじゃないでしょうかね？
私の経験として、「非同期の外部オブジェクトを複数ループさせて、
リターンが返ったタイミングのイベントを使っていた時」、
「中止ボタンですべて中止するように書いていたつもりが
外部オブジェクトのイベントを止められていなかった」ことに気が付いた時、
私も一瞬「End ステートメントを使えれば楽なのに」と思ったことがあります。
実際、デバッグが済むまでの１～２時間の間、End ステートメントを使いました。
私が書いたのはその一度だけです。
End ステートメントを使ったものを公開や配布したことはありませんし今後も絶対しません。

本題ですが、、
１．
ActionFormのCommandButton1_Clickプロシージャには、
時間の掛かるループ処理があって、
ユーザーがActionFormの閉じるボタンを押した時に、MsgBoxから選択して
ActionFormのCommandButton1_Clickプロシージャにある時間の掛かるループ処理を
中断し、処理全体を中止する。
２．
続けて、
ActionFormとBasicFormを非表示にして、
BaseFormだけが表示された状態にしたい。
ということだったのでしょうか？

もしも、
ActionFormのCommandButton1_Clickプロシージャ内でのループ処理を中断する
ということだったらば、何故こちらがループという言葉を＃３で持ち出すまで、
それについての説明が一切無かったのか、その理由も数通り想像していましたが、
どれも希薄に思えたので、これは無さそう、という推理でお応えしたのが＃３でした。

さて、＃３の補足を受けて
何が原因か１０通りくらいまでは想定を拡げてみました、が、キリがないのでやめました。
今開示されている情報だけで篩に掛けても、原因となり得る数百通りの原因がありそうです。

恐らくは、
処理中断用のエスケープフラグを（PrivateやPublicで）設けて、
ActionFormのUserForm_QueryCloseのタイミングでフラグを立て、
ActionFormのCommandButton1_Clickプロシージャ内でのループ内に
　　If エスケープフラグ = True Then Exit For
とか、Exit Do、みたいな、ごく普通の中断処理ぐらいまでは書けているのでしょう。
でも、もしも、これも出来ていない（知らない、解らない）ということなら、第一の原因は、これです。
その場合はこの質問の当初の主旨とは違いが大き過ぎるので、それは別件で質問してください。

次に考えなければいけないことは、
ActionFormのCommandButton1_Clickプロシージャを呼び出す方法です。
一例として、
　　Call　ActionForm.CommandButton1_Click
に替えて、
　　Application.OnTime Now, "ProcGoRoundActionFormCommandButton1_Click"
と記し、
別途、標準モジュールに、
Private Sub ProcGoRoundActionFormCommandButton1_Click()
On Error Resume Next
　　ActionForm.CommandButton1_Click
On Error GoTo 0
End Sub
と書いておきます。
こうすることで、
抜けて（終って）いなければいけない、プロシージャを事前に抜けておくことができます。
ユーザーフォームモジュールから他のユーザーフォームモジュール内のプロシージャをコールする記述
が、もしも他にも有る場合は、同様に手当てします。
そこまでする必要があるか解りませんが、対症療法的にお腹が痛い時に保険室で飲ませてくれた市販（汎用）薬的なものです。
この方法が適切か（必要か？十分か？）どうかは、やはり具体的に見てみないと判断出来ませんが、
ActionFormとBasicFormを非表示にする上では、何れにしても呼び出し方を変える必要があるでしょう。

その他、
ActionFormのCommandButton1_Clickプロシージャ内での処理について、
オブジェクトの扱い方をもう一度点検しておいた方がいいかも知れません。
もしかしたらユーザーフォームをモードレス表示にするべきだった、なんて結論（オチ）も
アルかも知れませんけれど、あれこれ想像するのにも限界はあります。
経験的な直感ですが、今回のレスで解決に結びつく確率は５％くらいかな、って思います。
その他多数の１％に満たない可能性、のどれかが正解、ってことなのでしょうから、
うまく解決に導けなくてスミマセンでした。以上で退席します。

お礼

何度も回答頂き、本当にありがとうございます。

説明不足により、色々ご迷惑をお掛けして申し訳ありません。

ActionFormのCommandButton1_Clickで行うことが
多すぎて、そのループから抜けれないような状況でもありました。
フラグをたて、If文で抜けることも考えていたのですが
Commandbuttonをクリックしたときの動作は
色んなプロシージャを利用するため、一度に抜けることが出来ず、簡単に抜ける方法は無いか？と思い
質問させて頂きました。

If文を立てる場合、利用するループ、プロシージャなど
様々な部分にExit subをおかなければならないかと思います。

ActionForm
BasicForm
BaseForm
それぞれのフォームを終わらせるために、
If文を書いてしまうと100個以上記載しないといけないため
他にいい方法は無いかと探していました。

また、End ステートメントはあまり使わないほうがいいのですね。
ユーザーフォームを途中で終了したい場合など
楽だったため、良く使っておりました…。

色々と、文章がごちゃごちゃしていて申し訳ないです。

別に質問させていただこうと思います。
懇切丁寧に教えてくださり、ありがとうございました！