エクセルＶＢＡ

質問

ユーザーフォームがあり、コマンドボタンが準備されています
そのコマンドボタンをクリックした場合、処理1～処理3を実行するようにしています

Sub CommandButton1_Click()
CommandButton1処理1
CommandButton1処理2
CommandButton1処理3
End Sub

Private Sub CommandButton1処理1()
・・・
End Sub

Private Sub CommandButton1処理2()
・・・
End Sub

Private Sub CommandButton1処理3()
・・・
End Sub

処理1→処理2→処理3という流れが進むかと思います
処理1の中にＩｆ～End ifがあり、Ifに合致する場合はメッセージボックスが表示するようになっています
処理3の中に、「ユーザーフォームを閉じる」記載がされています

処理1のIfに合致する場合、メッセージボックスを表示させユーザーフォームを閉じることなく終了したいです
つまりIfに合致した場合、その後の処理2、処理3をさせず処理1で終了させればいいのかと思ったのですが、そのようなことはできるのでしょうか？

処理1でIfに合致する場合、Exit Subとすると処理1は終了するかもしれませんが、その後処理2、処理3に進んでしまうので困っています

よろしくお願いします

回答No.2

keithin · ベストアンサー

Sub CommandButton1_Click()
　dim retval as boolean
　CommandButton1処理1 retval
　if retval then exit sub
　CommandButton1処理2
　CommandButton1処理3
End Sub

Private Sub CommandButton1処理1(byref retval as boolean)
　if 条件 then
　　msgbox "success"
　　retval = true
　　exit sub
　end if
End Sub

みたいな。

お礼

返信ありがとうございます

無事成功しました
助かりました

回答No.1

monamucho

下記のようにすることで、処理1のIfに合致する場合、メッセージボックスを表示させユーザーフォームを閉じることなく処理を抜けることができます。

Sub CommandButton1_Click()
If CommandButton1処理1 > 0 Then Exit Sub
CommandButton1処理2
CommandButton1処理3
End Sub

Private Function CommandButton1処理1() As Integer
Dim intRet As Integer

intRet = 0
If [条件] Then
intRet = MsgBox("メッセージ", vbOkOnly)
End If

CommandButton1処理1 = intRet

End Sub

お礼

早速の回答ありがとうございます

CommandButton1処理1 には複数のif～end ifがあったからか、なぜかユーザーフォームが閉じてしまいます・・・
引き続き格闘してみます