Jak wyświetlić listę wszystkich tabel przestawnych ze skoroszytu?
Przypuśćmy, że masz duży skoroszyt, który zawiera wiele tabel przestawnych, a teraz chcesz wyświetlić listę wszystkich tabel przestawnych w tym skoroszycie, czy to możliwe? Oczywiście poniższy kod VBA w tym artykule wyświadczy ci przysługę. Aby dowiedzieć się więcej szczegółów, przeczytaj poniższy artykuł.
Wyświetl wszystkie tabele przestawne ze skoroszytu z kodem VBA
Wyświetl wszystkie tabele przestawne ze skoroszytu z kodem VBA
Poniższy kod VBA może pomóc w wyświetleniu wszystkich nazw tabel przestawnych wraz z ich atrybutami, takimi jak zakres danych źródłowych, nazwa arkusza roboczego, odświeżona data i tak dalej.
1. Otwórz skoroszyt, w którym chcesz wyświetlić wszystkie tabele przestawne.
2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: wyświetla wszystkie tabele przestawne ze skoroszytu
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, wszystkie nazwy tabel przestawnych, zakres danych źródłowych, nazwa arkusza roboczego i inne atrybuty są wymienione w nowym arkuszu, który znajduje się na początku aktywnego arkusza, jak pokazano na poniższym zrzucie ekranu:
Podobne artykuły:
Jak sprawdzić, czy tabela przestawna istnieje w skoroszycie?
Jak dodać wiele pól do tabeli przestawnej?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!