كيفية مسح عوامل التصفية من جميع أوراق العمل في المصنف النشط في 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؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!