วิธีล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่ใน Excel
สมมติว่าคุณได้สร้างตัวกรองหลายตัวในแผ่นงานต่างๆในสมุดงาน Excel และตอนนี้คุณต้องการล้างตัวกรองเหล่านี้ทั้งหมดพร้อมกัน โดยปกติคุณต้องเปลี่ยนไปที่แผ่นงานทีละแผ่นเพื่อตรวจสอบตัวกรองจากนั้นล้างด้วยตนเอง มีวิธีการใดที่สะดวกในการล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่หรือไม่? โปรดลองใช้วิธีการในบทความนี้
ล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่ด้วยรหัส VBA
ล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่ด้วยรหัส VBA
โปรดเรียกใช้สคริปต์ VBA ด้านล่างเพื่อล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่
1. ในสมุดงานที่คุณต้องการล้างตัวกรองโปรดกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางสคริปต์ VBA ด้านล่างลงในหน้าต่างโมดูล ดูภาพหน้าจอด้านล่าง:
รหัส VBA: ล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นตัวกรองทั้งหมดในแผ่นงานทั้งหมดในสมุดงานปัจจุบันจะถูกล้างทันที
บทความที่เกี่ยวข้อง:
- วิธีล้างแคชตัวกรอง (รายการเก่า) จาก Pivot Table ใน Excel
- วิธีล้างตัวกรองเมื่อเปิดบันทึกหรือปิดสมุดงานใน Excel
- วิธีกรองข้อมูลตามช่องทำเครื่องหมายใน Excel
- วิธีเติมชุดตัวเลขในคอลัมน์รายการที่กรองใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
