Chỉ giúp mình về VBA hiện màu khác nhau cho hạn kiểm tra của thiết bị (1 người xem)

[luuduan03c4b]

Mình đang cần làm một chương trình như thế này: Các thiết bị máy của mình phải kiểm tra chất lương theo định kỳ, 1 năm, 2 năm, 3 năm một lần. Số lượng thiết bị rất nhiều và tăng thêm theo thời gian. Mình thường lưu những danh sách thiết bị đó trên Excel. Mình muốn viết một chương trình hiện thị theo màu sắc.
Ví dụ như: những thiết bị nào chưa đến thời gian kiểm tra là màu xanh, còn <6 tháng nữa kiểm tra là màu vàng và đã quá thời gian kiểm tra là màu đỏ. Mình có thể đọc ở tài liệu nào để có thể viết được chương trình như Mình muốn không? Bạn nào có tài liệu có thể gửi cho mình với.
Cảm ơn cả nhà nhé. Chúc các bạn luôn mạnh khoẻ, hạnh phúc, thành công.
Thân ái: luuduan_TME

 

[SA_DQ]

Macro của bạn đây

Option Explicit
Sub KiemDinh()
 Dim Rng As Range, Clls As Range
 
 Set Rng = Range("E2:E" & [A65500].End(xlUp).Row)
 Rng.Interior.ColorIndex = 0
 For Each Clls In Rng
   If Clls.Value < Date Then
      Clls.Interior.ColorIndex = 3
   ElseIf Clls.Value > Date + 180 Then
      Clls.Interior.ColorIndex = 5
   ElseIf Clls.Value < Date + 180 Then
      Clls.Interior.ColorIndex = 6
   End If
 Next Clls
End Sub

Sau khi chạy macro, trang tính ví dụ sẽ được tô màu như sau:

Ma|Ten|NgayKĐ|Kỳ|KỳTới|
ATZ01|GPE 010|3/2/2008|2| 3/2/2010 |
ATZ03|GPE 110|1/5/2010|1| 1/5/2011 |
ATZ21|GPE 310|5/10/2008|2| 5/10/2010 |
AZT99|GPE 90|6/12/2008|2| 6/12/2010 |

 

[luuduan03c4b]

Cam on Bac SA_DQ nhieu nhe. Minh se lam thu xem. Co gi chua hieu mong Bac chi giup cho !