Jak sprawdzić, czy tabela przestawna istnieje w skoroszycie?
Jeśli w skoroszycie znajduje się wiele tabel przestawnych, a teraz chcesz szybko dowiedzieć się, czy w tym skoroszycie istnieje określona tabela przestawna. Zwykle można przejść do okna dialogowego Opcje tabeli przestawnej, aby po kolei sprawdzić nazwę tabeli przestawnej, ale jest to bardzo czasochłonne i żmudne, gdy istnieją dziesiątki lub setki tabel przestawnych. Tutaj mogę opowiedzieć o sztuczce, która pomoże ci rozwiązać to zadanie.
Sprawdź, czy tabela przestawna istnieje w skoroszycie z funkcją zdefiniowaną przez użytkownika
Sprawdź, czy tabela przestawna istnieje w skoroszycie z funkcją zdefiniowaną przez użytkownika
Aby szybko dowiedzieć się, czy tabela przestawna istnieje w bieżącym skoroszycie, możesz utworzyć funkcję zdefiniowaną przez użytkownika, aby ją rozwiązać.
1. Otwórz skoroszyt, w którym chcesz sprawdzić, czy istnieje tabela przestawna.
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: Sprawdź, czy tabela przestawna istnieje w skoroszycie
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego, wprowadź tę formułę = pivotexist ("raport sprzedaży") do pustej komórki, zobacz zrzut ekranu:
Uwagi: (1.) W powyższym wzorze „raport sprzedaży”To nazwa tabeli przestawnej, którą chcesz sprawdzić.
(2.) Nazwę tabeli przestawnej należy wprowadzić w podwójnych cudzysłowach, a w nazwie rozróżniana jest wielkość liter.
5. Po wprowadzeniu wzoru naciśnij klawisz Enter, jeśli otrzymasz TRUE w twojej komórce istnieje tabela przestawna, jeśli dostaniesz FAŁSZYWY, tabela przestawna nie istnieje.
Podobne artykuły:
Jak wyświetlić listę wszystkich tabel przestawnych ze skoroszytu?
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!