Page 1 of 1
pivot table automatic refresh
Posted: Tue Mar 29, 2011 10:51 am
by deathlemon
สามารถทำได้ไหมครับ เช่นเมื่อเราเปลี่ยนข้อมูลจากตารางที่เป็นฐานข้อมูลของ pivot table แล้วให้ pivot table
สามารถอัพเดทได้อัตโนมัติ
เท่าที่ทราบมา จะต้องใช้ VBA script แต่ผมเขียน VB ไม่เป็นครับ
ขอบคุณมากครับ
Re: pivot table automatic refresh
Posted: Tue Mar 29, 2011 11:14 am
by snasui
ตัวอย่าง Code ในการ Refresh PivotTable อัตโนมัติหากมีการเปลี่ยนแปลงใด ๆ ในเซลล์ในชีทที่ต้องการตามด้านล่างครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Sheet2").PivotTables("PivotTable1").PivotCache.Refresh
End Subb
การใช้งาน
1. ให้นำ Code นี้ไปไว้ในโปรแกรม VBE (ที่ Excel กดแป้น Alt+F11)
ในชีทใด ๆ ที่ต้องการ โดยมีเงื่อนไขว่าหากชีทนี้มีการเปลี่ยนแปลงก็จะให้ PivotTable ที่ชื่อ PivotTable1 ในชีทที่ชื่อ Sheet2 ทำการ Refresh ทันที
2. ชีทใด ๆ ที่ต้องการในข้อ 1 ให้ดูในหน้าต่าง VBE ด้านซ้ายมือ จะมีหน้าต่าง VBE Project (ถ้าไม่มีให้กดแป้น Ctrl+R) และมีรายชื่อชีทมาด้วยสามารถ Double Click เพื่อเขียน Code หรือวาง Code ที่ Copy มาได้
ดูตัวอย่างภาพด้านล่างครับ
Re: pivot table automatic refresh
Posted: Tue Mar 29, 2011 12:56 pm
by deathlemon
ขอบคุณมากครับ เดี๋ยวขอลองไปให้แฟนใช้ก่อนนะครับ ขอบพระคุณมากครับ