Hogyan lehet összekapcsolni a Pivot Table szűrőt az Excel egy bizonyos cellájával?
Ha egy kimutató tábla szűrőt szeretne összekapcsolni egy bizonyos cellával, és a kimutatási táblázatot a cella értéke alapján szeretné szűrni, akkor ebben a cikkben szereplő módszer segíthet.
Csatlakoztassa a Pivot Table szűrőt egy bizonyos VBA kóddal rendelkező cellához
Csatlakoztassa a Pivot Table szűrőt egy bizonyos VBA kóddal rendelkező cellához
A Pivot-táblának, amelynek szűrőfunkcióját egy cellaértékhez kapcsolja, tartalmaznia kell egy szűrőmezőt (a szűrőmező neve fontos szerepet játszik a következő VBA-kódban).
Vegyük példaként az alábbi kimutatási táblázatot. A Pivot-táblázat szűrőmezőjét hívjuk meg Kategória, és két értéket tartalmaz:Költségek"És"Értékesítés”. Miután összekapcsolta a Pivot Table szűrőt egy cellával, a Pivot Table szűrőre alkalmazandó cellaértékeknek „Költségek” és „Értékesítés” értékeknek kell lenniük.
1. Kérjük, válassza ki azt a cellát (itt a H6 cellát választom), amelyet összekapcsol a Pivot Table szűrőfunkciójával, és előzetesen adja meg az egyik szűrőértéket a cellában.
2. Nyissa meg azt a munkalapot, amely tartalmazza azt a kimutatási táblázatot, amelyet a cellához fog kapcsolni. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből. Lásd a képernyőképet:
3. Ban,-ben Microsoft Visual Basic for Applications ablakba, másolja a VBA kód alatt a Kód ablakba.
VBA kód: A Pivot Table szűrő összekapcsolása egy bizonyos cellával
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
Megjegyzések:
4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Most a Pivot tábla szűrési funkciója összekapcsolódik a H6 cellával.
Frissítse a H6 cellát, majd a Pivot Table megfelelő adatait kiszűri a meglévő érték alapján. Lásd a képernyőképet:
A cellaérték megváltoztatásakor a kimutatott táblázat szűrt adatai automatikusan megváltoznak. Lásd a képernyőképet:
Könnyen kiválaszthatja a teljes sorokat a certikus oszlop cellájának értéke alapján:
A Válassza a Specifikus cellák lehetőséget hasznossága Kutools az Excel számára segíthet gyorsan kiválasztani a teljes sorokat az cellák értéke alapján az Excel cert-oszlopában, az alábbi képernyőképen. Miután az összes sort cellaérték alapján választotta ki, manuálisan áthelyezheti vagy átmásolhatja őket egy új helyre, amire az Excelben szüksége van.
Töltse le és próbálja ki most! (30 napos ingyenes túra)
Kapcsolódó cikkek:
- Hogyan kombinálhat több lapot pivot táblává az Excelben?
- Hogyan készítsünk kimutató táblázatot az Excel szövegfájljából?
- Hogyan szűrhető a Pivot-tábla egy adott cellaérték alapján az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!