Kako našteti vse vrtilne tabele iz delovnega zvezka?
Recimo, da imate velik delovni zvezek, ki vsebuje več vrtilnih tabel, bi zdaj radi navedli vse vrtilne tabele v tem delovnem zvezku, ali je to mogoče? Seveda vam bo naslednja koda VBA v tem članku naredila uslugo. Če želite izvedeti več podrobnosti, preberite spodnji članek.
Navedite vse vrtilne tabele iz delovnega zvezka s kodo VBA
Navedite vse vrtilne tabele iz delovnega zvezka s kodo VBA
Naslednja koda VBA vam lahko pomaga, da navedete vsa imena vrtilne tabele skupaj z njihovimi atributi, kot so obseg izvornih podatkov, ime delovnega lista, osveženi datum itd.
1. Odprite delovni zvezek, v katerem želite seznam vseh vrtilnih tabel.
2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: navedite vse vrtilne tabele iz delovnega zvezka
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. Nato pritisnite F5 za zagon te kode, so vsa imena vrtilne tabele, obseg izvornih podatkov, ime delovnega lista in drugi atributi navedeni v novem delovnem listu, ki je postavljen na sprednji del vašega aktivnega delovnega lista, kot je prikazano na sliki spodaj:
Sorodni članki:
Kako preveriti, ali v delovnem zvezku obstaja vrtilna tabela?
Kako v vrtilno tabelo dodati več polj?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
