كيفية تطبيق نفس التصفية على أوراق عمل متعددة في Excel؟

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

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

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

على سبيل المثال، لدي أربع أوراق عمل كما هو موضح في لقطة الشاشة التالية التي يجب تصفيتها بنفس المعيار وهو المنتج = KTE دفعة واحدة.

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

1. اضغط باستمرار على مفتاحي ALT + F11، ثم سيتم فتح نافذة Microsoft Visual Basic for Applications.

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

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

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

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

ملاحظة: ضمن الكود أعلاه، في هذا النص البرمجي xWs.Range("A1").AutoFilter 1, "=KTE"، A1 و =KTE يشيران إلى العمود ومعيار التصفية الذي تريد التصفية بناءً عليه، الرقم 1 هو رقم العمود الذي تم التصفية بناءً عليه، يمكنك تغييرها حسب حاجتك. على سبيل المثال، إذا كنت تريد تصفية الطلبات الأكبر من 50، تحتاج فقط إلى تعديل هذا النص البرمجي ليصبح كالتالي: xWs.Range("B1").AutoFilter 2, ">50".