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:

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

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?