文字列の値をvbaの日付値に変換する

Question

データ入力を簡単にするために、ユーザーは「/」を付けずに「ddmmyyyy」と入力することができます（例： "12032017"）。エントリの後、 "dd/mm/yyyy"の値、たとえば "12/03/2017"でターゲットセルを更新したいとします。
開始時に、ターゲットセルのフォーマットは "General"に設定されますが、日付値が計算されるとすぐに、セルのフォーマットは自動的に "dd/m/yyyy"に変更されます。 私は、一般書式と日付書式の両方を使用しようとしました。以下は、あなたはまだ日付ではなく実際の日付、使用DateSerialのように見える文字列を返しているVBAコード

If Not Intersect(Target, Range("D11:D510")) Is Nothing Then 
    If Not (Target.Value = "") Then 
    Application.EnableEvents = False ' very important 
    Target.Value = Left(Target.Value, 2) & "/" & Mid(Target.Value, 3, 2) & 
    "/" & Right(Target.Value, 4) 
    Application.EnableEvents = True 'very important 
    End If 
    End If 

Answer 1

です：

If Not Intersect(Target, Range("D11:D510")) Is Nothing Then 
    Target.NumberFormat = "@" 
    If Not (Target.Value = "") Then 
     Application.EnableEvents = False ' very important 
     Target.Value = DateSerial(Right(Target.Value, 4), Mid(Target.Value, 3, 2), Left(Target.Value, 2)) 
     Target.NumberFormat = "dd/mm/yyyy" 
     Application.EnableEvents = True 'very important 
    End If 
End If