Hoe alle draaitabellen uit een werkmap weergeven?
Stel dat u een grote werkmap heeft die meerdere draaitabellen bevat, nu wilt u alle draaitabellen in deze werkmap vermelden, is dit mogelijk? Natuurlijk zal de volgende VBA-code in dit artikel je een plezier doen. Lees het onderstaande artikel voor meer informatie.
Maak een lijst van alle draaitabellen uit een werkmap met VBA-code
Maak een lijst van alle draaitabellen uit een werkmap met VBA-code
De volgende VBA-code kan u helpen om alle draaitabelnamen weer te geven, samen met hun attributen, zoals brongegevensbereik, werkbladnaam, vernieuwde datum, enzovoort.
1. Open uw werkmap waarin u alle draaitabellen wilt weergeven.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: maak een lijst van alle draaitabellen uit een werkmap
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, worden alle draaitabelnamen, het brongegevensbereik, de werkbladnaam en andere attributen vermeld in een nieuw werkblad dat vooraan in uw actieve werkblad wordt geplaatst zoals in de volgende schermafbeelding:
Gerelateerde artikelen:
Hoe controleer ik of een draaitabel in een werkmap bestaat?
Hoe voeg ik meerdere velden toe aan een draaitabel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
