Xin chỉ giáo về ngày tháng năm trong excel

[kylanbac]

Các anh chị cho em hỏi.Trong Excel muốn gõ kiểu date như sau:
vd: gõ 160807 thì nó hiện ra là 16/08/07 khỏi phải gõ dấu '/'
mình đã định dạng lại hệ thống ngày tháng năm rồi mà vẫn không được.
Nếu gõ 16/08/07 thì ok không vấn đề gi.
Nhưng Khi gõ 160807 thì nó hiện ra là 25/06/2230 em chả hiểu nữa.
Mong các anh chị nào biết thì chỉ dùm em và sẵn chỉ em cách làm luôn vì em mới đi làm nên chưa biết nhiều.Thành thật cám ơn.:dzo::alcon:

 

[QDuc]

Bạn sửa lại code sau(vì còn sai!):

Nhưng kết quả là chuỗi!

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A99")) Is Nothing Then
Dim Num As Long
If IsNumeric(Target.Value) Then
Num = Target.Value: Dim StrC As String
StrC = "/" & Right("0" & CStr(Num Mod 100), 2)
Num = Num \ 100
StrC = "/" & Right("0" & CStr(Num Mod 100), 2) & StrC
Num = Num \ 100
StrC = Right("0" & CStr(Num), 2) & StrC

Target.Value = StrC
Target.NumberFormat = "@"
End If: End If
End Sub

:wall::dance2::alcon: