كيف يمكن عرض أو إظهار شروط التصفية التلقائية في Excel؟
التصفية التلقائية (AutoFilter) ميزة مفيدة لمستخدمي Excel. أحيانًا نطبّق التصفية التلقائية لفلترة البيانات وفقًا لعدة معايير، ثم نُرسل الملف إلى آخرين. في هذه الحالة، إذا أراد المستلمون معرفة معايير التصفية التي استخدمتها، فكيف يمكنهم ذلك؟
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام دالة معرّفة من قبل المستخدم
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام كود VBA
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام Kutools لـ Excel 
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام دالة معرّفة من قبل المستخدم
افترض أن لديك البيانات التالية التي تم تصفية بعضها وفقًا لمعايير معينة، انظر لقطة الشاشة:
والآن يمكنني إنشاء دالة معرّفة من قبل المستخدم (User Defined Function) لعرض معايير التصفية في الخلايا، يُرجى اتباع الخطوات التالية:
1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية (Module)، ثم الصق ماكرو التالي في نافذةالوحدة النمطية:
Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Exit Function
str1 = .Criteria1
If .Operator = xlAnd Then
str2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
str2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function
3.بعد ذلك، حفظ وإغلاق هذا الكود، في خلية فارغة ضمن صف فارغ، على سبيل المثال الخلية A1، أدخل الصيغة التالية:=AutoFilter_Criteria(A4)(A4هي خلية العنوان للبيانات المُرشّحة)، انظر لقطة الشاشة:
4. ثم اضغط على مفتاحEnter، وحدد الخلية A1، ثم اسحب مقبض التعبئة إلى الخلية الموجودة على اليمين التي تريد أن تحتوي هذه الصيغة. وسيتم عرض جميع المعايير في الخلايا. انظر لقطة الشاشة:
ملاحظة: إذا وُجد أكثر من معيارين في عمود واحد، فلن تُعطي هذه الدالة المعرّفة من قِبل المستخدم النتيجة الصحيحة.
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام كود VBA
هنا، يمكنني أيضًا الحديث عن كود VBA مثير للاهتمام يساعدك في عرض شروط التصفية مباشرةً داخل خلية من المصنف.
1. اضغط باستمرار على مفتاحَيALT + F11 لفتحنافذة Microsoft Visual Basic for Applications.
2. انقرإدراج>وحدة نمطية (Module)، والصق ماكرو التالي في نافذةالوحدة النمطية:
كود VBA: عرض التصفية التلقائية شروط التصفية في ورقة العمل
Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
Application.StatusBar = False
Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
TargetField = xFilter.Range.Cells(1, i).Value
Set TargetFilter = xFilter.Filters(i)
If TargetFilter.On Then
On Error GoTo OutNext
xOut = xOut & TargetField & TargetFilter.Criteria1
Select Case TargetFilter.Operator
Case xlAnd
xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
Case xlOr
xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
Case xlBottom10Items
xOut = xOut & " (bottom 10 items)"
Case xlBottom10Percent
xOut = xOut & " (bottom 10%)"
Case xlTop10Items
xOut = xOut & " (top 10 items)"
Case xlTop10Percent
xOut = xOut & " (top 10%)"
End Select
End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub
3. ثم اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة تطلب منك تحديد خلية فارغة لإدخال المعايير فيها. انظر لقطة الشاشة:
4. ثم انقرموافق، وستُعرض جميع المعايير في الخلية المحددة كما يلي:
ملاحظة:
مع كود VBA هذا، إذا كانت معاييرك أكثر من معيارين في عمود واحد، فلن يتم عرض معايير التصفية التفصيلية، بل سيتم عرضها كما يلي:
عرض / إظهار التصفية التلقائية شروط التصفية في ورقة العمل باستخدام Kutools لـ Excel
إذا كنت تمتلكKutools لـ Excelمثبّتًا، فيمكنك استخدام دالةالمرشح المتقدمالخاصة به لتصفية البيانات، كما يمكنك في الوقت نفسه الاطّلاع على شروط التصفية في أي وقت.
1. انقرKUTOOLS PLUS > مرشح متقدملعرض دالةمرشح متقدم. انظر لقطة الشاشة:
2. في جزءمرشح متقدم، انقر
لتحديد نطاق البيانات الذي تريد تصفيةه، ثم فعّل خانة الاختيار «المحدد» لتثبيت نطاق التصفية. راجع لقطة الشاشة التالية:
3. في جزءمرشح متقدم، انقر على سطر ضمن مجموعة التصفية، ثم حدد شروط التصفية من القائمة المنسدلة حسب احتياجاتك، وانقر «موافق» لإنهاء ضبط المعايير. انظر لقطة الشاشة:
4. انقرتصفية، وستُصفَّى البيانات المحددة وفقًا للمعايير، وفي الوقت نفسه سترى أن شروط التصفية معروضة في جزءمرشح متقدم. انظر لقطة الشاشة:
ملاحظة: يمكنك حفظ شروط التصفية كسيناريو لاستخدامه لاحقًا عبر أداة المرشح المتقدم.
1. انقر على زرحفظ السيناريو الحالي، ثم اكتب اسم التصفية في مربع الحوار المنبثق.
2. عندما تريد استخدام إعدادات هذا المرشّح في المرة القادمة، انقر على زر القائمة، ثم اختر السيناريو من القائمة الفرعية لـتحميل سيناريو موجود.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: عرض شروط التصفية أثناء التصفية باستخدام Kutools لـ 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل