Loopの強制終了マクロ Excel VBA

Question

＜質問＞Loopなどを強制終了させてユーザーフォームを閉じるコードはないでしょうか？

＜背景＞
ユーザーフォーム内にあるテキストボックスに数字が入力されない場合、入力されるまでユーザーフォームを表示するというマクロを作りました。
  Do While TextBox2.Value = ""
    Unload UserForm1
            MsgBox "数字を入力してください"
    UserForm1.Show
  Loop
しかし、これではテキストボックスに何も入力していない状態だとloopが実行され、マクロを閉じることができません。
何かしらテキストボックスに入力して終了させる方法以外になにか改善方法はあるでしょうか？
因みに、「終了」のコマンドボタンには
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub
のマクロを組んであります。
分かる方がいましたら、教えていただきたいです。

Qchan1962 · Accepted Answer

#5です
＞回答いただいたIfですと、TextBoxが空欄の場合、そのままコードはすすんでしまうので、エラーとなり、マクロが止まってしまいます。

Exit Subではだめなの？

Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then MsgBox "数字を入力してください"
TextBox2.SetFocus
Exit Sub
'計算処理
End Sub

よく使うのは、複数の入力チェックを行って不備がある場合、
内容を案内して処理をやめるかたちかと。。

実行の際に入力チェックをしたいと言う事ではないのかな？

他の方法として
＃７さんが回答しているように入力制限を設定したり
もしくは、下記のような感じで入力時、入力チェックをすることも

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2.Value = "" Or IsNumeric(TextBox2.Value) = False Then
        MsgBox "数字を入力してください"
        TextBox2.Value = ""
    End If
End Sub

Qchan1962 · Answer

度々、、申し訳ないです。
コピー書き足し確認せず、、すみません。
If TextBox2.Value = "" Then 
MsgBox "数字を入力してください"
TextBox2.SetFocus
Exit Sub
End If
です。

Zincer · Answer

このような仕様の場合、
Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
や
Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,ByVal Shift As Integer)
を使用して「入力されるまで表示」より、「（数字等適切な値が）入力されれば終了」とするのが良いと思います。

Qchan1962 · Answer

＃５です
or ・・・
and ・・・　ですね。。

Qchan1962 · Answer

こんにちは
＞何かしらテキストボックスに入力して終了させる方法以外になにか改善方法はあるでしょうか？

Loopさせる意味合いが良くわからないのですが、
Unloadして.Show、、他の内容も消えてしまう気がしますが、、
単純にIFではだめなのでしょうか？
疑問が残りますが、こんな感じにしては、仕様に合いませんか？

Sub start()
UserForm1.Show vbModeless
End Sub

Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then MsgBox "数字を入力してください"
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

ちなみにvbModelessなので、RefEditを使用している場合、
RefEditダメ（バグ）だったと記憶しています。

Loopを使用する場合であれば、ループする条件を増やし、
TextBox2.Value = ""　or ・・・
・・・部分を考えてみてはいかがでしょう。。

ShowMeHow · Answer

Dim stopflag As Boolean
最初（subの外側）に書く必要があります。
中に書いてはいけません。

subのなか、ループに入る前に
stopflag = false

として、あとは、ループの中に

doevents
if stopflag then exit do
を加え、

Private Sub CommandButton3_Click()
stopflag = True
End Sub

とすればよいです。

（ただ、フォームを閉じたいなら、loopの中にDoEvents加えるだけでも、commandbutton2押したら、抜けられそうな気もしますが。）

ShowMeHow · Answer

stopflagはフォームレベルでの変数となっていますか？

ShowMeHow · Answer

Dim stopflag As Boolean

private sub hoge
stopflag = false
do
     doevents
     if stopflag then exit do
loop
end sub

Private Sub Command1_Click()
    stopflag = True
End Sub

などとすればコマンドボタン1を押すことによって、ループから抜けることができます。
doeventsを入れるのがみそですが、いろいろありますので、興味あったらじっくり調べてみてください。

くんこば · Answer

QueryCloseイベント使え。

https://www.239-programing.com/excel-vba/ufm/ufm014.html

Loopの強制終了 マクロ Excel VBA

#5です

度々、、申し訳ないです。

このような仕様の場合、

＃５です

こんにちは

Dim stopflag As Boolean

stopflagはフォームレベルでの変数となっていますか？

Dim stopflag As Boolean

QueryCloseイベント使え。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Loopの強制終了マクロ Excel VBA