Snasui Excel Forum

Posted: **Thu Sep 08, 2022 1:49 pm**

Sub RefreshAllPivottable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    With Worksheets("Analytic")
    
    For Each pt In ws.PivotTables
        pt.RefreshTable
        Next pt
        
        
    End With
    
End Sub

Run-time error '91':
Objective variable or With block variable not set

For Each pt In ws.PivotTables
error ตรงนี้ครับ

Posted: **Thu Sep 08, 2022 7:43 pm**

เมื่อเขียน Worksheets("Analytic") ครอบเอาไว้แล้วเมื่อจะอ้างถึงชีต Analytic ให้ใช้เครื่องหมาย . แทนครับ

จาก Statement For Each pt In ws.PivotTables ปรับเป็น For Each pt In .PivotTables ครับ

Posted: **Fri Sep 09, 2022 8:23 am**

snasui wrote: Thu Sep 08, 2022 7:43 pm เมื่อเขียน Worksheets("Analytic") ครอบเอาไว้แล้วเมื่อจะอ้างถึงชีต Analytic ให้ใช้เครื่องหมาย . แทนครับ

จาก Statement For Each pt In ws.PivotTables ปรับเป็น For Each pt In .PivotTables ครับ

ขอบคุณครับ

Snasui Excel Forum

ต้องการสร้างปุ่ม refresh pivottable ใน sheet Analytic ครับ

ต้องการสร้างปุ่ม refresh pivottable ใน sheet Analytic ครับ

Re: ต้องการสร้างปุ่ม refresh pivottable ใน sheet Analytic ครับ

Re: ต้องการสร้างปุ่ม refresh pivottable ใน sheet Analytic ครับ