Jak filtrować tabelę przestawną na podstawie określonej wartości komórki w programie Excel?
Zwykle filtrujemy dane w tabeli przestawnej, wybierając elementy z listy rozwijanej, jak pokazano na zrzucie ekranu poniżej. W rzeczywistości możesz filtrować tabelę przestawną na podstawie wartości w określonej komórce. Metoda VBA w tym artykule pomoże ci rozwiązać problem.
Filtruj tabelę przestawną na podstawie określonej wartości komórki z kodem VBA
Filtruj tabelę przestawną na podstawie określonej wartości komórki z kodem VBA
Poniższy kod VBA może pomóc w filtrowaniu tabeli przestawnej na podstawie określonej wartości komórki w programie Excel. Wykonaj następujące czynności.
1. Wprowadź wcześniej wartość, na podstawie której będziesz filtrować tabelę przestawną w komórce (tutaj wybieram komórkę H6).
2. Otwórz arkusz zawierający tabelę przestawną, którą będziesz filtrować według wartości komórki. Następnie kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
3. W otwarciu Microsoft Visual Basic for Applications skopiuj poniższy kod VBA do okna Code.
Kod VBA: Filtruj tabelę przestawną na podstawie wartości komórki
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:H7")) 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: W kodzie
4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Następnie tabela przestawna filtruje na podstawie wartości w komórce H6, jak pokazano na poniższym zrzucie ekranu:
W razie potrzeby możesz zmienić wartość komórki na inną.
Note: Wartości wpisane w komórce H6 powinny dokładnie odpowiadać wartościom na liście rozwijanej Kategoria w tabeli przestawnej.
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 połączyć filtr tabeli przestawnej z określoną komórką 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!