Excel VBAでフォーカスを移動しない方法

質問

Excel VBA
リストのソースを設定してあるコンボボックスから次のコンボボックスに移動する際、入力にエラーあれば

フォーカスを移動しないようにするコードはどのようにすればいいのですか？

現在は

Private Sub [コンボボックス名１]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [コンボボックス名２] = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
End If
End Sub

としています。

回答No.2

kybo · ベストアンサー

回答1だと永久に抜けられないので訂正。

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Value = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
Cancel = True
End If
End Sub

お礼

できました、ありがとうございました。

回答No.1

kybo

ComboBox1.の値が空欄だった場合、抜けられないようにするには、
Cancel = Trueを入れてみてください

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Value = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
End If
Cancel = True
End Sub

お礼

できました、ありがとうございました。

補足

できました、ありがとうございました。