Hỏi cách để dữ liệu text mới nhập vào sẽ khác màu với dữ liệu trước đó (3 người xem)

[JackieChan]

Em muốn hỏi cách để dữ liệu text mới nhập vào sẽ khác màu với dữ liệu trước đó (dữ liệu trước đó màu đen, mới nhập vào màu đỏ), sau 1 thời gian do mình định (30 ngày chẳng hạn) kể từ khi nhập dữ liệu đó vào, dữ liệu sẽ quay về màu mặc định (màu đen). Nhờ các anh chị chỉ giúp ạ.

 

[huuthang_bd]

Em muốn hỏi cách để dữ liệu text mới nhập vào sẽ khác màu với dữ liệu trước đó (dữ liệu trước đó màu đen, mới nhập vào màu đỏ), sau 1 thời gian do mình định (30 ngày chẳng hạn) kể từ khi nhập dữ liệu đó vào, dữ liệu sẽ quay về màu mặc định (màu đen). Nhờ các anh chị chỉ giúp ạ.

Bạn thử code này xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Days As Double
Days = 1 / 24 / 60
Target.FormatConditions.Delete
Target.FormatConditions.Add 2, , "=NOW()-" & CDbl(Now()) & "<=" & Days
With Target.FormatConditions(1).Font
    .Color = vbRed
    .TintAndShade = 0
End With
End Sub

Lưu ý:
1. Khi dùng code này thì Conditional Formatting mà bạn tạo sẽ bị mất. Code sẽ tạo 1 CF mới để đổi màu.
2. Biến Days là khoản thời gian mà bạn muốn dữ liệu đổi từ màu đỏ sang màu đen. Code của tôi để cho bạn test nên hiện tại biến Days trong code tương đương với 1 phút. Nếu bạn muốn là 30 ngày thì sửa dòng Days = 1 / 24 / 60 thành Days = 30

 

[Hong.Van]

Bạn thử code này xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Days As Double
Days = 1 / 24 / 60
Target.FormatConditions.Delete
Target.FormatConditions.Add 2, , "=NOW()-" & CDbl(Now()) & "<=" & Days
With Target.FormatConditions(1).Font
    .Color = vbRed
    .TintAndShade = 0
End With
End Sub

Lưu ý:
1. Khi dùng code này thì Conditional Formatting mà bạn tạo sẽ bị mất. Code sẽ tạo 1 CF mới để đổi màu.
2. Biến Days là khoản thời gian mà bạn muốn dữ liệu đổi từ màu đỏ sang màu đen. Code của tôi để cho bạn test nên hiện tại biến Days trong code tương đương với 1 phút. Nếu bạn muốn là 30 ngày thì sửa dòng Days = 1 / 24 / 60 thành Days = 30

Code trên còn báo lỗi "Object does'n Support this property or method"
của dòng

.TintAndShade = 0

Em cảm ơn!

 

[ndu96081631]

Code trên còn báo lỗi "Object does'n Support this property or method"
của dòng

.TintAndShade = 0

Em cảm ơn!

Excel 2003 hổng có cái này, vậy thì xóa nó đi

 

[JackieChan]

Em hỏi ngu tí chứ nhập code đó vô đâu ạ (

 

[hoamattroicoi]

Em hỏi ngu tí chứ nhập code đó vô đâu ạ (

Cái này không chèn vào modue mà chèn luôn vào sheet và bạn muốn áp dụng code vì đây là sự kiện của sheet - sự kiện Worksheet_change.