Implementazione Macro VBA è il metodo più efficace, più rapido e più sicuro per eseguire qualsiasi operazione in Excel. In questo articolo vi mostreremo come aggiornare la tabella pivot in Excel utilizzando VBA.

Scarica il libro di lavoro

Potete scaricare la cartella di lavoro Excel gratuita da qui.

Aggiornare la tabella pivot con VBA.xlsm

5 esempi per aggiornare la tabella pivot con VBA in Excel

Di seguito è riportato l'esempio della nostra tabella pivot che utilizzeremo nel corso di tutto l'articolo e che vi mostrerà 5 diversi esempi di aggiornamento delle tabelle pivot in Excel con VBA codice.

1. VBA per aggiornare una tabella Pivot in Excel

Se si vuole Aggiornare una sola tabella pivot nel foglio di lavoro di Excel,

• Stampa Alt + F11 sulla tastiera o andare alla scheda Sviluppatore -> Visual Basic per aprire Editor Visual Basic .

• Nella finestra del codice a comparsa, dalla barra dei menu, fare clic su Inserire -> Modulo .

• Copiare il codice seguente e incollarlo nella finestra del codice.

 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Il codice è ora pronto per essere eseguito.

Qui, Tabella pivot1 Il nome della tabella pivot è il nome della tabella pivot. Si scrive il nome della tabella pivot.

• Stampa F5 sulla tastiera o dalla barra dei menu selezionare Esegui -> Esegui Sub/UserForm È anche possibile fare clic sul pulsante piccola icona Play nella barra dei menu secondari per eseguire la macro.

Questo aggiornare la tabella pivot nel foglio di lavoro Excel esistente.

Per saperne di più: La tabella pivot non si aggiorna (5 problemi e soluzioni)

2. Macro per aggiornare tutte le tabelle pivot nel foglio di lavoro attivo

Per aggiornare tutte le tabelle pivot del foglio di lavoro attivo seguire la procedura descritta di seguito.

• Allo stesso modo di prima, aprire Editor Visual Basic dal Sviluppatore e Inserire a Modulo nella finestra del codice.
• Nella finestra del codice, copiare il codice seguente e incollarlo.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Il codice è ora pronto per essere eseguito.

• Correre la macro e tutte le tabelle pivot del foglio di lavoro attivo verranno aggiornate.

Per saperne di più: Come aggiornare tutte le tabelle pivot in Excel

3. Codice VBA per aggiornare tutte le tabelle pivot in più cartelle di lavoro

Se si vuole Aggiornare tutte le tabelle pivot in più cartelle di lavoro subito con VBA codice quindi i passaggi sono:

• Aperto Editor Visual Basic dal Sviluppatore e Inserire a Modulo nella finestra del codice.
• Nella finestra del codice, copiare il codice seguente e incollarlo.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Il codice è ora pronto per essere eseguito.

• Correre il codice e tutte le tabelle pivot in tutte le cartelle di lavoro Excel aperte verranno aggiornate.

Ricorda per mantenere tutte le cartelle di lavoro aperto durante l'esecuzione di questo codice.

Letture simili

• Come modificare una tabella pivot in Excel (5 metodi)
• Aggiornamento dell'intervallo della tabella Pivot (5 metodi adatti)
• Come aggiornare automaticamente una tabella pivot quando i dati di origine vengono modificati

4. Aggiornare la cache della tabella pivot con VBA in Excel

Se nella cartella di lavoro sono presenti più tabelle pivot che utilizzano gli stessi dati, è possibile aggiornare solo la cache della tabella pivot invece di aggiornare sempre la tabella pivot attuale. L'aggiornamento della cache cancella automaticamente la memoria cache di tutte le tabelle pivot che utilizzano la stessa connessione dati nella cache.

I passi per farlo sono,

• Aperto Editor Visual Basic dal Sviluppatore e Inserire a Modulo nella finestra del codice.
• Nella finestra del codice, copiare il codice seguente e incollarlo.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Il codice è ora pronto per essere eseguito.

• Correre il codice e tutte le memorie della cache della tabella pivot verranno cancellate.

Per saperne di più: Come aggiornare automaticamente la tabella Pivot senza VBA in Excel (3 metodi intelligenti)

5. Aggiornamento automatico della tabella Pivot durante la modifica dei dati con la macro VBA

Se si dispone di una tabella pivot con una grande quantità di dati e si desidera aggiornare solo alcuni dati senza modificare l'intera tabella, in Excel è possibile aggiornare automaticamente la tabella pivot mentre aggiorna i dati con VBA .

• Aperto Editor Visual Basic dal Sviluppatore.
• Sul lato sinistro dell'editor, ci sarà una voce Progetto Explorer che contiene tutti i nomi del foglio di lavoro.
• In Progetto Explorer , fare doppio clic sul nome del foglio che contiene la tabella pivot.

• Verrà visualizzata la finestra del codice in cui si creerà una macro evento. Scegliere Foglio di lavoro dal Oggetto a sinistra del modulo di codice, aggiungendo così un elemento di Worksheet_SelectionChange al modulo, in realtà non ne abbiamo bisogno, quindi elimineremo questo pezzo di codice in seguito.
• Quindi fare clic sul pulsante Procedura e selezionare Cambiamento Questo aggiunge un nuovo evento all'inizio del modulo di codice, chiamato Foglio_di_lavoro_cambiato Scriveremo il nostro codice in questo modo cancellare il codice generato dal programma Worksheet_SelectionChange

• Ora copiate il codice seguente e incollatelo nel file Foglio_di_lavoro_cambiato

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Il codice è ora pronto per essere eseguito.

Qui, PivotTbl è il nome del foglio di lavoro nella cartella di lavoro di Excel e Tabella pivot1 Scrivete il nome del vostro foglio di lavoro e della tabella pivot.

• Ora, ogni volta che si modificano i dati nella tabella dati originale del foglio di lavoro, i dati della tabella pivot vengono aggiornati automaticamente.

Per saperne di più: Come aggiornare automaticamente la tabella pivot in Excel

Conclusione

Questo articolo vi ha mostrato come aggiornare la tabella pivot in Excel con VBA Spero che questo articolo vi sia stato di grande aiuto. Non esitate a chiedere se avete domande sull'argomento.