كيفية تمييز القيم المكررة بألوان مختلفة في Excel؟

في Excel، يمكن بسهولة تمييز القيم المكررة في عمود بلون واحد باستخدام تنسيق شرطي. ومع ذلك، قد تكون هناك أوقات تحتاج فيها إلى تمييز القيم المكررة بألوان مختلفة لتسهيل التعرف عليها، كما هو موضح في لقطة الشاشة. يشرح هذا الدليل كيفية إنجاز هذه المهمة باستخدام كود VBA.

تمييز القيم المكررة في عمود بألوان مختلفة باستخدام كود VBA

تمييز القيم المكررة في عمود بألوان مختلفة باستخدام كود VBA

لا توجد طريقة مباشرة لتحقيق ذلك في Excel، لكن الكود التالي من VBA يمكن أن يساعد. اتبع الخطوات التالية:

1. حدد العمود الذي يحتوي على القيم التي تريد تمييز المكررات فيها بألوان مختلفة، ثم اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تمييز القيم المكررة بألوان مختلفة:

Sub ColorCompanyDuplicates()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

3. اضغط على مفتاح F5 لتشغيل هذا الكود. ستظهر مربع رسالة يطلب منك تحديد نطاق البيانات لتمييز القيم المكررة، انظر لقطة الشاشة:

4. انقر فوق زر موافق، وسيتم تمييز جميع القيم المكررة بألوان مختلفة، انظر لقطة الشاشة: