มีปัญหาเรื่อง vba refresh pivot table ทุก table

[yodpao.b]

ต้องการให้ refresh pivot table ทุก table
ใช้ code อย่างไรครับ
โคดด้านล่าง refresh ได้คารางเดียวครับ

Code: Select all

Sub Macro_Refresh()
    Sheets("PV_infer1").Select
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable14").PivotCache.Refresh
    Sheets("Log").Select
    Range("A2").Select
'ActiveSheet.PivotTables("Your Pivot Table Name").PivotCache.Refresh
End Sub

[OnliezU]

ถ้าเขียนให้ Pivot table refresh ทีละตารางจะดีกว่าไหมครับ ซึ่งผมใช้วิธีนี้ เพราะว่าหากเวลาเกิดปัญหา Pivot ไม่ Refresh ตามคำสั่งจะได้แก้ไขทีละตาราง ง่ายดีครับ หรือว่าในชีทนั้นๆ ของคุณมี Pivot table หลายตัวเยอะมากเลย

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim p As PivotTable
Dim s As Worksheet
For Each s In Worksheets
    For Each p In s.PivotTables
        p.PivotCache.Refresh
    Next p
Next s