Hur listar jag alla pivottabeller från en arbetsbok?
Om du antar att du har en stor arbetsbok som innehåller flera pivottabeller, nu vill du lista alla pivottabeller i denna arbetsbok, är det möjligt? Naturligtvis kommer följande VBA-kod i den här artikeln att göra dig en tjänst. Läs artikeln nedan om du vill veta mer.
Lista alla pivottabeller från en arbetsbok med VBA-kod
Lista alla pivottabeller från en arbetsbok med VBA-kod
Följande VBA-kod kan hjälpa dig att lista alla pivottabellnamn tillsammans med deras attribut, såsom källdataområde, kalkylbladets namn, uppdaterat datum och så vidare.
1. Öppna din arbetsbok som du vill visa alla pivottabeller.
2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Lista alla pivottabeller från en arbetsbok
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. Tryck sedan på F5 nyckel för att köra den här koden, alla pivottabellnamn, källdataområde, kalkylbladets namn och andra attribut listas i ett nytt kalkylblad som placeras på framsidan av ditt aktiva kalkylblad enligt följande skärmdump:
Relaterade artiklar:
Hur kontrollerar jag om det finns en pivottabell i en arbetsbok?
Hur lägger jag till flera fält i pivottabellen?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!