วิธีกรองแถวอัตโนมัติตามค่าเซลล์ใน Excel

โดยปกติแล้วฟังก์ชันตัวกรองใน Excel สามารถช่วยให้เรากรองข้อมูลได้ตามที่เราต้องการ แต่บางครั้งฉันต้องการกรองเซลล์อัตโนมัติตามการป้อนข้อมูลด้วยตนเองซึ่งหมายความว่าเมื่อฉันป้อนเกณฑ์ในเซลล์ข้อมูลจะสามารถ กรองโดยอัตโนมัติในครั้งเดียว มีแนวคิดที่ดีในการจัดการกับงานนี้ใน Excel หรือไม่?

แถวกรองอัตโนมัติตามค่าเซลล์ที่คุณป้อนด้วยรหัส VBA

แถวกรองอัตโนมัติตามค่าเซลล์ที่คุณป้อนด้วยรหัส VBA

สมมติว่าฉันมีช่วงข้อมูลต่อไปนี้เมื่อฉันป้อนเกณฑ์ในเซลล์ E1 และ E2 ฉันต้องการให้ข้อมูลถูกกรองโดยอัตโนมัติตามภาพด้านล่างที่แสดง:

1. ไปที่แผ่นงานที่คุณต้องการกรองวันที่โดยอัตโนมัติตามค่าเซลล์ที่คุณป้อน

2. คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล หน้าต่างดูภาพหน้าจอ:

รหัส VBA: กรองข้อมูลอัตโนมัติตามค่าเซลล์ที่ป้อน:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("E2").Address Then
       Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

หมายเหตุ: ในโค้ดด้านบน A1: C20 คือช่วงข้อมูลที่คุณต้องการกรอง E2 คือค่าเป้าหมายที่คุณต้องการกรองตามและ E1: E2 คือเซลล์เกณฑ์ของคุณจะถูกกรองตาม คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

3. ตอนนี้เมื่อคุณป้อนเกณฑ์ในเซลล์ E1 และ E2 และกด เข้าสู่ ข้อมูลของคุณจะถูกกรองโดยค่าของเซลล์โดยอัตโนมัติ

สาธิต: กรองแถวอัตโนมัติตามค่าเซลล์ที่คุณป้อนด้วยรหัส VBA