วิธีการใช้ตัวกรองอัตโนมัติโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลงใน Excel

ใน Excel เมื่อคุณใช้ไฟล์ กรอง ฟังก์ชันในการกรองข้อมูลผลการกรองจะไม่เปลี่ยนแปลงโดยอัตโนมัติเมื่อมีการเปลี่ยนแปลงข้อมูลในข้อมูลที่กรองของคุณ ตัวอย่างเช่นเมื่อฉันกรองแอปเปิ้ลทั้งหมดจากข้อมูลตอนนี้ฉันเปลี่ยนหนึ่งในข้อมูลที่กรองแล้วเป็น BBBBBB แต่ผลลัพธ์จะไม่เปลี่ยนแปลงเช่นเดียวกับภาพหน้าจอที่แสดงต่อไปนี้ บทความนี้ฉันจะพูดถึงวิธีการใช้ตัวกรองอัตโนมัติอีกครั้งโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลงใน Excel

ตัวกรองรีเฟรช doc auot 1

ใช้ตัวกรองอัตโนมัติอีกครั้งโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลงด้วยรหัส VBA

ใช้ตัวกรองอัตโนมัติอีกครั้งโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลงด้วยรหัส VBA

โดยปกติคุณสามารถรีเฟรชข้อมูลตัวกรองได้โดยคลิกที่คุณสมบัติ Reapply ด้วยตนเอง แต่ที่นี่ฉันจะแนะนำรหัส VBA เพื่อให้คุณรีเฟรชข้อมูลตัวกรองโดยอัตโนมัติเมื่อข้อมูลมีการเปลี่ยนแปลงโปรดทำดังนี้:

1. ไปที่แผ่นงานที่คุณต้องการรีเฟรชตัวกรองอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลง

2. คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในหน้าต่างโมดูลว่างดูภาพหน้าจอ:

รหัส VBA: ใช้ตัวกรองอีกครั้งโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลง:

Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub

ตัวกรองรีเฟรช doc auot 2

หมายเหตุ: ในโค้ดด้านบน ฮิตแผ่น คือชื่อของแผ่นงานที่มีตัวกรองอัตโนมัติที่คุณใช้โปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณเปลี่ยนข้อมูลที่กรองแล้วไฟล์ กรอง ฟังก์ชั่นจะรีเฟรชอัตโนมัติในครั้งเดียวดูภาพหน้าจอ:

ตัวกรองรีเฟรช doc auot 3

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

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

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

เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

ความคิดเห็น (36)

ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1

วินิซิอุส

ประมาณ 5 ปีที่แล้ว

#18825

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี ฉันจะใช้ทั้งหมดนี้ใน Google Finance ได้อย่างไร Tks

ตอบ

Arif

ประมาณ 5 ปีที่แล้ว

#20038

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ดี..ต้องการมันจริงๆ

ตอบ

ดึง

ประมาณ 5 ปีที่แล้ว

#20154

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

II ต้องการเปลี่ยนแปลงในแผ่นงานเดียวเพื่อทำให้แผ่นงานอื่น ๆ หลายแผ่นกรองอัตโนมัติ ฉันจะเปลี่ยนรหัสนี้ได้อย่างไร เช่น มีการเปลี่ยนแปลง SheetA ซึ่งทำให้ Sheet1, Sheet2 และ Sheet3 ใช้ตัวกรองอัตโนมัติ ขอบคุณ!

ตอบ

ไบรอัน

ประมาณ 5 ปีที่แล้ว

#20510

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ฉันกำลังทำเช่นนี้สำหรับด้านหน้าในชีตเมื่อเซลล์ถูกตั้งค่าเป็น =sheet1!E6 จะไม่ใช้ตัวกรองเมื่อมีการเปลี่ยนแปลง ถ้าฉันเปลี่ยนตัวเลขในแผ่นหลัง มันจะปรับด้านหน้าแต่ไม่กรอง ถ้าปรับสูตรเพื่อกรองเกณฑ์ก็จะใช้ใหม่ ฉันจะทำอย่างไร?

ตอบ

ซาด ไบรอัน

ประมาณ 5 ปีที่แล้ว

#20511

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ใช้คำสั่งนี้
Private Sub Work_Change (เป้าหมาย ByVal เป็นช่วง)
Activesheet.AutoFilter.ApplyFilter
ย่อยสิ้นสุด

ตอบ

Sabrina

ประมาณ 5 ปีที่แล้ว

#20527

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ฉันไม่สามารถทำงานให้ฉันได้เลย ฉันกำลังพยายามดึงข้อมูลจากมาสเตอร์ชีตและให้รับเฉพาะงานที่ใช้กับผู้จัดการโครงการบางรายในแต่ละแท็บที่มีชื่อเท่านั้น ฉันยังต้องการให้รีเฟรชอัตโนมัติเมื่อฉันทำการเปลี่ยนแปลง

ตอบ

ซาด

ประมาณ 5 ปีที่แล้ว

#20682

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

คำสั่งนี้ปลอมทั้งหมดไม่ทำอะไรเลย พยายามอย่างเต็มที่ แต่ใช้ไม่ได้

ตอบ

เดฟ เจ

ประมาณ 5 ปีที่แล้ว

#20982

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ใช้งานได้ดีและช่วยฉันประหยัดเวลาและยุ่งเกี่ยวกับ.. เคล็ดลับที่ดีจริงๆ.. ขอบคุณมากสำหรับความช่วยเหลือของคุณ

ตอบ

ไมค์ที

ประมาณ 4 ปีที่แล้ว

#24620

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

โซลูชันนี้ทำงานได้อย่างสมบูรณ์ ขอบคุณสำหรับการเขียนขึ้น! หากใครกำลังประสบปัญหา มีบางสิ่งที่ต้องพิจารณา

ขั้นแรก เรียกเหตุการณ์ Worksheet_Change แบบแผ่นต่อแผ่น ซึ่งหมายความว่าถ้าคุณมีแผ่นงานหลายแผ่นที่มีตัวกรองที่คุณต้องการอัปเดต คุณจะต้องตอบสนองต่อเหตุการณ์เหล่านั้นทั้งหมด หนึ่งรูทีนย่อย Worksheet_Change สำหรับแต่ละเวิร์กชีต ไม่ใช่หนึ่งรูทีนย่อยสำหรับเวิร์กบุ๊กทั้งหมด (หนึ่งข้อยกเว้น - ดูหมายเหตุด้านล่าง)

ประการที่สอง และต่อจากอันแรก โค้ดจะต้องอยู่ในโมดูลโค้ดเฉพาะสำหรับเวิร์กชีตที่จะตรวจสอบ โมดูลโค้ดเปลี่ยนได้ง่าย (โดยไม่ได้ตั้งใจ) เมื่อคุณเข้าสู่โปรแกรมแก้ไข VB ดังนั้นจึงต้องระมัดระวังในการจัดวางโมดูลเฉพาะสำหรับชีตที่คุณต้องการตรวจสอบการเปลี่ยนแปลงข้อมูล

ประการที่สาม ยังไม่ได้รับการยืนยัน แต่อาจเป็นจุดผิดพลาด ตัวอย่างใช้ชื่อชีตของ "Sheet1", "Sheet2" เป็นต้น หากคุณเปลี่ยนชื่อชีต คุณอาจต้องอัปเดตโค้ด หมายเหตุในตัวอย่าง Sheet7 ได้รับชื่อ "dfdf" หากคุณต้องการอัปเดตตัวกรองที่นั่น คุณจะต้องใช้
ชีต("dfdf").AutoFilter.ApplyFilter
ไม่;
ชีต("Sheet7")).AutoFilter.ApplyFilter

อาจเป็นการดีที่จะอัปเดตบทความรวมถึงตัวอย่างด้วยแผ่นงานที่เปลี่ยนชื่อ

สุดท้าย ถ้าคุณต้องการตรวจสอบการเปลี่ยนแปลงข้อมูลในแผ่นงานหนึ่งแผ่น แต่อัปเดตตัวกรองในหลายแผ่นงาน คุณจะต้องมีรูทีนย่อยเพียงชุดเดียวที่วางไว้ในโมดูลโค้ดของเวิร์กชีตที่คุณกำลังตรวจสอบ รหัสจะมีลักษณะดังนี้

# (ต้องวางรหัสในแผ่นงานเพื่อตรวจสอบการเปลี่ยนแปลงข้อมูล)
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
ชีต("Sheet1")).AutoFilter.ApplyFilter
ชีต("Sheet2")).AutoFilter.ApplyFilter
ชีต("Sheet3")).AutoFilter.ApplyFilter
ชีต("Sheet4")).AutoFilter.ApplyFilter
ย่อยสิ้นสุด

ตอบ

สกายหยาง ไมค์ที

ประมาณ 4 ปีที่แล้ว

#24621

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดีไมค์
ขอบคุณสำหรับคำอธิบายโดยละเอียดของคุณ

ตอบ

รายงาน

ลุค โฮ ไมค์ที

ประมาณ 4 ปีที่แล้ว

#24622

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

อธิบายได้ดีมาก ขอบคุณครับ

แต่ฉันจะทริกเกอร์ชีต ("Sheet3") ได้อย่างไร AutoFilter.ApplyFilter เมื่อสร้างชีตใหม่
เนื่องจากฉันยังเขียนโค้ดที่คุณพูดถึงบนแผ่นงานที่ยังไม่มีไม่ได้

ตอบ

กริชของชาวสกอต ไมค์ที

ประมาณ 1 ปีที่แล้ว

#24623

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ที่ดีขอขอบคุณ!

ตอบ

สตีฟมิลเลอร์

ประมาณ 4 ปีที่แล้ว

#24681

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ทำงานเหมือนแชมป์และเรียบง่ายมาก ขอบคุณมาก!

ตอบ

รายงาน

คริส

ประมาณ 4 ปีที่แล้ว

#24736

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

นี้ดูเหมือนที่ดี คุณช่วยบอกวิธีการทำแบบเดียวกันกับ Sort แทน Filter ได้ไหม

ตอบ

สกายหยาง คริส

ประมาณ 4 ปีที่แล้ว

#24737

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดีคริส
อาจเป็นไปได้ บทความต่อไปนี้สามารถแก้ปัญหาของคุณได้ โปรดดู:

https://www.extendoffice.com/documents/excel/2592-excel-auto-sort-by-value.html

โปรดลอง!

ตอบ

รายงาน

อเล็กซ์

ประมาณ 4 ปีที่แล้ว

#24767

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี ใช้งานได้ดี แต่เมื่อเปลี่ยนข้อมูลในตารางด้วยตนเองเท่านั้น

ฉันมีตารางการกรองสไตล์ 'สิบอันดับแรก/ลีดเดอร์บอร์ด' ซึ่งเติมจากการป้อนข้อมูลในเวิร์กชีตแยกต่างหาก (อันที่จริง ข้อมูลต้องผ่าน 3 แผ่นงานก่อนที่จะไปที่ตาราง) เมื่อข้อมูลมีการเปลี่ยนแปลงในเวิร์กชีตการป้อนข้อมูล ตารางลีดเดอร์บอร์ดจะอัปเดตข้อมูล อย่างไรก็ตาม ตัวกรองไม่รีเฟรชอัตโนมัติ
ความคิดใด ๆ เกี่ยวกับวิธีการทำเช่นนั้น?
ภาระผูกพันมาก
อเล็กซ์

ตอบ

รายงาน

แดนนี่ อเล็กซ์

ประมาณ 3 ปีที่แล้ว

#24768

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ฉันมีปัญหาเดียวกันกับเธอ ใครสามารถช่วยเราออก?

ตอบ

เทรซี่ แดนนี่

เกี่ยวกับเดือนที่ผ่านมา 8

#38350

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ฉันมีปัญหาเดียวกัน ฉันกำลังพยายามกรองแผ่นงาน 2 อัตโนมัติที่มีข้อมูลที่มาจากแผ่นงาน 1 จะใช้งานได้ก็ต่อเมื่อฉันเปลี่ยนข้อมูลในแผ่นที่ 2 ไม่ใช่ในแผ่นที่ 1
มีความคิดเห็นเกี่ยวกับสาเหตุที่ใช้งานไม่ได้และจะแก้ไขได้อย่างไร

ตอบ

ทอม

ประมาณ 4 ปีที่แล้ว

#25472

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี ดูเหมือนว่าจะใช้งานได้ดี แต่ฉันมีปัญหาเมื่อมีตัวกรองมากกว่าหนึ่งตัวในเวิร์กชีตเดียวกัน (แท็บ) ฉันแปลงช่วงของเซลล์เป็นตารางเพื่อให้สามารถแยกตัวกรองหลายตัวภายในเวิร์กชีตเดียวกันได้ ตัวอย่างนี้ดูเหมือนจะอัปเดตหนึ่งในตาราง/ตัวกรองเท่านั้น มีคำแนะนำเกี่ยวกับวิธีการอัปเดตตาราง/ตัวกรองทั้งหมดภายในเวิร์กชีตหรือไม่

ขอบคุณมาก,

ทอม

ตอบ

สกายหยาง ทอม

ประมาณ 4 ปีที่แล้ว

#25473

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดีทอม
โค้ดในบทความนี้ใช้ได้ดีกับหลายตารางภายในเวิร์กชีต คุณเพียงแค่ต้องกดแป้น Enter หลังจากเปลี่ยนข้อมูลแทนที่จะคลิกไปยังเซลล์อื่น
โปรดลอง

ตอบ

รายงาน

ริซชี่

ประมาณ 4 ปีที่แล้ว

#26695

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

เทริมะ คาซิห์

สังกัท เมมบันตู

ตอบ

ปูลี่

ประมาณ 4 ปีที่แล้ว

#27684

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ใช้ไม่ได้กับตัวกรองตามการเลือกรายการ https://www.extendoffice.com/documents/excel/4113-excel-filter-based-on-list-selection.html

ตอบ

โจ

ประมาณ 3 ปีที่แล้ว

#28749

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ที่ยอดเยี่ยมและง่ายที่จะทำ ขอบคุณมาก!

ตอบ

เดวิด

ประมาณ 3 ปีที่แล้ว

#28906

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี

รหัสนี้ใช้งานได้ดี ขอบคุณมาก

อย่างไรก็ตาม ฉันมีปัญหาเล็กน้อยกับมัน - ถ้าฉันเปลี่ยนค่าในเซลล์ใดๆ ที่ไม่ได้เป็นส่วนหนึ่งของตาราง ฉันจะได้รับข้อผิดพลาดรันไทม์โดยแจ้งว่า:

"ข้อผิดพลาดรันไทม์ '91':

ตัวแปรอ็อบเจ็กต์หรือด้วยตัวแปรบล็อกไม่ได้ตั้งค่า"

ฉันมีตัวเลือกในการดีบักหรือสิ้นสุด ตัวเลือกในการดำเนินการต่อเป็นสีเทา ฉันสามารถคลิกที่ "สิ้นสุด" และโค้ดยังคงใช้งานได้ แต่มันน่ารำคาญมากที่ต้องจัดการกับหน้าต่างป๊อปอัปนี้หลังจากการเปลี่ยนแปลงทุกครั้ง

ใครมีประสบการณ์คล้ายกันหรือข้อเสนอแนะเกี่ยวกับวิธีการเรียงลำดับนี้?

ขอบคุณ!

ตอบ

สกายหยาง เดวิด

ประมาณ 3 ปีที่แล้ว

#28907

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี เดวิด
ในการแก้ปัญหาของคุณ คุณสามารถใช้รหัสต่อไปนี้:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("Sheet3")).AutoFilter.ApplyFilter
ย่อยสิ้นสุด

โปรดลอง หวังว่าจะช่วยคุณได้!

ตอบ

รายงาน

เดวิด สกายหยาง

ประมาณ 3 ปีที่แล้ว

#28908

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี สกายหยาง

ฉันได้นำโซลูชันของคุณไปใช้แล้วและได้รับการแก้ไขแล้ว

ขอบคุณมาก!

ตอบ

Adrien เดวิด

ประมาณ 1 ปีที่แล้ว

#28909

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี ฉันมีปัญหาเดียวกัน วางรหัสใหม่และเปลี่ยนชื่อชีต แต่ไม่มีอะไรเกิดขึ้น ตัวกรองไม่อัปเดต

ตอบ

เอเดรีย Adrien

เกี่ยวกับเดือนที่ผ่านมา 4

#40195

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ปัญหาเดียวกันที่นี่เช่นกัน มีวิธีแก้ไขที่อัปเดตหรือไม่

ตอบ

นีล

ประมาณ 3 ปีที่แล้ว

#29817

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ใช้งานไม่ได้ใน office 365
ข้อเสนอแนะใด ๆ

ตอบ

จิมวิลสัน

ประมาณ 3 ปีที่แล้ว

#30866

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี ขอบคุณมากสำหรับความช่วยเหลือ มีบางอย่างใช้งานไม่ได้สำหรับฉัน นี่คือเรื่องราว

Sheet1 มีข้อมูลตัวแปร Sheet3 มีข้อมูลคงที่และตัวกรอง เกณฑ์การกรองใน "Sheet3" มาจาก Sheet1 Sheet1 มีข้อมูลที่มาจากผลลัพธ์ที่กรองใน Sheet3

Sheet3 มีรหัส:

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
Range("A1:U14")).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A22:U23"), CopyToRange:=Range("A25:U26"), Unique:=False
ย่อยสิ้นสุด

ใช้งานได้ดีถ้าฉันทำอะไรกับ Sheet3 ไม่มีปัญหา. ขอขอบคุณ!

ตอนแรกฉันมีรหัสใน Sheet1:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
ชีต("Sheet3")).AutoFilter.ApplyFilter
ย่อยสิ้นสุด

ซึ่งส่งผลให้เกิดข้อผิดพลาด "ข้อผิดพลาดรันไทม์ 91, Object Variable หรือ With Block not Set"

ฉันเปลี่ยนรหัสตามความคิดเห็นเป็น:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("Sheet3")).AutoFilter.ApplyFilter
ย่อยสิ้นสุด

ตอนนี้ฉันไม่ได้รับข้อผิดพลาด แต่ข้อมูลใน Sheet3 และ Sheet1 จะไม่เปลี่ยนแปลง กล่าวคือ เหตุการณ์ของการใช้ตัวกรองกับ Sheet3 จะไม่เกิดขึ้นเมื่อฉันทำการเปลี่ยนแปลงใน Sheet1 โดนตีก็ไม่เป็นไร หรือคลิกที่เซลล์อื่นหลังจากเปลี่ยนเซลล์เกณฑ์ตัวกรอง Sheet3 ที่ตั้งค่าไว้ใน Sheet1

นอกจากนี้ ฉันคาดหวังว่าหากฉันต้องการมีหลายเซลล์ใน Sheet1 ที่ทำให้เกิดตัวกรองในชีต 4 และ 5 นอกเหนือจาก Sheet3 ฉันจะต้องใช้โค้ดในชีต 1 เพื่ออ่าน:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("Sheet3")).AutoFilter.ApplyFilter
ชีต("Sheet4")).AutoFilter.ApplyFilter
ชีต("Sheet5")).AutoFilter.ApplyFilter
ย่อยสิ้นสุด

ขอขอบคุณอีกครั้ง!

ตอบ

รายงาน

แอนโทนี่

ประมาณ 3 ปีที่แล้ว

#30876

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี

นี่เป็นรหัสที่ดี ขอบคุณ ปัญหาเดียวที่ฉันมีคือฉันกำลังใช้เมนูแบบเลื่อนลงบนแผ่นแผนภูมิแยกต่างหาก ถ้าฉันเปลี่ยนค่าในเซลล์ที่เกี่ยวข้องกับดรอปดาวน์ด้วยตนเอง ก็ใช้งานได้ แต่เมื่อฉันพยายามใช้เมนูแบบเลื่อนลง มันจะไม่อัปเดต ความคิดใด?

ตอบ

แดนนี่

ประมาณ 3 ปีที่แล้ว

#30921

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ที่จริงฉันมีข้อมูลจากไฟล์ Excel อื่นที่นำเข้าในแผ่นงาน Excel ที่ชื่อ "ฐานข้อมูล" จากนั้นฉันก็นำเข้าข้อมูลนี้ในไฟล์ Excel เดียวกัน แต่ใน "ภาพรวม" ของ ExcelSheet อื่น ฉันต้องการเมื่อข้อมูลเปลี่ยนแปลงในแหล่งที่มาดั้งเดิม ตัวกรองจะนำไปใช้ในแผ่นงาน "ภาพรวม" ขอบคุณล่วงหน้าสำหรับผู้ที่สามารถช่วยฉันได้ :) PS ไม่สามารถใช้ VBA ใน excelsheet แรกได้

ตอบ

มีความคิดเห็นยังไม่มีการโพสต์ที่นี่

โหลดเพิ่มเติม

แสดงความคิดเห็นของคุณ

โพสต์ในฐานะแขก

ชื่อผู้ใช้

ชื่อ (จำเป็น)

อีเมล์ (จำเป็น)

ให้คะแนนโพสต์นี้:

รีเซ็ต

0 ตัวอักษร

ผมเห็นด้วยกับ ข้อกำหนดและเงื่อนไข