Excel VBA - ユーザーフォームの別のモジュールからループを終了する

Question

親愛なるStackoverflowユーザーの皆様、

小規模なプロジェクトでは、いくつかのモジュールとユーザーフォームがあります。 モジュールでは、ユーザーフォームを呼び出すループ文があります。 ユーザーフォームは、ユーザーに4つの選択肢を提供します。

オプションを選択すると、パブリック変数（文字列）が定義されます。 ループは列内の文字列を埋めるでしょう。 しかし、すべての応答が出る前にループが停止することはありません。

終了ボタンを作成したいと思います。なぜなら、リストが大きければ、これはかなり面倒ですからです。

私はループをキャンセルするために（ユーザーフォームで）クリックできるコマンドボタン "exit"を作成することを考えました。

しかし、このボタンはユーザーフォームになっているので、ループを止めることはなく、ただちに現在のユーザーをシャットダウンしますが、その次は表示されます。

ユーザフォームからループを止める最善の方法をご存知ですか？

私はGotoのようなテクニックを知っていますが、エラー処理にのみ使用し、Gotoをユーザーフォームのサブフォームに配置する必要があり、別のモジュールのトータルループをキャンセルしたいので機能しません。

私はこれにかなり拘束されています。皆さんが私を助けてくれることを願っています。 私はそれが何か簡単だろうと思う。

よろしく、 Dubblej

Answer 1

私はグローバル変数だけでなく、go toステートメントを使用しないようお勧めします。あなたのフォームでは、フォームを表示する機能を追加し、続行したいかどうかをユーザーの選択に戻します。このような何か：

Option Explicit 

Private continue As Boolean 

Public Function ShowDialog() As Boolean 
    Me.Show 1 
    ShowDialog = continue 
End Function 

Private Sub btnCancel_Click() 
    continue = False 
    Me.Hide 
End Sub 

Private Sub btnOK_Click() 
    continue = True 
    Me.Hide 
End Sub 

そして、あなたのモジュールコールShowDialog機能で、その戻り値は、ループを終了falseの場合：

Option Explicit 

Public Sub Sub1() 
    Dim form As New UserForm1 

    Do 
     If Not form.ShowDialog Then 
      Exit Do 
     End If 
    Loop 
End Sub