A列单元格输入“230506”这种格式的数字在此单元格自动生成“2023/5/6”这种格式的日期，代码有时成有时不成，请帮助，谢谢。
0
[已关闭问题]
关闭于 2023-12-17 18:31
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Target.Column = 1 Then
If VBA.IsDate(Target.Value) Then End
Dim d
d = Target.Value
If Len(d) = 6 Then
Target = CDate(Left(d, 2) & "/" & Mid(d, 3, 2) & "/" & Right(d, 2))
End If
End If
End Sub
