Bạn thử code này xem sao Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [D
]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [D
])
If Cll <> "" Then
If Cll <> Cll.ID Then
Cll.Offset(, -3) = Format(Now, "dd/mm/yyyy")
Cll.ID = Cll
End If
Else
Cll.Offset(, -3).ClearContents
Cll.ID = ""
End If
Next
End Sub