Vba: كيفية استخدام التصفية التلقائية بمعايير متعددة

يمكنك استخدام الطرق التالية لاستخدام التصفية التلقائية في VBA بمعايير متعددة:

الطريقة الأولى: استخدام التصفية التلقائية بمعايير متعددة في عمود واحد

 Sub FilterMultipleCriteria()

With Range(" A1:C11 ")
    .AutoFilter Field:=1, Criteria1:=Array(" A ", " C "), Operator:=xlFilterValues
End With

End Sub

سيقوم هذا الماكرو المحدد بتصفية كافة الصفوف في النطاق A1:C11 حيث تساوي قيمة العمود الأول “A” أو “C”.

الطريقة الثانية: استخدام التصفية التلقائية بمعايير متعددة في أعمدة متعددة

 Sub FilterMultipleCriteria()

With Range(" A1:C11 ")
    .AutoFilter Field:=1, Criteria1:=" A "
    .AutoFilter Field:=2, Criteria1:=" Guard "
End With

End Sub

سيقوم هذا الماكرو المحدد بتصفية النطاق A1:C11 لإظهار الصفوف التي يساوي فيها العمود الأول “A” والعمود الثاني “Guard” فقط.

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel:

مثال 1: استخدام التصفية التلقائية بمعايير متعددة في عمود

لنفترض أننا نريد تصفية مجموعة البيانات لإظهار الصفوف التي يساوي عمودها الأول “A” أو “C” فقط.

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

 Sub FilterMultipleCriteria()

With Range(" A1:C11 ")
    .AutoFilter Field:=1, Criteria1:=Array(" A ", " C "), Operator:=xlFilterValues
End With

End Sub

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

لاحظ أنه تمت تصفية مجموعة البيانات لإظهار الصفوف التي يحتوي العمود الأول فيها على “A” أو “C” فقط.

ملحوظة : لقد قمنا فقط بتضمين قيمتين محتملتين في الدالة Array() ، لكن لا تتردد في تضمين أي عدد تريده.

مثال 2: استخدام التصفية التلقائية مع معايير متعددة في أعمدة متعددة

لنفترض أننا نريد تصفية مجموعة البيانات لإظهار الصفوف فقط حيث تساوي قيمة عمود الفريق A وقيمة عمود المنصب تساوي Guard.

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

 Sub FilterMultipleCriteria()

With Range(" A1:C11 ")
    .AutoFilter Field:=1, Criteria1:=" A "
    .AutoFilter Field:=2, Criteria1:=" Guard "
End With

End Sub

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

لقد لاحظت أنه تمت تصفية مجموعة البيانات لإظهار الصفوف فقط حيث القيمة في عمود الفريق تساوي A والقيمة في عمود الموضع تساوي Guard.

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب التصفية التلقائية لـ VBA هنا .

مصادر إضافية

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

فبا: كيفية تصفية الجداول المحورية
فبا: كيفية مسح عوامل التصفية
VBA: كيفية إزالة القيم المكررة