ExcelEasy1.blogspot.com: Hướng dẫn cập nhật thời gian nhập liệu tự động bằng VBA

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Text <> "" Then

Target.Offset(0, 1) = Format(Now, "dd")

Target.Offset(0, 2) = Format(Now, "mm")

Target.Offset(0, 3) = Format(Now, "yyyy")

End If

End Sub

Download File: Driver