インプットボックスでの日付入力

いつもお世話になります

Dim saa As String

saa = InputBox("実行する日付を入力して下さい" & vbCrLf & "入力例）2016/03/17（半角入力）", "日付入力")
If saa = "" Then Exit Sub
If Not IsDate　saa Then
MsgBox "日付の入力が間違っています" & vbCrLf & "2016/01/07のように入力して下さい", 16
End If


上記コードは一応、yyyy/mm/dd で入力してもらうようにしているコードのつもりです。
でも、正確に動作しません。
このコードを、日付入力の方法が間違っていたら、Exit Sub で終わるのでななく、ループ？ってやつできちんと日付入力がされるまでマクロが終わらないコードに修正して頂きたいです。
どなたか、ご教示頂ける方いらっしゃいましたらよろしくお願い致します。

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2016/01/26 10:06

Dim saa As String

Top: ←追加
saa = InputBox("実行する日付を入力して下さい" & vbCrLf & "入力例）2016/03/17（半角入力）", "日付入力")
If saa = "" Then Exit Sub
If Not IsDate(saa) Then　←修正
MsgBox "日付の入力が間違っています" & vbCrLf & "2016/01/07のように入力して下さい", 16
GoTo Top ←追加
End If

この回答へのお礼

回答ありがとうございました。
無事問題なく解決しました。

お礼日時：2016/01/26 12:50