Tô màu cho những dòng có số lượng bằng nhau (1 người xem)

[72h.vn]

Anh em trong diễn đàng giúp mình với nhé!
trong file đính kèm mình có câu hỏi như sau:Tô những dòng có số lượng bằng nhau và khác màu???
Vd: những dòng có sl 120 màu đỏ, những dòng có sl 233 màu xanh,……
Chú ý: Dùng styles nhé các bạn.

 

[Ba Tê]

Anh em trong diễn đàng giúp mình với nhé!
trong file đính kèm mình có câu hỏi như sau:Tô những dòng có số lượng bằng nhau và khác màu???
Vd: những ô có sl 120 màu đỏ, những ô có sl 233 màu xanh,……

Bỏ màu trắng và đen, quá số màu 56 thì lặp lại màu từ đầu

 

[72h.vn]

Anh ơi có thể giải thích thêm về bài lam này lam như thế nào ko anh! Em cảm ơn!

 

[hedgehog0369]

Anh cho em hỏi bài làm mẫu của Anh có sử dụng công thức gì không? Anh có thể giải thích rõ được không. Em cảm ơn anh nhiều. Do trong bài làm của anh có ô mẫu khích vào đó là ra kp nhưng em không biết làm sao để ra như thế.

 

[Ba Tê]

Anh cho em hỏi bài làm mẫu của Anh có sử dụng công thức gì không? Anh có thể giải thích rõ được không. Em cảm ơn anh nhiều. Do trong bài làm của anh có ô mẫu khích vào đó là ra kp nhưng em không biết làm sao để ra như thế.

Bạn hỏi bài #2 bên trên à?
Trong đó có cái này, bấm vào vòng có chữ MAU thì nó làm chuyện của nó.

Public Sub GPE()
Dim Rng As Range, Cll As Range, Mau As Long, Dic As Object, I As Long
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
    Set Rng = .Range(.[E4], .[E65000].End(xlUp))
    Mau = 2
For Each Cll In Rng
    If Application.WorksheetFunction.CountIf(Rng, Cll) > 1 Then
        If Not Dic.Exists(Cll.Value) Then
            Mau = Mau + 1
            Dic.Add Cll.Value, Mau
            Cll.Offset(, -4).Resize(, 9).Interior.ColorIndex = Mau
                If Mau = 56 Then Mau = 2
        Else
            Cll.Offset(, -4).Resize(, 9).Interior.ColorIndex = Dic.Item(Cll.Value)
        End If
    End If
Next
End With
End Sub

 

[hedgehog0369]

Em cảm ơn anh nhé! Nhưng em thì không rành nhiều về Code nên nhìn ko hiểu gi hết. Ngoài cách này còn cách nào khác không anh?