Tô màu theo điều kiện

[huongmuine]

Nhờ các Anh Chị giúp code tô màu theo điều kiện từ cột E đến cột I trong vùng E3:I27:
Điều kiện:
- Ô không có dữ liệu.
- < 5
- Ký hiệu Y, TB, K, G
Các điều kiện này sẽ tô màu khác nhau.
Cảm ơn các Anh Chị nhiều.

 

[Hoàng Tuấn 868]

Nhờ các Anh Chị giúp code tô màu theo điều kiện từ cột E đến cột I trong vùng E3:I27:
Điều kiện:
- Ô không có dữ liệu.
- < 5
- Ký hiệu Y, TB, K, G
Các điều kiện này sẽ tô màu khác nhau.
Cảm ơn các Anh Chị nhiều.

Bạn tham khảo..

 

[BuiQuangThuan]

Bạn thử dùng Conditional Fomating coi

 

[Nhattanktnn]

Nhờ các Anh Chị giúp code tô màu theo điều kiện từ cột E đến cột I trong vùng E3:I27:
Điều kiện:
- Ô không có dữ liệu.
- < 5
- Ký hiệu Y, TB, K, G
Các điều kiện này sẽ tô màu khác nhau.
Cảm ơn các Anh Chị nhiều.

Thử :

Option Explicit

Sub ToMau()
Dim Cll As Range, Rng As Range
With Sheets("Sheet1")
Set Rng = .Range("E3:I" & .Cells(Rows.Count, "B").End(xlUp).Row)
Rng.Interior.Color = xlNone
For Each Cll In Rng
    Select Case Cll.Value
        Case "": Cll.Interior.Color = RGB(255, 255, 204)
        Case Is < 5: Cll.Interior.Color = RGB(153, 204, 255)
        Case "Y": Cll.Interior.Color = RGB(255, 102, 0)
        Case "K": Cll.Interior.Color = RGB(199, 192, 192)
        Case "G": Cll.Interior.Color = RGB(153, 204, 0)
    End Select
Next
End With
End Sub

 

[huongmuine]

Cảm ơn các Bạn đã giúp.