Hvordan viser jeg alle pivottabeller fra en projektmappe?
Antager du at du har en stor projektmappe, der indeholder flere pivottabeller, nu vil du liste alle pivottabellerne i denne projektmappe, er det muligt? Selvfølgelig vil følgende VBA-kode i denne artikel gøre dig en tjeneste. Hvis du vil vide flere detaljer, skal du læse nedenstående artikel.
Liste over alle pivottabeller fra en projektmappe med VBA-kode
Liste over alle pivottabeller fra en projektmappe med VBA-kode
Den følgende VBA-kode kan hjælpe dig med at liste alle navne på pivottabeller sammen med deres attributter, såsom kildedataområde, regnearknavn, opdateret dato og så videre.
1. Åbn din projektmappe, hvor du vil liste alle pivottabellerne.
2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Liste over alle pivottabeller fra en projektmappe
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. Tryk derefter på F5 nøgle til at køre denne kode, vises alle pivottabellens navne, kildedataområde, regnearknavn og andre attributter i et nyt regneark, der placeres foran på dit aktive regneark som følgende skærmbillede vist:
Relaterede artikler:
Hvordan kontrolleres, om der findes en pivottabel i en projektmappe?
Hvordan tilføjes flere felter i pivottabellen?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!