Code VBA đưa ra ngày chỉnh sửa file (1 người xem)

[nguyendinhtutw]

Dear các bác,
Hiện tại mình đang có một file excel, mình muốn khi nào chỉnh sửa một ô nào đó thì khi sửa xong sẽ hiện ra ngày chỉnh sửa ô dữ liệu đó ở ô đầu tiên của hàng. Vậy có cách nào không các bác?
Hy vọng nhận được sáng kiến của các bác, đa tạ

 

[vu_tuan_manh_linh]

Dùng thủ tục worksheet_change(), đặt giá trị cells(target.row,1).value=now().

 

[nguyendinhtutw]

Dùng thủ tục worksheet_change(), đặt giá trị cells(target.row,1).value=now().

Bác giúp mình viết đoạn code đó được không? vì mình còn gà mờ VBA lắm, cảm ơn bác nhiều

 

[nguyendinhtutw]

Dùng thủ tục worksheet_change(), đặt giá trị cells(target.row,1).value=now().

Mình tìm hiểu trên mạng có đoạn code dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cll As Range

If Intersect(Target, [A2:A6000]) Is Nothing Then Exit Sub

For Each Cll In Intersect(Target, [A2:A6000])

If IsEmpty(Cll) Then

Cll.Offset(, 1).ClearContents

Else

Cll.Offset(, 1) = Date

End If

Next

End Sub
Tuy nhiên code trên chỉ áp dụng cho vùng dữ liệu cột A và trả về giá trị ở cột B. Có cách nào áp dụng cho vùng dữ liệu gồm nhiều cột (ví dụ cột A, B, C, D), và cố định cột giá trị trả về không (ví dụ cố định cột giá trị trả về là cột E)?

 

[phuyen89]

Mình tìm hiểu trên mạng có đoạn code dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cll As Range

If Intersect(Target, [A2:A6000]) Is Nothing Then Exit Sub

For Each Cll In Intersect(Target, [A2:A6000])

If IsEmpty(Cll) Then

Cll.Offset(, 1).ClearContents

Else

Cll.Offset(, 1) = Date

End If

Next

End Sub
Tuy nhiên code trên chỉ áp dụng cho vùng dữ liệu cột A và trả về giá trị ở cột B. Có cách nào áp dụng cho vùng dữ liệu gồm nhiều cột (ví dụ cột A, B, C, D), và cố định cột giá trị trả về không (ví dụ cố định cột giá trị trả về là cột E)?

- Bạn cứ cho file lên đi, mọi người sẽ giúp bạn. Mình nghĩ vấn đề bạn đặt ra, sẽ được giải quyết đó.

 

[nguyendinhtutw]

- Bạn cứ cho file lên đi, mọi người sẽ giúp bạn. Mình nghĩ vấn đề bạn đặt ra, sẽ được giải quyết đó.

Ví dụ như file đính kèm dưới đây, khi mình chỉnh sửa nội dung một trong các cell trong các cột từ A đến M, thì ngày chỉnh sửa sẽ hiện lên ở cell tương ứng ở cột N

 

[phuyen89]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column = 5 Then
        Target.Columns("F").Value = Now()
    End If
End Sub

- Nếu sửa tại cột 1,5 thì giá trị sẽ được update tại cột F.Bạn xem nhé.

 

[nguyendinhtutw]

Paste code vào sheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:M10], Target) Is Nothing And Target.Count = 1 Then
    Cells(Target.Row, 14) = Now()
End If
End Sub

Cảm ơn bác nhiều lắm, mình đã làm được theo cách của bác