كيف يمكن مسح عوامل التصفية من جميع أوراق العمل في المصنف الحالي في Excel؟
عند العمل مع مصنف Excel يحتوي على أوراق عمل متعددة، من الشائع تطبيق عوامل التصفية على أوراق مختلفة لتحليل البيانات بفعالية. ومع ذلك، بعد تطبيق هذه العوامل عبر عدة أوراق، قد تحتاج لاحقًا إلى إزالتها جميعًا لإعادة أوراق العمل إلى حالتها الأصلية غير المُرشَّحة. والقيام بذلك يدويًّا—بالتبديل بين كل ورقة عمل واحدة تلو الأخرى ومسح عوامل التصفية بشكل فردي—لا يستغرق وقتًا فحسب، بل يزيد أيضًا من احتمال تفويت إحدى الأوراق.
غالبًا ما تظهر هذه المهمة في سيناريوهات مثل استلام مصنف من زملائك أو دمج بيانات من فِرَق متعددة، حين تريد التأكد من مسح جميع عوامل التصفية قبل الشروع في تحليلك الخاص أو إعداد التقارير للمشاركة. فالتعامل اليدوي مع كل ورقة عمل قد يكون غير فعّال، خاصةً في المصنفات الكبيرة التي تحتوي على عشرات الأوراق. لذا، فإن اعتماد طريقة سريعة وموثوقة لمسح جميع عوامل التصفية من كل ورقة عمل في المصنف الحالي يوفّر لك وقتًا وجهدًا كبيرين، ويقلل أيضًا من خطر إغفال أي بيانات مُرشَّحة.
فيما يلي طريقة عملية لتحقيق ذلك في بضع خطوات فقط. وللاطلاع على تقنيات متقدمة أو بديلة، مثل استخدام النُهج القائمة على الصيغ أو الاستفادة من إضافات Excel، يُرجى الرجوع إلى الحلول الإضافية في نهاية هذا المقال.
مسح عوامل التصفية من جميع أوراق العمل في المصنف الحالي باستخدام كود VBA
مسح عوامل التصفية من جميع أوراق العمل في المصنف الحالي باستخدام كود VBA
لإزالة جميع عوامل التصفية من كل ورقة في المصنف الحالي بكفاءة، يمكنك استخدام سكربت VBA. يُعدّ هذا الحل مثاليًا للمستخدمين المتمرسين في تشغيل ماكروهات Excel، وهو فعّال جدًّا مع المصنفات التي تحتوي على أنواع متنوعة من البيانات المنظمة.
قبل البدء، يُرجى حفظ عملك، إذ سيؤدي تشغيل VBA إلى إجراء تغييرات جماعية في مصنفك.
1. في المصنف الذي تريد مسح عوامل التصفية منه، اضغطAlt+F11 في آنٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications. إذا كنت تستخدم Excel لأول مرة، فقد تحتاج إلى تمكين تبويب المطور من قائمة الخيارات.
2. في نافذةMicrosoft Visual Basic for Applications المفتوحة، انتقل إلىإدراج > وحدة نمطيةلإنشاء وحدة جديدة. بعد ذلك، انسخ والصق سكربت VBA التالي في نافذة الوحدة. راجع لقطة الشاشة أدناه كمرجع:
كود VBA: مسح عوامل التصفية من جميع أوراق العمل في المصنف الحالي
Sub Clear_fiter()
'Updated by Extendoffice 20250902
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 أو انقر زرتشغيللتنفيذ الكود. عند التنفيذ، سيتم مسح جميع عوامل التصفية—سواء كانت عوامل تصفية نطاق قياسية أو عوامل تصفية قائمة على الجداول—من جميع أوراق العمل في المصنف الحالي الخاص بك فورًا.
تأكد من حفظ مصنفك قبل تشغيل الماكرو، لأن الإجراءات التي ينفذها VBA لا يمكن التراجع عنها باستخدام Ctrl + Z.
مقالات ذات صلة:
- كيف يمكن مسح ذاكرة التخزين المؤقت للتصفية (العناصر القديمة) من جدول محوري في Excel؟
- كيف يمكن مسح عوامل التصفية تلقائيًا عند فتح المصنف أو حفظه أو إغلاقه في Excel؟
- كيف يمكن تصفية البيانات في Excel بناءً على خيار محدد من مربع اختيار؟
- كيف تملأ سلسلة أرقام في عمود قائمة منسدلة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل