Cách cố định ngày tháng khi dùng hàm thời gian ? (1 người xem)

[ndlinhbg]

Bạn thử chưa, tôi đã test: nhập cột H cột I sẽ ghi lại thời điểm đó, xóa cột H thì kết quả ô tương cứng cột I bị xóa đi
Nhớ đặt sub đó vào trang Sheet-code

Bài đã được tự động gộp: 17/1/19

Thế là theo ngôn ngữ mạng trẻ hiện này là: tay nhanh hơn ... mọi thứ rồi, bình tâm và kiểm tra cẩn thận trước khi kết luận

bác ơi, em muốn cái ngày tháng đó cố định vào 1 cột thôi thì làm thế nào ạ



Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell_ As Range
Set rng = Intersect(Target, Union(Range("b:b"), Range("e:e"), Range("i:i"), Range("l:l")))
If Not rng Is Nothing Then
Application.EnableEvents = False
For Each cell_ In rng
If cell_.Value <> "" Then
cell_.Offset(, -1).Value = Date
Else
cell_.Offset(, -1).Value = ""
End If
Next cell_
Application.EnableEvents = True
End If
End Sub
em có code như này nhưng em muốn cố định ngày tháng vào cột A thôi thì làm thế nào ạ