إضاءة مزدوجة من التكرارات

من بين أدوات Microsoft Excel القياسية ، هناك العديد من الطرق المختلفة لتمييز التكرارات بالألوان. الطريقة الأسهل والأسرع هي التنسيق الشرطي. للقيام بذلك ، ما عليك سوى تحديد نطاق من الخلايا وتحديد في علامة التبويب الصفحة الرئيسية - التنسيق الشرطي - قواعد تحديد الخلية - القيم المكررة (الصفحة الرئيسية - التنسيق الشرطي - قواعد تمييز الخلايا - القيم المكررة):

ومع ذلك ، في هذه الحالة ، سيكون لون التعبئة لجميع الخلايا هو نفسه ، أي أنه يشير ببساطة إلى أن العنصر يحتوي على تكرارات في مكان آخر في النطاق ، ولكنه لا يفعل شيئًا للمساعدة في العثور عليها. يمكنك إصلاح الموقف باستخدام ماكرو صغير يملأ كل زوج (أو أكثر) من التكرارات المكررة بلونه الخاص:

أكثر وضوحا ، أليس كذلك؟ بالطبع ، مع وجود عدد كبير من الخلايا المكررة ، سيكون من الصعب التمييز بين الظلال ، ولكن مع وجود عدد صغير نسبيًا من التكرارات ، ستعمل هذه الطريقة بشكل مثالي.

لاستخدام هذا الماكرو ، اضغط على اختصار لوحة المفاتيح ALT + F11 أو زر Visual Basic علامة التبويب المطور، أدخل وحدة فارغة جديدة عبر القائمة إدراج - وحدة وانسخ كود هذا الماكرو هناك:

SublicatesColoring () Dim Dupes () 'قم بتعريف مصفوفة لتخزين التكرارات ReDim Dupes (1 To Selection.Cells.Count، 1 To 2) Selection.Interior.ColorIndex = -4142' قم بإزالة التعبئة إذا كان i = 3 لكل خلية في التحديد If WorksheetFunction.CountIf (Selection، cell.Value)> 1 ثم For k = LBound (Dupes) To UBound (Dupes) 'إذا كانت الخلية موجودة بالفعل في صفيف التكرارات ، فقم بملء If Dupes (k، 1) = cell ثم الخلية الداخلية. ColorIndex = Dupes (k، 2) Next k 'إذا كانت الخلية تحتوي على نسخة مكررة ، ولكن ليس بعد في المصفوفة ، أضفها إلى المصفوفة واملأها إذا كانت الخلية. الازدراء (i، 4142) = cell.Value Dupes (i، 1) = ii = i + 2 End If End If Next cell End Sub  

يمكنك الآن تحديد أي نطاق به بيانات على الورقة وتشغيل الماكرو باستخدام اختصار لوحة المفاتيح ALT + F8 أو من خلال الزر وحدات الماكرو (وحدات ماكرو) علامة التبويب المطور (مطور).

• قم بتمييز التكرارات بالألوان
• ما هي وحدات الماكرو ، ومكان إدراج التعليمات البرمجية للماكرو في Visual Basic ، وكيفية تشغيلها
• كيفية حساب عدد القيم الفريدة في نطاق معين من الخلايا