Come elencare tutte le tabelle pivot presenti in una cartella di lavoro?
Supponiamo che tu abbia una cartella di lavoro complessa contenente più tabelle pivot e che ora tu voglia elencare tutte le tabelle pivot presenti in essa. È possibile? Certo! Il codice VBA illustrato in questo articolo ti sarà di grande aiuto. Per ulteriori dettagli, leggi l’articolo riportato di seguito.
Elenca tutti i Tabella pivot da una cartella di lavoro con il codice VBA
Elenca tutti i Tabella pivot da una cartella di lavoro con il codice VBA
Il seguente codice VBA ti permette di elencare tutti i nomi delle tabelle pivot insieme ai relativi attributi, come l’intervallo dei dati di origine, il nome del foglio di lavoro, la data di aggiornamento e molto altro.
1.Apri la cartella di lavoro da cui desideri elencare tutte le tabelle pivot.
2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
3. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del modulo.
Codice VBA: elenca tutti i Tabella pivot da una cartella di lavoro
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. Premi quindi il tasto F5 per eseguire il codice: tutti i nomi delle tabelle pivot, l’intervallo dei dati di origine, il nome del foglio di lavoro e gli altri attributi verranno elencati in un nuovo foglio di lavoro posizionato davanti al foglio attivo, come mostrato nello screenshot seguente:
Articoli correlati:
Come si fa a verificare se una tabella pivot esiste in una cartella di lavoro?
Come si fa ad aggiungere più campi a una tabella pivot?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi