为了简化数据输入,我允许用户输入日期为“ddmmyyyy”,不带“/”,例如“12032017”。输入后,我想用值“dd/mm/yyyy”更新目标单元格,例如“12/03/2017”。
开始时,目标单元格的格式设置为“常规”,但一旦计算出日期值,单元格的格式就会自动更改为“dd/m/yyyy”。我尝试同时使用通用格式和日期格式。下面是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