Private Sub CBo3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.CBo3.MatchFound = False Then
MsgBox "月の入力が正しくありません", vbExclamation, "入力エラー"
CBo3.Value = Empty
Cancel = True
Exit Sub
End If
Chabin の Excel VBA ノート