كيفية مسح عوامل التصفية من جميع أوراق العمل في المصنف النشط في 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 مفتاح لتشغيل الكود. ثم يتم مسح جميع عوامل التصفية عبر جميع أوراق العمل في المصنف الحالي على الفور.
مقالات ذات صلة:
- كيفية مسح ذاكرة التخزين المؤقت للتصفية (العناصر القديمة) من 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!











