Note: The other languages of the website are Google-translated. Back to English

วิธีแสดง / แสดงเกณฑ์การกรองอัตโนมัติใน 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 สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (4)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ดีมากและช่วยฉันได้มาก ฉันพบปัญหาเมื่อพยายามเลือกเกณฑ์การกรองใหม่ เซลล์ที่แสดงเกณฑ์ตัวกรองที่เลือกไม่รีเฟรชเมื่อฉันเลือกเกณฑ์ใหม่ โปรดช่วย ขอบคุณ เวนดี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณสำหรับรหัส มันใช้งานได้อย่างมีเสน่ห์ สิ่งหนึ่งที่ฉันมีปัญหากับมัน - เมื่อฉันเลือกเกณฑ์การกรอง เซลล์ที่กำหนดจะแสดงตามที่ฉันเลือกไว้ ถ้าฉันเลือกเกณฑ์ที่แตกต่างกันสองเกณฑ์ เนื้อหาในเซลล์ที่กำหนดจะไม่รีเฟรช ดูเหมือนว่าจะติดอยู่ที่การเลือกตัวกรองครั้งแรกของฉัน มีอะไรที่ฉันสามารถทำได้หรือไม่? ขอบคุณเวนดี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสสำหรับแสดงเกณฑ์การกรองอัตโนมัติในเวิร์กชีตใช้งานได้ดี ตามที่แนะนำ ถ้ามีมากกว่าสองเกณฑ์ ฉันจะพิมพ์ข้อความว่า 'หลายเกณฑ์' อย่างไรก็ตาม ฉันต้องการสร้างรายการว่าเกณฑ์หลายข้อคืออะไร เป็นไปได้ไหม? ไชโย, อเล็กซ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Dear Sir, โปรดดูที่นี่ด้านล่างแบบสอบถามที่กล่าวถึงเพื่อความเข้าใจที่ง่ายของคุณ ฉันต้องการดูผลลัพธ์ในคอลัมน์ E7 เมื่อฉันกรองข้อมูลในคอลัมน์ A3 (คอลัมน์ E7) ชื่อผู้ขาย: (คอลัมน์ A3) ชื่อผู้ขาย Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est แอมตาร์ อัล-วาตาน คอนสตรัค & การพัฒนา โดยประมาณ อาหรับ อัล-ทามุซ เพื่อการต่อ โดยประมาณ อาร์คาล เอส. สำหรับต่อ Danat Al-Rayan Grey Falcon
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL