كيفية تمييز القيم المكررة بألوان مختلفة في Excel؟
في Excel ، يمكننا بسهولة تمييز القيم المكررة في عمود بلون واحد باستخدام تنسيق تنسيق مشروط، ولكن ، في بعض الأحيان ، نحتاج إلى تمييز القيم المكررة بألوان مختلفة للتعرف على التكرارات بسرعة وسهولة كما هو موضح في لقطة الشاشة التالية. كيف يمكنك حل هذه المهمة في Excel؟
قم بتمييز القيم المكررة في عمود بألوان مختلفة باستخدام التعليمات البرمجية لـ VBA
قم بتمييز القيم المكررة في عمود بألوان مختلفة باستخدام التعليمات البرمجية لـ VBA
في الواقع ، لا توجد طريقة مباشرة لنا لإنهاء هذه المهمة في Excel ، ولكن ، قد يساعدك رمز VBA أدناه ، يرجى القيام بما يلي:
1. حدد عمود القيم الذي تريد تمييز التكرارات بألوان مختلفة ، ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بتمييز القيم المكررة بألوان مختلفة:
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. ثم اضغط OK زر ، تم تمييز جميع القيم المكررة بألوان مختلفة ، انظر الصورة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!