Jak połączyć filtr tabeli przestawnej z określoną komórką w programie Excel?
Jeśli chcesz połączyć filtr tabeli przestawnej z określoną komórką i ustawić filtrowanie tabeli przestawnej na podstawie wartości komórki, może Ci pomóc metoda opisana w tym artykule.
Połącz filtr tabeli przestawnej z określoną komórką za pomocą kodu VBA
Połącz filtr tabeli przestawnej z określoną komórką za pomocą kodu VBA
Tabela przestawna, którą połączysz jej funkcję filtrującą z wartością komórki, powinna zawierać pole filtru (nazwa pola filtru odgrywa ważną rolę w poniższym kodzie VBA).
Jako przykład weźmy poniższą tabelę przestawną: Pole filtru w tabeli przestawnej nazywa się Kategoriai zawiera dwie wartości „Wydatki"I"Obroty”. Po połączeniu filtru tabeli przestawnej z komórką wartościami komórek, które zastosujesz do filtru tabeli przestawnej, powinny być „Wydatki” i „Sprzedaż”.
1. Proszę wybrać komórkę (tutaj wybieram komórkę H6), do której będzie można połączyć się z funkcją filtrującą tabeli przestawnej, i z góry wprowadź jedną z wartości filtru do komórki.
2. Otwórz arkusz zawierający tabelę przestawną, którą połączysz z komórką. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
3. w Microsoft Visual Basic for Applications skopiuj poniższy kod VBA do okna Code.
Kod VBA: Połącz filtr tabeli przestawnej z określoną komórką
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
Uwagi:
4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Teraz funkcja filtrująca tabeli przestawnej jest połączona z komórką H6.
Odśwież komórkę H6, a następnie odpowiednie dane w tabeli przestawnej zostaną odfiltrowane na podstawie istniejącej wartości. Zobacz zrzut ekranu:
Podczas zmiany wartości komórki przefiltrowane dane w tabeli przestawnej zostaną automatycznie zmienione. Zobacz zrzut ekranu:
Z łatwością zaznaczaj całe wiersze na podstawie wartości komórki w kolumnie certian:
Połączenia Wybierz określone komórki użyteczność Kutools dla programu Excel może pomóc ci szybko wybrać całe wiersze na podstawie wartości komórki w kolumnie certian w programie Excel, jak pokazano poniżej. Po wybraniu wszystkich wierszy na podstawie wartości komórki możesz ręcznie przenieść lub skopiować je do nowej lokalizacji, zgodnie z potrzebami w programie Excel.
Pobierz i wypróbuj teraz! (30-dniowy bezpłatny szlak)
Podobne artykuły:
- Jak połączyć wiele arkuszy w tabelę przestawną w programie Excel?
- Jak utworzyć tabelę przestawną z pliku tekstowego w programie Excel?
- Jak filtrować tabelę przestawną na podstawie określonej wartości komórki w programie Excel?
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!