Hỏi về code tự động update thời gian

[the_wind]

Mình có 1 bảng tính trong đó có 1 list nằm ở cột thứ 5. Giờ mình muốn bro nào cho mình 1 code để khi List ở cột thứ 5 đó được chọn là "Anne Lore" thì ở cột thứ 6 sẽ tự động update thời gian (hh/mm/ss)

Cảm ơn rất nhiều

 

[SA_DQ]

Xem thử cái ni

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("E1:E99")) Is Nothing Then
   With Target
      If .Value = "Anne Lore" Then .Offset(, 1).Value = Time()
   End With
 End If
End Sub

 

[the_wind]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("E1:E99")) Is Nothing Then
   With Target
      If .Value = "Anne Lore" Then .Offset(, 1).Value = Time()
   End With
 End If
End Sub

Hình như không được bác ah. Nó báo lỗi không biết tại sao nữa. bác xem lại dùm

 

[concogia]

Hình như không được bác ah. Nó báo lỗi không biết tại sao nữa. bác xem lại dùm

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E200") Is Nothing Then
With Target
If .Value = "Anne Lore" Then .Offset(, 1).Select
Selection.Formula = "=now()"
End With
End If
End Sub
Bạn định dạng lại cột F nhé TIME giờ, phút, giây
Hổng biết đúng ý bạn hông nữa, nhưng mà no chạy
Chắc hông được đâu, nó chạy lung tung quá, mình chưa xem kỹ, phải đi ủng hộ Việt Nam thôi, tối làm tiếp
Thân

 

[the_wind]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E200") Is Nothing Then
With Target
If .Value = "Anne Lore" Then .Offset(, 1).Select
Selection.Formula = "=now()"
End With
End If
End Sub
Bạn định dạng lại cột F nhé TIME giờ, phút, giây
Hổng biết đúng ý bạn hông nữa, nhưng mà no chạy
Chắc hông được đâu, nó chạy lung tung quá, mình chưa xem kỹ, phải đi ủng hộ Việt Nam thôi, tối làm tiếp
Thân

Vậy khi nào bạn viết hoàn thiện thì post lại cho minh nhé.Mình cũng VỌC để sửa nhưng cũng bị chạy lung tung quá.... tệ thật

 

[ptlong04x1]

Vậy khi nào bạn viết hoàn thiện thì post lại cho minh nhé.Mình cũng VỌC để sửa nhưng cũng bị chạy lung tung quá.... tệ thật

Vì bạn không đưa file lên nên không biết cấu trúc cụ thể như thế nào, mình làm thử 1 ví dụ, bạn chỉnh lại cho phù hợp.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" And [e2] = "anne lore" Then [f2] = Time
End Sub

 

[ndu96081631]

Vậy khi nào bạn viết hoàn thiện thì post lại cho minh nhé.Mình cũng VỌC để sửa nhưng cũng bị chạy lung tung quá.... tệ thật

Code của bác HYen17 đây, chỉ sửa Worksheet_SelectionChange thành Worksheet_Change là được