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 SubMegjegyzé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 termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza 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!
