Vba: تطبيق التنسيق الشرطي على القيم المكررة

يمكنك استخدام بناء الجملة الأساسي التالي في VBA لتطبيق التنسيق الشرطي على القيم المكررة في نطاق معين:

 Sub ConditionalFormatDuplicates()

Dim rg As Range
Dim uv As UniqueValues

'specify range to apply conditional formatting
Set rg = Range(" A2:A11 ")

'clear any existing conditional formatting
rg.FormatConditions.Delete

'identify duplicate values in range A2:A11
Set uv = rg.FormatConditions.AddUniqueValues
uv.DupeUnique = xlDuplicate

'apply conditional formatting to duplicate values
uv.Interior.Color = vbBlue
uv.Font.Color = vbWhite
uv.Font.Bold = True

End Sub

يطبق هذا المثال المحدد التنسيق الشرطي على القيم المكررة في النطاق A2:A11 للورقة الحالية في Excel.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: استخدم VBA لتطبيق التنسيق الشرطي على القيم المكررة

لنفترض أن لدينا عمود القيم التالي في Excel:

لنفترض أننا نريد تطبيق التنسيق الشرطي التالي على القيم المكررة في العمود A:

• الخلفية الزرقاء
• نص أسود
• نص غامق

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub ConditionalFormatDuplicates()

Dim rg As Range
Dim uv As UniqueValues

'specify range to apply conditional formatting
Set rg = Range(" A2:A11 ")

'clear any existing conditional formatting
rg.FormatConditions.Delete

'identify duplicate values in range A2:A11
Set uv = rg.FormatConditions.AddUniqueValues
uv.DupeUnique = xlDuplicate

'apply conditional formatting to duplicate values
uv.Interior.Color = vbBlue
uv.Font.Color = vbWhite
uv.Font.Bold = True

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه يتم تطبيق التنسيق الشرطي على كل خلية في العمود A بقيمة مكررة.

إذا كنت تريد تطبيق التنسيق الشرطي على نطاق مختلف من الخلايا، فما عليك سوى استبدال A2:A11 في الماكرو بنطاق مختلف.

بالإضافة إلى ذلك، إذا كنت تريد إزالة كافة التنسيقات الشرطية من الخلايا الموجودة في الورقة الحالية، فيمكنك إنشاء الماكرو التالي للقيام بذلك:

 Sub RemoveConditionalFormatting()
ActiveSheet.Cells.FormatConditions.Delete
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تمت إزالة أي تنسيق شرطي من الخلايا.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية حساب القيم الفريدة في النطاق
VBA: كيفية حساب الخلايا التي تحتوي على نص معين
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS