Jak propojit filtr kontingenční tabulky s určitou buňkou v aplikaci Excel?
Pokud chcete propojit filtr kontingenční tabulky s určitou buňkou a provést kontingenční tabulku filtrovanou na základě hodnoty buňky, může vám pomoci metoda v tomto článku.
Propojte filtr kontingenční tabulky s určitou buňkou pomocí kódu VBA
Propojte filtr kontingenční tabulky s určitou buňkou pomocí kódu VBA
Kontingenční tabulka, kterou propojíte její funkci filtru s hodnotou buňky, by měla obsahovat pole filtru (název pole filtru hraje důležitou roli v následujícím kódu VBA).
Jako příklad si vezměte níže uvedenou kontingenční tabulku, volá se pole filtru v kontingenční tabulce Kategorie, a obsahuje dvě hodnoty „výdaje"A"Prodej“. Po propojení filtru kontingenční tabulky s buňkou by hodnoty buňky, které použijete pro filtrování kontingenční tabulky, měly být „Výdaje“ a „Prodej“.
1. Vyberte buňku (zde vyberu buňku H6), kterou propojíte s funkcí filtru kontingenční tabulky, a do buňky předem zadejte jednu z hodnot filtru.
2. Otevřete list obsahující kontingenční tabulku, kterou propojíte s buňkou. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
3. V Microsoft Visual Basic pro aplikace zkopírujte níže uvedený kód VBA do okna Kód.
Kód VBA: Propojte filtr kontingenční tabulky s určitou buňkou
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
Poznámky:
4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Nyní je funkce filtru kontingenční tabulky propojena s buňkou H6.
Obnovte buňku H6, poté se odpovídající data v kontingenční tabulce odfiltrují na základě existující hodnoty. Viz screenshot:
Při změně hodnoty buňky se filtrovaná data v kontingenční tabulce automaticky změní. Viz screenshot:
Snadno vyberte celé řádky na základě hodnoty buňky ve sloupci Certian:
Projekt Vyberte konkrétní buňky užitečnost Kutools pro Excel vám pomůže rychle vybrat celé řádky na základě hodnoty buňky ve sloupci certian v aplikaci Excel, jak je uvedeno níže. Po výběru všech řádků na základě hodnoty buňky je můžete ručně přesunout nebo zkopírovat do nového umístění podle potřeby v aplikaci Excel.
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)
Související články:
- Jak kombinovat více listů do kontingenční tabulky v aplikaci Excel?
- Jak vytvořit kontingenční tabulku z textového souboru v aplikaci Excel?
- Jak filtrovat kontingenční tabulku na základě konkrétní hodnoty buňky v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!