كيفية مسح عوامل التصفية من جميع أوراق العمل في المصنف النشط في Excel؟

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

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

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

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

يرجى تشغيل البرنامج النصي VBA أدناه لمسح عوامل التصفية من جميع أوراق العمل في المصنف النشط.

1. في المصنف الذي تريد مسح عوامل التصفية منه ، يرجى الضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق نص VBA أدناه في نافذة الوحدة النمطية. انظر أدناه لقطة الشاشة:

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

Sub Clear_fiter()()
'Updated by Extendoffice 20210625
    Dim xAF As AutoFilter
    Dim xFs As Filters
    Dim xLos As ListObjects
    Dim xLo As ListObject
    Dim xRg As Range
    Dim xWs As Worksheet
    Dim xIntC, xF1, xF2, xCount As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xWs In Application.Worksheets
        xWs.ShowAllData
        Set xLos = xWs.ListObjects
        xCount = xLos.Count
        For xF1 = 1 To xCount
         Set xLo = xLos.Item(xF1)
         Set xRg = xLo.Range
         xIntC = xRg.Columns.Count
         For xF2 = 1 To xIntC
            xLo.Range.AutoFilter Field:=xF2
         Next
        Next
    Next
    Application.ScreenUpdating = True

End Sub

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

مقالات ذات صلة:

• كيفية مسح ذاكرة التخزين المؤقت للتصفية (العناصر القديمة) من Pivot Table في Excel؟
• كيفية مسح عوامل التصفية عند فتح المصنف أو حفظه أو إغلاقه في Excel؟
• كيفية تصفية البيانات على أساس خانة الاختيار في إكسيل؟
• كيف تملأ سلسلة من الأرقام في عمود قائمة تمت تصفيته في Excel؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...