Tô màu cho cặp cells trùng dữ liệu

[thang314]

Em đang phải chấm một bảng tổng hợp dở quá. làm mãi chưa được. em muốn tô màu cho các cells có dữ liệu trùng nhau tại 2 cột nợ và có. chỉ chấm 1 lần nợ và một lần có. trong file có thêm điều kiện là một có bằng 1 nợ hoặc một có bằng 2 nợ. nếu những cells thoả mãn điều kiện thì tô màu luôn.

 

[DragonBC]

Gửi bạn, code tô mầu cell nhé:
chắc bản xử được nốt phần còn lại;

regard;

Sub AA()

Dim i As Integer
For i = 1 To 10

If Sheet1.Cells(i, 1) < 0 Then
Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 1)).Interior.Color = 177777
End If
Next
End Sub

 

[Ba Tê]

Em đang phải chấm một bảng tổng hợp dở quá. làm mãi chưa được. em muốn tô màu cho các cells có dữ liệu trùng nhau tại 2 cột nợ và có. chỉ chấm 1 lần nợ và một lần có. trong file có thêm điều kiện là một có bằng 1 nợ hoặc một có bằng 2 nợ. nếu những cells thoả mãn điều kiện thì tô màu luôn.

Cái vụ tô màu này không khả thi, tìm màu còn khó hơn tìm số vì có nhiều màu tô rồi không đọc số được.
Híc!

Public Sub GPE()
Dim Rng As Range, Cll As Range, Dic As Object, K As Long
Set Rng = Sheet1.Range([A2], [A65000].End(xlUp)).Offset(, 1).Resize(, 2)
Set Dic = CreateObject("Scripting.Dictionary")
K = 2
    For Each Cll In Rng
        If Application.WorksheetFunction.CountIf(Rng, Cll) > 1 Then
            If Not Dic.exists(Cll.Value) Then
                    K = K + 1
                Dic.Add Cll.Value, K
                Cll.Interior.ColorIndex = K
                If K = 56 Then K = 2
            Else
                Cll.Interior.ColorIndex = Dic.Item(Cll.Value)
            End If
        End If
    Next
Set Dic = Nothing
Set Rng = Nothing
End Sub