Trước tiên bạn chỉnh Regional Language Settings trong Control Panel, phần ngày tháng năm thành format dd/mm/yy
Tiếp theo chạy code này xem:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim r As Integer
Dim d, m, y
If Target.Column = 1 And Target.Row < 100 Then...