วิธีล้างตัวกรองใน excel โดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้ไวยากรณ์ต่อไปนี้ใน VBA เพื่อล้างตัวกรองทั้งหมดจากแผ่นงาน Excel:

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

มาโครนี้จะล้างตัวกรองทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่ในปัจจุบัน

แมโครนี้ทำงานโดยใช้เมธอด ShowAllData เพื่อบังคับให้มองเห็นแถวที่ซ่อนไว้ในปัจจุบันทั้งหมด

หากไม่มีการกรองแถวบนแผ่นงานที่ใช้งานอยู่ จะไม่มีอะไรเกิดขึ้นเมื่อคุณเรียกใช้แมโครนี้

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

ตัวอย่าง: ล้างตัวกรองทั้งหมดใน Excel โดยใช้ VBA

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

ตอนนี้ สมมติว่าเราเพิ่มตัวกรองเพื่อแสดงเฉพาะแถวที่มีค่าในคอลัมน์ทีมเท่ากับ Mavs หรือ Nets:

ตอนนี้ สมมติว่าเราต้องการล้างตัวกรองนี้โดยใช้ VBA

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

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

เมื่อเราเรียกใช้มาโครนี้ ตัวกรองจะถูกล้างออกจากชีตโดยอัตโนมัติ:

โปรดทราบว่าขณะนี้แถวที่ซ่อนไว้ก่อนหน้านี้ทั้งหมดจะมองเห็นได้อีกครั้งเนื่องจากเราได้ล้างตัวกรองแล้ว

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

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

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

VBA: วิธีกรองตารางเดือย
VBA: วิธีรีเฟรชตารางเดือย
VBA: วิธีลบค่าที่ซ้ำกัน