Jak vypsat všechny kontingenční tabulky ze sešitu?
Předpokládejme, že máte velký sešit, který obsahuje více kontingenčních tabulek, nyní chcete zobrazit seznam všech kontingenčních tabulek v tomto sešitu, je to možné? Následující kód VBA v tomto článku vám samozřejmě udělá laskavost. Další informace naleznete v následujícím článku.
Seznam všech kontingenčních tabulek ze sešitu s kódem VBA
Seznam všech kontingenčních tabulek ze sešitu s kódem VBA
Následující kód VBA vám pomůže se seznamem všech názvů kontingenčních tabulek a jejich atributů, jako je rozsah zdrojových dat, název listu, obnovené datum atd.
1. Otevřete sešit, ve kterém chcete zobrazit seznam všech kontingenčních tabulek.
2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Seznam všech kontingenčních tabulek ze sešitu
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. Pak stiskněte tlačítko F5 Klíč ke spuštění tohoto kódu, všechny názvy kontingenčních tabulek, rozsah zdrojových dat, název listu a další atributy jsou uvedeny v novém listu, který je umístěn v přední části vašeho aktivního listu, jak ukazuje následující snímek obrazovky:
Související články:
Jak zkontrolovat, zda v sešitu existuje kontingenční tabulka?
Jak přidat více polí do kontingenční tabulky?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
