Refresh كردن يك Pivot Table درون يك شيت كه Hidden شده است

[arsalan135]

با سلام خدمت دوستان
فرض كنيد در يك شيت Pivot Table وجود دارد كه مي بايست بنا به نياز Refresh گردد. و اين شيت Hidden مي باشد. از طرفي با Refresh* كردن كلي ، از* آنجا كه به يك ديتابيس در اينترنت متصل مي باشد و گزينه Refresh All باعث مي شود شروع به آپديت كردن ديتابيس كند ، باعث كندي سرعت مي شود. آيا امكان دارد از طريق يك Command Button *، كدي نوشت كه روند Refresh كردن Pivot Table را بدون نياز به Unhide كردن شيتي كه Pivot*درون آن است انجام داد ؟( البته اين Command Button بايستي در شيتي كه كاربر با آن كار مي كند قرار داشته باشد ( يعني شيتي به غير از شيتي كه Pivot Table درون آن مي باشد)
ممنون از راهنمايي دوستان

[arsalan135]

اساتيد محترم
التفاتي هم به اينجا داشته باشند
ممنون

[~M*E*H*D*I~]

متوجه نشدم چه ارتباطی هست بیت هاید بودن و رفرش کردن، به هر حال با رفرش کردن پیوت بر اساس داده های جدیدی که در شیت دیتا قرار داره به روز میشه ، رفرش کردن پیوت ارتباطی به بروز کرده اطلاعات شیت دیتا نداره

[arsalan135]

ممنون از توجه شما
عرض كردم ، وقتي رفرش بزنيم ، شيتي كه اطلاعات را از طريق اينترنت مي گيرد ، هم آپديت مي شود . و اين باعث كندي سرعت كار مي شود . چون آپديت شدن ديتابيس زمان زيادي مي گيرد.
با همه اينها شما فرض كنيد مي خواهيم يك جدول پيوت را به اين طريق رفرش كنيم كه : پيوت داخل شيتي است كه هايد شده و در دسترس نمي باشد.( براي كاربر ) و مي خواهيم يك كامند باتوم داشته باشيم كه كاربر با كليك بر روي آن پيوت رفرش شود.
ممنون

[~M*E*H*D*I~]

میتونید از کد زیر استفاده کنید

Sub RefreshAllPivotTables()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub