กรองเกณฑ์หลายเกณฑ์ใน Excel ด้วย VBA (ทั้งประเภท AND และ OR)

ในบทความนี้ ฉันจะแสดงวิธีกรองเกณฑ์หลายเกณฑ์จากชุดข้อมูลด้วย VBA ใน Excel คุณจะได้เรียนรู้การกรองทั้ง และ พิมพ์และ หรือ พิมพ์หลายเกณฑ์

2 วิธีง่ายๆ ในการกรองเกณฑ์หลายเกณฑ์ใน Excel ด้วย VBA

เรามีชุดข้อมูลที่มีชื่อ ประเภทหนังสือ และราคาของร้านหนังสือชื่อ Martin Bookstore

วัตถุประสงค์ของเราในวันนี้คือการกรองเกณฑ์หลายเกณฑ์จากชุดข้อมูลนี้ด้วย Visual Basic of Applications (VBA )

1. กรองหลายเกณฑ์ของ AND Type ใน Excel ด้วย VBA

ก่อนอื่น เราจะพัฒนา มาโคร เพื่อกรองเกณฑ์หลายเกณฑ์ของ และ สำหรับชุดข้อมูลใด ๆ

ตัวอย่างเช่น ลองกรองหนังสือที่เป็นนวนิยาย และมีราคาที่มากกว่า $25.00 .

⧭ รหัส VBA:

Sub Filter_Multiple_Criteria_AND_Type()

Count = 1
For i = 1 To Selection.Rows.Count

    If Selection.Cells(i, 2) = "Novel" And Selection.Cells(i, 3) >= 25 Then

        For j = 1 To Selection.Columns.Count

            Range("F4").Cells(Count, j) = Selection.Cells(i, j)

        Next j

        Count = Count + 1

    End If

Next i

End Sub

⧭ ผลลัพธ์:

เลือกชุดข้อมูลจากแผ่นงานและเรียกใช้ มาโคร (Filter_Multiple_Criteria_AND_Type )

มันจะกรองหนังสือที่เป็นนวนิยาย และมีราคามากกว่า $25.00 ในช่วงใหม่โดยเริ่มจากเซลล์ F4 .

⧭ หมายเหตุ:

• ในวันที่ 4 โค้ดนี้เราใช้ Cells(i, 2) =“Novel” และ Selection.Cells(i, 2)>=25 .

• ที่นี่เราต้องการค่าจาก ที่ 2 คอลัมน์ (ประเภทหนังสือ ) ให้เท่ากับ “นวนิยาย” และตั้งแต่ 3 คอลัมน์ (ราคา ) มากกว่าหรือเท่ากับ $25.00 .
• คุณเปลี่ยนสิ่งเหล่านี้ได้ตามความต้องการของคุณ
• ตัวอย่างเช่น หากคุณต้องการหนังสือที่มีราคามากกว่าหรือเท่ากับ $20.00 แต่น้อยกว่าหรือเท่ากับ $30.00 , ใช้ Selection.Cells(i, 3)>=20 และ Selection.Cells(i, 3) <=30.
• อยู่ในบรรทัด 6 . ด้วย เราใช้ ช่วง(“F4”) เพราะเราต้องการให้ข้อมูลที่กรองเริ่มต้นจากเซลล์ F4 .

• คุณเปลี่ยนตามนั้น

อ่านเพิ่มเติม: กรองเกณฑ์หลายเกณฑ์ใน Excel

การอ่านที่คล้ายกัน

• วิธีการกรองแบบกำหนดเองใน Excel (5 วิธี)
• เพิ่มตัวกรองใน Excel (4 วิธี)
• ทางลัดสำหรับตัวกรอง Excel (3 การใช้งานอย่างรวดเร็วพร้อมตัวอย่าง)
• วิธีใช้ตัวกรองข้อความใน Excel (5 ตัวอย่าง)

2. กรองหลายเกณฑ์ของ OR พิมพ์ใน Excel ด้วย VBA

ต่อไป เราจะพัฒนา มาโคร เพื่อกรองเกณฑ์หลายเกณฑ์ของ OR สำหรับชุดข้อมูลใด ๆ

ตัวอย่างเช่น ลองกรองหนังสือที่เป็นนวนิยาย หรือมีราคามากกว่า $25.00 ครั้งนี้

⧭ รหัส VBA:

Sub Filter_Multiple_Criteria_Or_Type()

Count = 1

For i = 1 To Selection.Rows.Count

    If Selection.Cells(i, 2) = "Novel" Or Selection.Cells(i, 3) >= 25 Then

        For j = 1 To Selection.Columns.Count

            Range("F4").Cells(Count, j) = Selection.Cells(i, j)

        Next j

        Count = Count + 1

    End If

Next i
End Sub

⧭ ผลลัพธ์:

เลือกชุดข้อมูลจากแผ่นงานและเรียกใช้ มาโคร (Filter_Multiple_Criteria_OR_Type )

มันจะกรองหนังสือที่เป็นนวนิยาย หรือมีราคามากกว่า $25.00 ในช่วงใหม่โดยเริ่มจากเซลล์ F4 .

⧭ หมายเหตุ:

• ในวันที่ 4 บรรทัดของรหัส เราใช้ Selection.Cells(i, 2) =“Novel” หรือ Selection.Cells(i, 2)>=25 .

• ที่นี่เราต้องการค่าจาก ที่ 2 คอลัมน์ (ประเภทหนังสือ ) ให้เท่ากับ “นวนิยาย” หรือว่าตั้งแต่ 3 คอลัมน์ (ราคา ) มากกว่าหรือเท่ากับ $25.00 .
• คุณเปลี่ยนสิ่งเหล่านี้ได้ตามความต้องการของคุณ
• อยู่ในบรรทัด 6 . ด้วย เราใช้ ช่วง(“F4”) เพราะเราต้องการให้ข้อมูลที่กรองเริ่มต้นจากเซลล์ F4 .

อ่านเพิ่มเติม: วิธีการใช้ตัวกรองหลายตัวใน Excel [วิธีการ + VBA]

สิ่งที่ควรจำ

เราใช้เกณฑ์สองข้อสำหรับเกณฑ์หลายเกณฑ์ คุณสามารถใช้เกณฑ์ได้มากเท่าที่คุณต้องการ เพียงเข้าร่วมเกณฑ์ทั้งหมดด้วย และ หรือ หรือ ตามเงื่อนไข

บทสรุป

เมื่อใช้วิธีการเหล่านี้ คุณสามารถกรองเกณฑ์หลายเกณฑ์ใน Excel ด้วย VBA ของทั้ง และ และ หรือ ประเภท คุณมีคำถามใด ๆ หรือไม่? อย่าลังเลที่จะถามเรา และอย่าลืมเยี่ยมชมเว็บไซต์ของเรา ExcelDemy สำหรับโพสต์และการอัปเดตเพิ่มเติม

อ่านเพิ่มเติม

• วิธีการกรองหลายคอลัมน์ใน Excel อย่างอิสระ
• ค้นหาหลายรายการในตัวกรอง Excel (2 วิธี)
• วิธีลบตัวกรองใน Excel (5 วิธีง่ายๆ และรวดเร็ว)
• กรองตามวันที่ใน Excel (4 วิธีด่วน)