Come aggiornare una tabella pivot quando i dati cambiano in Excel?

Come sapete, se modificate i dati nella tabella originale, la relativa tabella pivot non aggiorna i dati al momento. Se avete bisogno di aggiornare la tabella pivot quando i dati cambiano nella tabella in Excel, posso mostrarvi alcuni metodi rapidi.

Aggiornare una tabella pivot in un foglio di lavoro premendo Aggiorna

Aggiornare una tabella pivot in un foglio di lavoro o cartella di lavoro con VBA

Aggiornare una tabella pivot in un foglio di lavoro premendo Aggiorna

In Excel, c'è una funzione Aggiorna e Aggiorna tutto per aggiornare la tabella pivot in un singolo foglio di lavoro.

Fare clic sulla tabella pivot che si desidera aggiornare e quindi fare clic su Converti (in Excel 2013, fare clic su ANALIZZA) > Aggiorna > Aggiorna. Vedere screenshot:

Se si desidera aggiornare tutte le tabelle pivot in un singolo foglio di lavoro, è possibile selezionare Aggiorna tutto.

Aggiornare una tabella pivot in un foglio di lavoro o cartella di lavoro con VBA

Con VBA, non solo è possibile aggiornare tutte le tabelle pivot in un singolo foglio di lavoro, ma anche tutte le tabelle pivot nell'intera cartella di lavoro.

1. Premere contemporaneamente i tasti F11 + Alt sulla tastiera per aprire la finestra Microsoft Visual Basic for Applications.

2. Quindi fare clic su Inserisci > Modulo per inserire una nuova finestra del modulo. Successivamente, copiare il seguente codice VBA nella finestra.

VBA: Aggiorna tabelle pivot in un foglio di lavoro.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. Fare clic sul pulsante Esegui nella finestra o premere il tasto F5 per eseguire il VBA, quindi le tabelle pivot nel foglio di lavoro verranno aggiornate.

Suggerimento: Per aggiornare tutte le tabelle pivot in un'intera cartella di lavoro, è possibile utilizzare il seguente VBA.

VBA: Aggiorna tutte le tabelle pivot in una cartella di lavoro.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Articoli correlati:

• Aggiorna tabella pivot all'apertura del file in Excel
• Aggiorna intervallo dati della tabella pivot in Excel