Tự động thay đổi màu chữ hoặc màu nền khi sửa vào dữ liệu??

[Phú Lưu]

Tạm dùng code này xem:

Dim OldVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  OldVal = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Value <> OldVal Then Target.Interior.ColorIndex = 6
End Sub

Nếu có gì đó cần mở rộng thêm, ta tính tiếp

Em chào bác!
Giả sử mình thay đổi dữ liệu ô bất kỳ thì sẽ auto tô màu, trường hợp thay đổi dữ liệu nhưng trùng với dữ liệu cũ thì ko cần tô màu.
Nhờ bác chia sẻ code giúp em với ạ
Em cảm ơn bác!

 

[Hoàng Tuấn 868]

Em chào bác!
Giả sử mình thay đổi dữ liệu ô bất kỳ thì sẽ auto tô màu, trường hợp thay đổi dữ liệu nhưng trùng với dữ liệu cũ thì ko cần tô màu.
Nhờ bác chia sẻ code giúp em với ạ
Em cảm ơn bác!

Bạn nên gửi file và diễn giải là tô màu gì, vùng nào và không nên viết tắt bạn à.