كيفية عرض / إظهار معايير التصفية التلقائية في Excel؟

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

عرض / إظهار معايير التصفية التلقائية في ورقة العمل باستخدام دالة معرفة من قبل المستخدم

عرض / إظهار معايير التصفية التلقائية في ورقة العمل باستخدام كود VBA

عرض / إظهار معايير التصفية التلقائية في ورقة العمل باستخدام Kutools لـ Excel

عرض / إظهار معايير التصفية التلقائية في ورقة العمل باستخدام دالة معرفة من قبل المستخدم

لنفترض أن لديك البيانات التالية التي تم تصفيتها بناءً على بعض المعايير، انظر إلى لقطة الشاشة:

والآن يمكنني إنشاء دالة معرفة من قبل المستخدم لعرض معايير التصفية في الخلايا، يرجى القيام بالخطوات التالية:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق ما يلي من الكود في نافذة الوحدة:

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. انقر فوق إدراج > وحدة، والصق ما يلي من الكود في نافذة الوحدة:

كود 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