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

วิธีการใช้ตัวกรองอัตโนมัติโดยอัตโนมัติเมื่อข้อมูลเปลี่ยนแปลงใน 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 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (36)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันจะใช้ทั้งหมดนี้ใน Google Finance ได้อย่างไร Tks
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี..ต้องการมันจริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
II ต้องการเปลี่ยนแปลงในแผ่นงานเดียวเพื่อทำให้แผ่นงานอื่น ๆ หลายแผ่นกรองอัตโนมัติ ฉันจะเปลี่ยนรหัสนี้ได้อย่างไร เช่น มีการเปลี่ยนแปลง SheetA ซึ่งทำให้ Sheet1, Sheet2 และ Sheet3 ใช้ตัวกรองอัตโนมัติ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังทำเช่นนี้สำหรับด้านหน้าในชีตเมื่อเซลล์ถูกตั้งค่าเป็น =sheet1!E6 จะไม่ใช้ตัวกรองเมื่อมีการเปลี่ยนแปลง ถ้าฉันเปลี่ยนตัวเลขในแผ่นหลัง มันจะปรับด้านหน้าแต่ไม่กรอง ถ้าปรับสูตรเพื่อกรองเกณฑ์ก็จะใช้ใหม่ ฉันจะทำอย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้คำสั่งนี้
Private Sub Work_Change (เป้าหมาย ByVal เป็นช่วง)
Activesheet.AutoFilter.ApplyFilter
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่สามารถทำงานให้ฉันได้เลย ฉันกำลังพยายามดึงข้อมูลจากมาสเตอร์ชีตและให้รับเฉพาะงานที่ใช้กับผู้จัดการโครงการบางรายในแต่ละแท็บที่มีชื่อเท่านั้น ฉันยังต้องการให้รีเฟรชอัตโนมัติเมื่อฉันทำการเปลี่ยนแปลง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำสั่งนี้ปลอมทั้งหมดไม่ทำอะไรเลย พยายามอย่างเต็มที่ แต่ใช้ไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีและช่วยฉันประหยัดเวลาและยุ่งเกี่ยวกับ.. เคล็ดลับที่ดีจริงๆ.. ขอบคุณมากสำหรับความช่วยเหลือของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โซลูชันนี้ทำงานได้อย่างสมบูรณ์ ขอบคุณสำหรับการเขียนขึ้น! หากใครกำลังประสบปัญหา มีบางสิ่งที่ต้องพิจารณา

ขั้นแรก เรียกเหตุการณ์ 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
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีไมค์
ขอบคุณสำหรับคำอธิบายโดยละเอียดของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อธิบายได้ดีมาก ขอบคุณครับ

แต่ฉันจะทริกเกอร์ชีต ("Sheet3") ได้อย่างไร AutoFilter.ApplyFilter เมื่อสร้างชีตใหม่
เนื่องจากฉันยังเขียนโค้ดที่คุณพูดถึงบนแผ่นงานที่ยังไม่มีไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่ดีขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานเหมือนแชมป์และเรียบง่ายมาก ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี้ดูเหมือนที่ดี คุณช่วยบอกวิธีการทำแบบเดียวกันกับ Sort แทน Filter ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริส
อาจเป็นไปได้ บทความต่อไปนี้สามารถแก้ปัญหาของคุณได้ โปรดดู:

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

โปรดลอง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ใช้งานได้ดี แต่เมื่อเปลี่ยนข้อมูลในตารางด้วยตนเองเท่านั้น

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

ขอบคุณมาก,

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

สังกัท เมมบันตู
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้ไม่ได้กับตัวกรองตามการเลือกรายการ https://www.extendoffice.com/documents/excel/4113-excel-filter-based-on-list-selection.html
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่ยอดเยี่ยมและง่ายที่จะทำ ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

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

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

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

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


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

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

ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เดวิด
ในการแก้ปัญหาของคุณ คุณสามารถใช้รหัสต่อไปนี้:

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

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


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

ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันมีปัญหาเดียวกัน วางรหัสใหม่และเปลี่ยนชื่อชีต แต่ไม่มีอะไรเกิดขึ้น ตัวกรองไม่อัปเดต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ปัญหาเดียวกันที่นี่เช่นกัน มีวิธีแก้ไขที่อัปเดตหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้ใน office 365
ข้อเสนอแนะใด ๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณมากสำหรับความช่วยเหลือ มีบางอย่างใช้งานไม่ได้สำหรับฉัน นี่คือเรื่องราว

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
ย่อยสิ้นสุด

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

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

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

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