วิธีการรีเฟรชตาราง Pivot ใน Excel โดยอัตโนมัติ

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

รีเฟรช Pivot Table โดยอัตโนมัติโดย VBA

รีเฟรช Pivot Table โดยอัตโนมัติโดย VBA

โปรดทำตามขั้นตอนด้านล่างเพื่อใช้ VBA สำหรับการรีเฟรชตาราง Pivot ที่ระบุใน Excel โดยอัตโนมัติ

1. ในแถบแท็บแผ่นงานให้คลิกขวาที่แท็บแผ่นงานที่มีข้อมูลต้นฉบับแล้วเลือก ดูรหัส ในเมนูบริบท ดูภาพหน้าจอ:

2. ในการเปิดหน้าต่าง Microsoft Visual Basic for Applications โปรดวางโค้ด

VBA: รีเฟรชตาราง Pivot ที่ระบุโดยอัตโนมัติ

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

หมายเหตุ:
(1) ในรหัสของแผ่นงาน ("ชื่อแผ่นงาน") .PivotTables ("ชื่อ PivotTable") .PivotCache.Refresh โปรดแทนที่ ชื่อแผ่นงาน ด้วยชื่อของแผ่นงานที่มีตาราง Pivot ที่ระบุและแทนที่ ชื่อ PivotTable ด้วยชื่อของตาราง Pivot ที่ระบุ
(2) เลือกเซลล์ใดก็ได้ในตาราง Pivot ที่ระบุคุณจะได้รับชื่อในไฟล์ วิเคราะห์ แท็บ (หรือ Options แท็บ) ดูภาพหน้าจอ:

3. บันทึกรหัส

นับจากนี้เป็นต้นไปเมื่อคุณเปลี่ยนแปลงข้อมูลในแหล่งข้อมูลตาราง Pivot ที่ระบุจะถูกรีเฟรชโดยอัตโนมัติ

รวมไฟล์เวิร์กชีต / เวิร์กบุ๊ก / ไฟล์ CSV หลายไฟล์ไว้ในแผ่นงาน / สมุดงาน

อาจเป็นเรื่องน่าเบื่อที่จะรวมแผ่นงานหลายสิบแผ่นจากสมุดงานต่างๆไว้ในแผ่นงานเดียว แต่ด้วย Kutools for Excel's รวม (แผ่นงานและสมุดงาน) ยูทิลิตี้คุณสามารถทำได้ด้วยการคลิกเพียงไม่กี่ครั้ง!

ทดลองใช้ฟีเจอร์เต็มรูปแบบฟรี 30 วันทันที!

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

วิธีการเฉลี่ยต่อวัน / เดือน / ไตรมาส / ชั่วโมงด้วยตาราง Pivot ใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖	Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด \| สร้างรหัส \| สร้างสูตรที่กำหนดเอง \| วิเคราะห์ข้อมูลและสร้างแผนภูมิ \| เรียกใช้ฟังก์ชัน Kutools...
	คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน \| ลบแถวว่าง \| รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล \| รอบโดยไม่มีสูตร ...
	การค้นหาขั้นสูง: VLookup หลายเกณฑ์ \| VLookup หลายค่า \| VLookup ข้ามหลายแผ่น \| การค้นหาที่ไม่ชัดเจน ....
	รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว \| รายการแบบหล่นลงขึ้นอยู่กับ \| เลือกหลายรายการแบบหล่นลง ....
	ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ \| ย้ายคอลัมน์ \| สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่ \| เปรียบเทียบช่วงและคอลัมน์ ...
	คุณสมบัติเด่น: กริดโฟกัส \| มุมมองการออกแบบ \| บาร์สูตรใหญ่ \| สมุดงานและตัวจัดการชีต \| ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ) \| เลือกวันที่ \| รวมแผ่นงาน \| เข้ารหัส/ถอดรหัสเซลล์ \| ส่งอีเมลตามรายการ \| ซุปเปอร์ฟิลเตอร์ \| ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
	ชุดเครื่องมือ 15 อันดับแรก: 12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... ) \| 50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... ) \| 40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... ) \| 19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... ) \| 12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... ) \| 7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... ) \| ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

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

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

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

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

Comments (1)

No ratings yet. Be the first to rate!

César Augusto Betanc

about 6 years ago

#23752

This comment was minimized by the moderator on the site

If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด \| สร้างรหัส \| สร้างสูตรที่กำหนดเอง \| วิเคราะห์ข้อมูลและสร้างแผนภูมิ \| เรียกใช้ฟังก์ชัน Kutools...
	คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน \| ลบแถวว่าง \| รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล \| รอบโดยไม่มีสูตร ...
	การค้นหาขั้นสูง: VLookup หลายเกณฑ์ \| VLookup หลายค่า \| VLookup ข้ามหลายแผ่น \| การค้นหาที่ไม่ชัดเจน ....
	รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว \| รายการแบบหล่นลงขึ้นอยู่กับ \| เลือกหลายรายการแบบหล่นลง ....
	ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ \| ย้ายคอลัมน์ \| สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่ \| เปรียบเทียบช่วงและคอลัมน์ ...
	คุณสมบัติเด่น: กริดโฟกัส \| มุมมองการออกแบบ \| บาร์สูตรใหญ่ \| สมุดงานและตัวจัดการชีต \| ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ) \| เลือกวันที่ \| รวมแผ่นงาน \| เข้ารหัส/ถอดรหัสเซลล์ \| ส่งอีเมลตามรายการ \| ซุปเปอร์ฟิลเตอร์ \| ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
	ชุดเครื่องมือ 15 อันดับแรก: 12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... ) \| 50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... ) \| 40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... ) \| 19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... ) \| 12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... ) \| 7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... ) \| ... และอื่น ๆ

การเปลี่ยนแปลง

บทแนะนำคุณสมบัติ

ขอความช่วยเหลือ?