ไปยังเนื้อหาหลัก

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

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

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

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

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


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

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

doc-show-filter-criteria1

และตอนนี้ฉันสามารถสร้าง 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 เป็นเซลล์ส่วนหัวของข้อมูลที่กรอง) ดูภาพหน้าจอ:

doc-show-filter-criteria1

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

doc-show-filter-criteria1

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


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

doc-show-filter-criteria1

4. จากนั้นคลิก OKเกณฑ์ทั้งหมดได้แสดงไว้ในเซลล์ที่เลือกดังนี้:

doc-show-filter-criteria1

หมายเหตุ

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

doc-show-filter-criteria1


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

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

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

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

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

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

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

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

1. คลิก บันทึกการตั้งค่าตัวกรองปัจจุบัน ในกล่องโต้ตอบ popping พิมพ์ชื่อตัวกรอง
doc kutools ตัวกรองขั้นสูง 5

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


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations