エクセル VBA MsgBox

質問

１）下記の記述だと
コンボが空白ならエラー表示が出て
Okをクリックすると
”記録しますか？”
となります！
そこをエラー表示されたら
UserFormに戻り
空白が無くなったら
”記録しますか？”
というMegBoxにしたいのですが
どう変化すれば良いのでしょうか？
教えて下さい！

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 10
If Controls("ComboBox" & i).Text = "" Then
MsgBox "選択されていません確認して下さい！", vbInformation, "良く見て下さい！"
Exit For
End If
Next
If MsgBox("記録しますか？", vbOKCancel) = vbOK Then
With UesrForm
From.TextBox1 = Val(UesrFrom.ComboBox1) + _
Val(UesrFrom.ComboBox2) + Val(UesrFrom.ComboBox3) + _
Val(UesrFrom.ComboBox4) + Val(UesrFrom.ComboBox5)

From.TextBox2 = Val(UesrFrom.ComboBox6) + _
Val(UesrFrom.ComboBox7) + Val(UesrFrom.ComboBox8) + _
Val(UesrFrom.ComboBox9) + Val(UesrFrom.ComboBox10)
End With

MsgBox " 記録します！"
Unload Me
Else
MsgBox " キャンセル!！"
End If
End Sub

回答No.1

n-jun · ベストアンサー

コンボボックスに空白があったら先に進まないので良ければ、
MsgBox "選択されていません確認して下さい！", vbInformation, "良く見て下さい！"
Exit Sub '←変更
End If
で抜けちゃえばいいのでは？

お礼

ありがとうございました！
出来ました！
Subでぬけれるんですね
ありがとうございました。