Note: The other languages of the website are Google-translated. Back to English

วิธีล้างตัวกรองจากแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่ใน 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 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นตัวกรองทั้งหมดในแผ่นงานทั้งหมดในสมุดงานปัจจุบันจะถูกล้างทันที


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไอ้เจ้าบ้านี่มันลบตัวกรองของเราทั้งหมด! สคริปต์ python ทั้งหมดของเราถูกทำลายเนื่องจากใช้เวลาหลายชั่วโมง! ไปนรกคุณ SUMBAGS !!!!!!!!!!!!!!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขออภัยในความผิดพลาด รหัสได้รับการอัปเดตในโพสต์เพื่อล้างตัวกรองเท่านั้นแทนที่จะลบออก โปรดได้ลองและขออภัยในความไม่สะดวก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เหตุใดคุณจึงไม่ทดสอบอย่างเต็มที่ก่อนที่จะทำงานกับไฟล์ล่าสุด และคุณไม่มีข้อมูลสำรอง... ทำงานด้านไอทีของคุณก่อนที่จะใช้ภาษาที่รุนแรง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณได้รับความช่วยเหลือฟรีและทำให้ผู้อื่นเสื่อมเสียสำหรับความผิดพลาดที่โง่เขลาของคุณเอง คนอย่างคุณสมควรได้รับสถานที่พิเศษในนรก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้จะลบตัวกรองทั้งหมด ฉันต้องการบางสิ่งที่จะล้างตัวกรอง ไม่ใช่การลบออก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Saima ฉันมีประเด็นของคุณ รหัสได้รับการอัปเดตในโพสต์เพื่อล้างตัวกรองเท่านั้นแทนที่จะลบออก โปรดได้ลองและขออภัยในความไม่สะดวก ย่อย Auto_Open()
'ปรับปรุงโดย Extendoffice 20201113
Dim xAF เป็นตัวกรองอัตโนมัติ
Dim xFs เป็นตัวกรอง
Dim xLos เป็น ListObjects
Dim xLo เป็น ListObject
Dim xRg เป็นช่วง
Dim xWs เป็นเวิร์กชีต
xIntC หรี่, xF1, xF2, xCount As Integer
Application.ScreenUpdating = เท็จ
เกี่ยวกับข้อผิดพลาดต่อไป
สำหรับแต่ละ xWs ใน Application.Worksheets
xWs.ShowAllData
ตั้งค่า xLos = xWs.ListObjects
xCount = xLos.Count
สำหรับ xF1 = 1 ถึง xCount
ตั้งค่า xLo = xLos.Item(xF1)
ตั้งค่า xRg = xLo.Range
xIntC = xRg.Columns.Count
สำหรับ xF2 = 1 ถึง xIntC
xLo.Range.AutoFilter ฟิลด์:=xF2
ต่อไป
ต่อไป
ต่อไป
Application.ScreenUpdating = จริง

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากที่ช่วยฉันได้มาก ;=)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ทุกครั้งที่ฉันเปิดไฟล์ที่แมโครทำงานและล้างตัวกรอง จะหลีกเลี่ยง "การทำงานอัตโนมัติ" ของมาโครได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฮวน โมเรโน
ฉันขอโทษสำหรับความผิดพลาดของฉัน แทนที่บรรทัดแรก:
ย่อย Auto_Open()กับย่อย Clear_filter()กับการแก้ปัญหา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันควรเปลี่ยนบรรทัดใดเพื่อจำกัดมาโครเฉพาะแผ่นงานที่ใช้งานอยู่ แทนที่จะเป็นทั้งหมด ชื่นชมมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
@Lorif - ลบสำหรับแต่ละ xWs ใน Application.Worksheets และหนึ่งใน Nexts
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL