入力ボックスを再起動する

Question

最初に開いたときよりもExcelシートがあり、入力ボックスに日付を入力してシートのセルに配置するように求めています。私は誰かが間違った日付に置く場合、無効な日付エラーボックスをポップアップするエラーハンドルがあります。しかし、私がしたいのは、無効な日付が入力されたときに、日付の元の入力ボックスが再びポップアップし、再び入力できるようにすることです。私はこれまでに書いたコードの下にあるコードを持っていますが、私はエラーを受けています。

おかげ

ReShowInputBox: cellvalue = Application.InputBox("Please Enter The Date for Data Extracted (dd/mm/yyyy)") 
On Error GoTo ErrHandle 

ErrHandle: 
MsgBox ("Invalid Date") 
ReShowInputBox: cellvalue = Application.InputBox("Please Enter The Date for Data Extracted (dd/mm/yyyy)") 

If cellvalue = "" Then Exit Sub 
ws.Select 
ws.Range("A1").Value = DateValue(cellvalue) 
MsgBox ("Date Entered!") 

Answer 1

どのようにシンプルなDo Untilループについて：

Dim cellvalue As Variant 

Do 

    cellvalue = Application.InputBox("Please Enter The Date for Data Extracted (dd/mm/yyyy)") 

Loop Until IsDate(cellvalue) And IsNumeric(Right(cellvalue, 4)) And IsNumeric(Left(cellvalue, 2)) And IsNumeric(Mid(cellvalue, 4,2)) 

ws.Range("A1").Value = cellvalue 
MsgBox ("Date Entered!") 

は、私はかなり徹底的にこれをテストし、それはあなたが望む正確な形式で日付を受け入れました。

Sub fhskjfs() 
    Dim i As String, d As Date 
    i = "" 

    While Not IsDate(i) 
     i = Application.InputBox(Prompt:="Enter a date", Type:=2) 
     If i = False Then Exit Sub 
     If IsDate(i) Then d = CDate(i) 
    Wend 
End Sub 

EDIT＃1：

ここでは、への道である。ここ

Answer 2

を繰り返し使用すると、1つを得るまでの日付を求めるが、ユーザーが相殺できるようにする簡単な方法です

Public Function CheckFormat(i As String) As String 
    CheckFormat = "junk" 
    ary = Split(i, "/") 
    If UBound(ary) <> 2 Then Exit Function 
    If CLng(ary(2)) < 1900 Or CLng(ary(2)) > 9999 Then Exit Function 
    If CLng(ary(1)) > 12 Then Exit Function 
    If CLng(ary(0)) > 31 Then Exit Function 
    CheckFormat = i 
End Function 

Sub GetDate() 
    Dim i As String, d As Date 
    i = "" 

    While Not IsDate(i) 
     i = Application.InputBox(Prompt:="Enter a date", Type:=2) 
     If i = "False" Then Exit Sub 
     i = CheckFormat(i) 
     If IsDate(i) Then d = CDate(i) 
    Wend 
End Sub