Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

يرجى تشغيل البرنامج النصي 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 مفتاح لتشغيل الكود. ثم يتم مسح جميع عوامل التصفية عبر جميع أوراق العمل في المصنف الحالي على الفور.


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (11)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أيها الغبي اللعين هذا حذف جميع مرشحاتنا! تم تدمير نص Python بالكامل نتيجة تكلفتنا لساعات! اذهب إلى الجحيم يا SCUMBAGS !!!!!!!!!!!!!!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
آسف على الخطأ. تم تحديث الرمز في المنشور لمسح عوامل التصفية فقط بدلاً من إزالتها. يرجى المحاولة وتأسف على الإزعاج.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لماذا لم تختبرها بالكامل قبل العمل على أحدث ملف لديك وليس لديك نسخة احتياطية ... اعمل على عادات تكنولوجيا المعلومات لديك قبل استخدام لغة قاسية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحصل على مساعدة مجانية وتحط من قدر الآخرين بسبب أخطائك الغبية. الناس مثلك يستحقون مكانة خاصة في الجحيم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا يزيل جميع المرشحات ، كنت أرغب في شيء من شأنه مسح المرشحات وليس إزالتها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً صايمة ، لقد فهمت وجهة نظرك. تم تحديث الرمز في المنشور لمسح عوامل التصفية فقط بدلاً من إزالتها. يرجى المحاولة وتأسف على الإزعاج. فتح تلقائي فرعي ()
'تم التحديث بواسطة Extendoffice 20201113
خافت xAF كفلتر تلقائي
خافت xFs كمرشحات
خافت xLos ك ListObjects
خافت xLo ك ListObject
خافت xRg كمدى
خافت xWs كورقة عمل
Dim xIntC، xF1، xF2، xCount كعدد صحيح
Application.ScreenUpdating = خطأ
على خطأ استئناف التالي
لكل xWs في التطبيق
xWs.ShowAllData
قم بتعيين xLos = xWs.ListObjects
xCount = xLos.Count
بالنسبة إلى xF1 = 1 إلى xCount
قم بتعيين xLo = xLos.Item (xF1)
قم بتعيين xRg = xLo.Range
xIntC = xRg.Columns.Count
بالنسبة إلى xF2 = 1 To xIntC
xLo.Range.AutoFilter Field: = xF2
التالى
التالى
التالى
Application.ScreenUpdating = ترو

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا هذا ساعدني كثيرا ؛ =)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، في كل مرة أقوم فيها بفتح الملف يتم تشغيل الماكرو ويتم مسح عوامل التصفية ، كيف يمكن تجنب "التشغيل التلقائي" للماكرو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا خوان مورينو ،
أنا آسف لخطئي استبدل السطر الأول:
فتح تلقائي فرعي ()دوامةتصفية فرعية Clear_filter ()مع حل المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما الخط الذي يجب علي تغييره لتقييد الماكرو على الورقة النشطة فقط ، بدلاً من كل منهم؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Lorif - حذف لكل xWs في Application.Worksheets وواحد من التالي
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL