วิธีแสดง / แสดงเกณฑ์การกรองอัตโนมัติใน Excel

ตัวกรองอัตโนมัติเป็นคุณลักษณะที่มีประโยชน์สำหรับผู้ใช้ Excel บางครั้งเราใช้ตัวกรองอัตโนมัติเพื่อกรองข้อมูลตามเกณฑ์หลายข้อและส่งไฟล์ไปให้ผู้อื่น ในสถานการณ์นี้หากผู้ใช้รายอื่นต้องการทราบเกณฑ์ที่กรองของคุณพวกเขาจะทำอย่างไร

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วยฟังก์ชันที่กำหนดโดยผู้ใช้

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วยรหัส VBA

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วย Kutools for Excel

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วยฟังก์ชันที่กำหนดโดยผู้ใช้

สมมติว่าคุณมีข้อมูลต่อไปนี้ซึ่งถูกกรองโดยเกณฑ์บางอย่างโปรดดูภาพหน้าจอ:

และตอนนี้ฉันสามารถสร้าง User Defined Function เพื่อแสดงเกณฑ์การกรองลงในเซลล์ได้แล้วโปรดทำตามขั้นตอนต่อไปนี้:

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic สำหรับแอปพลิเคชัน.

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. จากนั้นกด เข้าสู่ จากนั้นเลือกเซลล์ A1 ลากที่จับเติมไปยังเซลล์ด้านขวาที่คุณต้องการมีสูตรนี้และเกณฑ์ทั้งหมดจะแสดงในเซลล์ดูภาพหน้าจอ:

หมายเหตุ:หากมีเกณฑ์มากกว่าสองเกณฑ์ในคอลัมน์ ฟังก์ชันที่ผู้ใช้กำหนดนี้จะไม่ให้ผลลัพธ์ที่ถูกต้อง

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วยรหัส VBA

ที่นี่ฉันสามารถพูดคุยเกี่ยวกับรหัส VBA ที่น่าสนใจซึ่งสามารถช่วยคุณในการแสดงเกณฑ์การกรองในเซลล์ของสมุดงาน

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic สำหรับแอปพลิเคชัน.

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. จากนั้นคลิก OKเกณฑ์ทั้งหมดได้แสดงไว้ในเซลล์ที่เลือกดังนี้:

หมายเหตุ

ด้วยรหัส VBA นี้หากเกณฑ์ของคุณมากกว่าสองในคอลัมน์จะไม่แสดงเกณฑ์การกรองโดยละเอียด แต่จะแสดงดังนี้:

แสดง / แสดงเกณฑ์การกรองอัตโนมัติในแผ่นงานด้วย Kutools for Excel

ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งแล้วคุณสามารถใช้ไฟล์ ซุปเปอร์ฟิลเตอร์ ฟังก์ชั่นกรองข้อมูลและในเวลาเดียวกันคุณสามารถดูเกณฑ์การกรองได้ตลอดเวลา

1 คลิก Kutools พลัส > ซุปเปอร์ฟิลเตอร์ เพื่อแสดง ซุปเปอร์ฟิลเตอร์ ฟังก์ชัน ดูภาพหน้าจอ:

2 ใน ซุปเปอร์ฟิลเตอร์ บานหน้าต่างคลิก  เพื่อเลือกช่วงข้อมูลที่คุณต้องการกรองจากนั้นเลือกช่องทำเครื่องหมายระบุเพื่อแก้ไขช่วงตัวกรอง ดูภาพหน้าจอ:

3 ใน ซุปเปอร์ฟิลเตอร์ บานหน้าต่างคลิกเส้นในกลุ่มตัวกรองจากนั้นระบุเกณฑ์การกรองในรายการแบบเลื่อนลงตามที่คุณต้องการจากนั้นคลิกตกลงเพื่อสิ้นสุดการตั้งค่าเกณฑ์ ดูภาพหน้าจอ:

4 คลิก ตัวกรองและข้อมูลที่เลือกถูกกรองตามเกณฑ์และในขณะนั้นคุณสามารถดูเกณฑ์การกรองที่ไม่เหมาะสมได้ใน ซุปเปอร์ฟิลเตอร์ บานหน้าต่าง ดูภาพหน้าจอ:

หมายเหตุ: คุณสามารถบันทึกเกณฑ์การกรองเป็นสถานการณ์สำหรับใช้ครั้งต่อไปได้ด้วยยูทิลิตี้ Super Filter

1 คลิกที่ บันทึกการตั้งค่าตัวกรองปัจจุบัน ในกล่องโต้ตอบ popping พิมพ์ชื่อตัวกรอง

2. เมื่อคุณต้องการใช้การตั้งค่า filer นี้ในครั้งต่อไปให้คลิกปุ่มเมนูจากนั้นเลือกสถานการณ์ในเมนูย่อยของ เปิดสถานการณ์การตั้งค่าตัวกรองที่บันทึกไว้.

การสาธิต: แสดงเกณฑ์การกรองขณะกรองโดยใช้ Kutools สำหรับ Excel