Come elencare tutte le tabelle pivot da una cartella di lavoro?
Supponendo che tu abbia una grande cartella di lavoro che contiene più tabelle pivot, ora, vuoi elencare tutte le tabelle pivot in questa cartella di lavoro, è possibile? Ovviamente, il seguente codice VBA in questo articolo ti farà un favore. Per conoscere maggiori dettagli, leggi l'articolo sottostante.
Elenca tutte le tabelle pivot da una cartella di lavoro con codice VBA
Elenca tutte le tabelle pivot da una cartella di lavoro con codice VBA
Il seguente codice VBA può aiutarti a elencare tutti i nomi delle tabelle pivot insieme ai loro attributi, come l'intervallo di dati di origine, il nome del foglio di lavoro, la data aggiornata e così via.
1. Apri la cartella di lavoro in cui desideri elencare tutte le tabelle pivot.
2. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.
3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: elenca tutte le tabelle 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. Quindi premere F5 chiave per eseguire questo codice, tutti i nomi delle tabelle pivot, l'intervallo di dati di origine, il nome del foglio di lavoro e altri attributi sono elencati in un nuovo foglio di lavoro che si trova nella parte anteriore del foglio di lavoro attivo come mostrato nella seguente schermata:
Articoli correlati:
Come verificare se una tabella pivot esiste in una cartella di lavoro?
Come aggiungere più campi nella tabella pivot?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!