Tự động mở và khóa ô dữ liệu thời gian. (2 người xem)

[Quang Dat HP]

Mình có bài toán như thế này, mọi người giúp đỡ mình với.
Cột A nhập dữ liệu, cột B hiển thị thời gian nhập tương ứng với hàng của cột A . Khi 1 ô A(x) ở cột A có dữ liệu thì ô B(x) ở cột B sẽ hiển thị time và ô B(x) bị khóa lại sau khi hiển thị. Khi A(x) có dữ liệu mới thì B(x) tự động mở khóa và hiển thị thời gian nhập dữ liệu mới của A(x) rồi tự động khóa lại. Quá trình làm việc có thể ô A1 nhập nhiều lần tương ứng với nhiều dữ liệu.

Hiện tại mình mới có code của cho cột A có dữ liệu thì cột B hiển thị thời gian. Đây là bảng code của mình.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A8:A36]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A8:A36])
If Cll <> "" Then
If Cll <> Cll.ID Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Cll.ID = Cll
End If
Else
Cll.Offset(, 2).ClearContents
Cll.ID = ""
End If
Next
End Sub




Mong mọi người giúp đỡ.
Thân ái!!!

 

[Quang Dat HP]

Đoạn code này mình viết có chút sai:
Else
Cll.Offset(, 2).ClearContents
Cll.ID = ""
End If
Next
End Sub

Chỉnh sửa lại là:

Else
Cll.Offset(, 1).ClearContents
Cll.ID = ""
End If
Next
End Sub