VBAの日付形式が正しく動作しない

Question

入力メッセージの応答を、CDate（dd/mm/yyyy）を使用して日付形式のセルに表示します。入力がdd/mm/yyとして行われた場合、コードがエラーメッセージを表示しないのはなぜですか？プログラムはそれを受け入れますが、出力はyy/mm/ddと表示されます。以下

私が作成したコードです：

Sub inputSettlementDate() 

Dim varInputDate As Variant 
Dim lngERow As Long 


varInputDate = InputBox("Please enter the Settlement Date using this format dd/mm/yyyy.", "Settlement Date") 
If IsDate(varInputDate) Then 
    varInputDate = Format(CDate(varInputDate), "dd/mm/yyyy") 
    Else 
    MsgBox "Please enter a valid date format dd/mm/yyyy" 
End If 

If IsDate(varInputDate) Then 
    lngERow = Range("B" & Rows.Count).End(xlUp).Row + 1 
    Range("B" & lngERow).Value = varInputDate 
End If 
End Sub 

Answer 1

あなたが列Bは、一般的なようなフォーマットを持っている、またはそれはYY/MM/DDの形式を持っていないことを確認することがあります。私は何も変更せずに空白のブックにあなたのコードをテストし、それは完璧に働いた。