Aggiorna tabella pivot in VBA

Generalmente creiamo una tabella pivot quando abbiamo bisogno di creare una sorta di grafici o grafici o dobbiamo eseguire qualche analisi su di essa. Preparando la tabella Pivot, possiamo ottenere la visione generale e l'idea di ciò che è effettivamente all'interno dei dati. Questo è il modo migliore per trovare un modo per accedere ai dati. E ogni volta che apportiamo modifiche ai dati, dobbiamo aggiornare anche la tabella pivot. In modo da popolare anche il conteggio dei dati aggiornati. Aggiornare qualsiasi tabella pivot è molto semplice, ma cosa succede se abbiamo 10 decine di tabelle pivot in un singolo file Excel che dobbiamo aggiornare. Quindi, invece di aggiornare tutte le tabelle pivot una per una, possiamo aggiornare direttamente tutte le tabelle pivot in una volta sola con l'aiuto di VBA Refresh Pivot Table.

Come utilizzare Aggiorna tabella pivot in Excel VBA?

Di seguito sono riportati i diversi esempi per utilizzare Aggiorna tabella pivot in Excel utilizzando il codice VBA.

È possibile scaricare questo modello Excel tabella pivot di aggiornamento VBA qui - Modello Excel tabella pivot di aggiornamento VBA qui

Tabella pivot di aggiornamento VBA - Esempio n. 1

Per aggiornare la tabella pivot, innanzitutto, dobbiamo creare una tabella pivot. Di seguito abbiamo un dato dell'elemento pubblicitario 1000s con il quale creeremo una tabella pivot.

Nella schermata sopra, possiamo vedere l'ultima riga a 1001 e questi dati hanno informazioni sui clienti rispetto alla quantità venduta a loro.

Ora vai alla scheda del menu Inserisci e fai clic sull'opzione Tabella pivot .

Otterremo una casella Crea tabella pivot. Da lì, innanzitutto, seleziona l'intervallo di tabella che vogliamo includere in una tabella pivot. Quindi selezionare qualsiasi posizione nel foglio corrente per la tabella pivot. Possiamo anche scegliere Nuovo foglio di lavoro.

Una volta fatto, fai clic su OK.

Otterremo la tabella pivot creata. Ora trascina i campi richiesti in diverse aree per ottenere la tabella pivot effettiva. Qui stiamo trascinando il nome del cliente in FILI e la quantità in COLONNE come mostrato di seguito.

Questo completa la creazione di una tabella pivot. Ma abbiamo bisogno di aggiornare la tabella pivot dopo aver cambiato qualcosa in Dati, questo potrebbe essere fatto semplicemente aggiornando l'opzione dall'elenco del menu a discesa tasto destro del mouse come mostrato di seguito.

Ma lo stesso processo può essere automatizzato anche tramite VBA. Per questo, avremmo bisogno di un modulo. Così,

Passaggio 1: vai alla scheda del menu Inserisci e seleziona l'opzione Modulo dall'elenco a discesa come mostrato di seguito.

Step 2: Nel modulo appena aperto, scrivi la sottocategoria di VBA Pivot Refresh oppure possiamo scegliere qualsiasi nome secondo la nostra scelta.

Codice:

 Sub Pivot_Refresh2 () End Sub

Passaggio 3: Innanzitutto, definire una variabile come PivotCache come mostrato di seguito. PivotCache utilizza la cache Pivot e non i dati utilizzati per la creazione della tabella Pivot.

Codice:

 Sub Pivot_Refresh2 () Tabella dim come PivotCache End Sub

Passaggio 4: ora utilizzeremo il ciclo For-Each . Quindi apri un ciclo For-Each come mostrato di seguito.

Codice:

 Tabella tabella dim Pivot_Refresh2 () come PivotCache per ogni tabella successiva End Sub

Passo 5: Ora all'interno del ciclo For-End, scriveremo la condizione in cui selezioneremo il foglio di lavoro attualmente aperto che ha una tabella Pivot con PivotCache .

Codice:

 Tabella tabella dim Pivot_Refresh2 () come PivotCache per ogni tabella in ThisWorkbook.PivotCaches Tabella successiva End Sub

Passaggio 6: ora utilizzeremo il comando Aggiorna assegnandogli la tabella delle variabili definita.

Codice:

 Tabella tabella dim Pivot_Refresh2 () come tabella pivot per ogni tabella in ThisWorkbook.PivotCaches Table.Refresh Tabella successiva End Sub

Passaggio 7: Questo completa il codice, ora compila il codice in un errore di file premendo il tasto funzionale F8. Ora per verificare se il codice scritto non funziona, abbiamo modificato la quantità di Customer14 in 69 .

Passaggio 8: ora esegui il codice. Vedremo che il conteggio totale rispetto a Customer14 viene aggiornato a 2183, che viene evidenziato in colore giallo.

Tabella pivot di aggiornamento VBA - Esempio n. 2

Esiste un altro modo per aggiornare la tabella pivot tramite VBA. Prima di procedere, possiamo prendere in considerazione la possibilità di modificare il nome di una tabella pivot oppure utilizzare anche il nome predefinito. Proviamo a dare un nuovo nome alla tabella Pivot. Per questo, seleziona la tabella pivot e vai alla scheda del menu Analizza come mostrato di seguito.

Nella prima sezione del Nome tabella pivot, possiamo vedere il nome predefinito come Tabella pivot1 .

Ora cambieremo questo nome. Valuta di scrivere il nuovo nome come Dati cliente come mostrato di seguito.

Passaggio 1: Successivamente, apri un nuovo modulo e scrivi la sottocategoria di Aggiornamento VBA come mostrato di seguito.

Codice:

 Sub Pivot_Refresh3 () End Sub

Passaggio 2: ora definire una variabile come tabella pivot . Qui, con la tabella pivot, considereremo i dati di origine completi.

Codice:

 Sub Pivot_Refresh3 () Tabella dim come tabella secondaria pivot fine

Passo 3: ora usa Set con la variabile definita e seleziona il foglio che è attualmente aperto.

Codice:

 Tabella tabella Pivot_Refresh3 () attenuata come tabella tabella pivot impostata = foglio attivo. End Sub

Passaggio 4: selezionare il nome della tabella pivot che vogliamo aggiornare insieme al tipo di dati variabile che abbiamo usato come tabella pivot .

Codice:

 Tabella tabella dim Pivot_Refresh3 () come tabella tabella pivot impostata = ActiveSheet.PivotTables ("Dati cliente") Sottotitolo

Passaggio 5: infine, utilizzare la variabile con la funzione RefreshTable per eseguirla.

Codice:

 Tabella tabella dim Pivot_Refresh3 () come tabella set tabella pivot = ActiveSheet.PivotTables ("Dati cliente") Table.RefreshTable End Sub

Passaggio 6: apportiamo alcune ulteriori modifiche ai dati, per fornire la vera rappresentazione del codice applicato.

Abbiamo modificato il conteggio di Customer2 come 56 . Ora se eseguiamo il codice, nella tabella pivot di Nome cliente, dovrebbero esserci delle modifiche nella somma della quantità per Cliente2 .

Passaggio 7: ora vai alla finestra VBA e compila il codice. Se non viene rilevato alcun errore, eseguirlo facendo clic sul pulsante di riproduzione che si trova sotto la barra dei menu, come mostrato di seguito. Noteremo che una somma della quantità venduta per Customer2 sta per arrivare al 1724 apportando le modifiche nella tabella di origine.

In questo modo, possiamo includere più di un dato di origine e creare una tabella pivot diversa. E automatizzare anche quelle tabelle pivot è facile in quanto è sufficiente includere il nome e il foglio della tabella pivot in cui si trova la tabella.

Pro di VBA Aggiorna tabella pivot

  • Ci vuole molto meno tempo per aggiornare la tabella pivot con il codice VBA.
  • È molto facile da implementare.

Cose da ricordare

  • È possibile aggiungere più tabelle di origini dati e automatizzarle in base al codice VBA.
  • Per vedere le modifiche avvenute, mantieni la finestra VBA e il foglio Excel paralleli tra loro.
  • È meglio nominare ogni singola tabella pivot se si stanno gestendo e gestendo più origini dati e tabelle pivot.
  • Il codice con il nome della tabella pivot è facile da capire, tracciare e localizzare.

Articoli consigliati

Questa è una guida alla tabella pivot di aggiornamento VBA. Qui discutiamo come utilizzare la tabella pivot di aggiornamento VBA di Excel insieme ad esempi pratici e modello Excel scaricabile. Puoi anche consultare i nostri altri articoli suggeriti:

  1. VBA FileSystemObject (FSO)
  2. Sottostringa Funzione Excel
  3. Lunghezza della stringa VBA
  4. Excel ISNUMBER Formula

Categoria:

VBA