Tô màu có điều kiện (1 người xem)

[Cuongnv0920]

Hiện tại mình muốn dùng VBA để tô được màu giống như trong file excel đính kèm
mình có thử với đoạn code sau:

Sub error()
    Dim i As Long, lastrow As Long, a As Integer
    lastrow = Sheets("Dulieu").Cells(Rows.Count, 2).End(xlUp).Row
    a = 8
    For i = 2 To lastrow
        Cells(i, 3).Value = Cells(i, 2)
        If Cells(i, 3) = a Then
            Cells(i, 2).Interior.ColorIndex = 3
            Cells(i, 2).Font.ColorIndex = 2
            Cells(i, 3).Value = "error"
        Else
            Cells(i, 2).Font.ColorIndex = vbBlack
            Cells(i, 2).Interior.ColorIndex = 2
            Cells(i, 3.Value = ""
        End If
    Next
End Sub

nhưng với đoạn code trên thì mình chỉ tô màu được ô có số 8
nhưng với các thời gian lẻ nhưng 7.77 hoặc 7.98 thì mình chưa làm được
mong các Bác chi giáo ak.

 

[phulien1902]

Hiện tại mình muốn dùng VBA để tô được màu giống như trong file excel đính kèm
mình có thử với đoạn code sau:

Sub error()
    Dim i As Long, lastrow As Long, a As Integer
    lastrow = Sheets("Dulieu").Cells(Rows.Count, 2).End(xlUp).Row
    a = 8
    For i = 2 To lastrow
        Cells(i, 3).Value = Cells(i, 2)
        If Cells(i, 3) = a Then
            Cells(i, 2).Interior.ColorIndex = 3
            Cells(i, 2).Font.ColorIndex = 2
            Cells(i, 3).Value = "error"
        Else
            Cells(i, 2).Font.ColorIndex = vbBlack
            Cells(i, 2).Interior.ColorIndex = 2
            Cells(i, 3.Value = ""
        End If
    Next
End Sub

nhưng với đoạn code trên thì mình chỉ tô màu được ô có số 8
nhưng với các thời gian lẻ nhưng 7.77 hoặc 7.98 thì mình chưa làm được
mong các Bác chi giáo ak.

Thử:

Sub error2()
   Dim cll As Range
   Cells.Interior.ColorIndex = 0
   For Each cll In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
        If cll.Value = 8 Then
           cll.Interior.ColorIndex = 3
            cll.Font.ColorIndex = 2
        ElseIf cll.Value = 7.98 Then
            cll.Interior.ColorIndex = 45
       ElseIf cll.Value = 7.77 Then
            cll.Interior.ColorIndex = 15
        End If
    Next
End Sub

 

[Cuongnv0920]

Thử:

Sub error2()
   Dim cll As Range
   Cells.Interior.ColorIndex = 0
   For Each cll In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
        If cll.Value = 8 Then
           cll.Interior.ColorIndex = 3
            cll.Font.ColorIndex = 2
        ElseIf cll.Value = 7.98 Then
            cll.Interior.ColorIndex = 45
       ElseIf cll.Value = 7.77 Then
            cll.Interior.ColorIndex = 15
        End If
    Next
End Sub

thanh cừu bác nhiều nhé :d

 

[Cuongnv0920]

Thử:

Sub error2()
   Dim cll As Range
   Cells.Interior.ColorIndex = 0
   For Each cll In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
        If cll.Value = 8 Then
           cll.Interior.ColorIndex = 3
            cll.Font.ColorIndex = 2
        ElseIf cll.Value = 7.98 Then
            cll.Interior.ColorIndex = 45
       ElseIf cll.Value = 7.77 Then
            cll.Interior.ColorIndex = 15
        End If
    Next
End Sub

Sau khi dung code của bác đã được tô màu rất thành công
nhưng bác giúp em thêm cái này được nữa ko ak.
VD: "Nguyễn Văn A" đang có bao nhiêu màu đỏ và bao nhiêu màu xám & và được thể hiện ở "sheet2"
Cám ơn bác nhiều