VBA inputboxとdate型に関する質問です。

Question

おはようございます。

今下記のようなコードを作成しているのですが、
date型でない場合に再度入力できるようにon errorを使用しているのですが、
エラーが発生してしまいます。
型に合わない入力の場合すべて再入力させたいと思っています。
どのようなコードに直せばよいでしょうか？
よろしくお願いいたします。

<<省略>>
dim dateA as date
L1:
on error goto L1
dateA = cdate(inputbox("yyyy/mm/ddの形で入力"))
<<省略>>

追記
実際にはこのようなコードを使用しています。
一回目は、文字列を入力すると、入力しなおすように警告が出るのですが、
2回目さらに間違えるとエラー13　型が一致しません　が出てきます。
```vba
<<省略>>
R1:
 On Error GoTo R2
    dateA = InputBox("新しい期限を決めてください。(2018/11/15　の形で入力)")
    On Error GoTo R2
    dateA = CDate(dateA)
<<省略>>
R2:
msgbox("入力しなおし")
goto R1
コード

Comments

[maisumakun]

「エラーが発生してしまいます。」とありますが、どのようなメッセージが出たのか正確に書いてください。

[ken8888]

実行時エラー13 型が一致しません　とでます。

[ken8888]

「あ」　と入力した場合です。

Answer 1

文字列が日付に変換できるかどうかは、IsDate関数を使うと判ります。
日付に変換できることが分っている時にだけ、日付に変換するようにすれば、エラーが発生しません。

＜コード例＞

Dim dateA as date
Dim flag as Boolean
Dim inputStr as String

flag=False
Do
  inputStr = inputbox("yyyy/mm/ddの形で入力")
  if IsDate(inputStr) '日付に変換できる文字列が入力されていたら
    dateA = CDate(inputStr) '日付に変換
    flag=True
  else
    msgbox("文字列:" & inputStr & "は、日付に変換できません。入力しなおして下さい。") '再入力を促すメッセージを表示する。
    flag=False
  endif
Loop Wwhile Not(flag) '日付に変換できるまで繰り返す

Comments

[ken8888]

ありがとうございます。　直接変換しようとするからダメなのですね

Answer 2

InputBoxの戻り値を直接CDateせず、一旦受け取って日付か否かを判定すべきです。

Dim dateA As Date
Dim inp As String
Do
    inp = InputBox("yyyy/mm/ddの形で入力")
    If IsDate(inp) Then Exit Do
Loop
dateA = CDate(inp)
MsgBox dateA

Comments

[ken8888]

無事解決できました。　ありがとうございました