Vba: วิธีใช้ "แตกต่างจาก" ในตัวกรองอัตโนมัติ

คุณสามารถใช้สัญลักษณ์ <> เพื่อแสดง “ไม่เท่ากับ” ในตัวกรองอัตโนมัติใน VBA

นี่เป็นวิธีทั่วไปในการดำเนินการนี้ในทางปฏิบัติ:

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

มาโครนี้จะกรองแถวทั้งหมดในช่วง A1:C11 โดยที่ค่าของคอลัมน์ที่สองไม่เท่ากับ “กึ่งกลาง”

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: ใช้ “Different From” ในตัวกรองอัตโนมัติใน VBA

สมมติว่าเรามีชุดข้อมูลต่อไปนี้ใน Excel ที่มีข้อมูลเกี่ยวกับผู้เล่นบาสเกตบอลต่างๆ:

สมมติว่าเราต้องการกรองชุดข้อมูลให้แสดงเฉพาะแถวที่มีค่าในคอลัมน์ ตำแหน่ง ไม่เท่ากับ “กึ่งกลาง”

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าชุดข้อมูลได้รับการกรองเพื่อแสดงเฉพาะแถวที่มีค่าในคอลัมน์ ตำแหน่ง ไม่เท่ากับ “กึ่งกลาง”

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

ตัวอย่างเช่น คุณสามารถสร้างแมโครต่อไปนี้เพื่อกรองชุดข้อมูลให้แสดงเฉพาะแถวที่มีค่าในคอลัมน์ ตำแหน่ง ไม่เท่ากับ “Center” หรือ “Guard”:

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center ", Criteria2:=" <>Guard "

End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ฉันสังเกตเห็นว่าชุดข้อมูลถูกกรองเพื่อแสดงเฉพาะแถวที่มีค่าในคอลัมน์ ตำแหน่ง ไม่เท่ากับ “Center” หรือ “Guard”:

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับวิธี VBA AutoFilter ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีใช้ตัวกรองอัตโนมัติที่มีหลายเกณฑ์
VBA: วิธีกรองตารางเดือย
VBA: วิธีล้างตัวกรอง