آموزش تصویری بروزرسانی خودکار Pivot Table

چگونه یک Pivot Chart را اتورفرش(Auto Refresh) کنیم. برای Refresh شدن جدول با بسته و باز شدن WorkSheet و یا به صورت آنی ( بدون و باز کردن) از طریق وارد کردن دستور Vba به صورت تصویری و به همراه کدهای آن را در این مطلب فرا بگیرید.

روش معمولی(دستی):

برای اینکه نیازی به هر باز کلیک کردن بر روی Pivot Table و زدن دکمه Refresh را نداشته باشیم، کافیست مراحل زیر را انجام دهیم.

1. روی یکی از سلولهای Pivot table راست کلیک می کنیم
2. روی گزینه pivot Table Option کلیک می کنیم
3. در ینجره ای که باز می شود روی تب Data کلیک می کنیم 
4. و گزینه Refresh Data When Opening File را انتخاب می کنیم.
5. و در نهایت کلید OK را زده و پنجره را می بندیم.

اما هنگامی که می خواهیم در حالت باز بودن WorkSheet به صورت آنی با وارد کردن دیتا Pivot Table بروز شود باید از ماژول زیر استفاده کنیم:

Private Sub Worksheet_Activate()
   Me.PivotTables(1).RefreshTable
End Sub

و در هنگامی که از چند Pivot Chart استفاده می کنیم باید از ماژول زیر استفاده کنیم:

Private Sub Worksheet_Activate()
   Dim pt As PivotTable
   For Each pt In Me.PivotTables
      pt.RefreshTable
   Next pt
End Sub