Hogyan szűrhető a Pivot-tábla egy adott cellaérték alapján az Excelben?

Általában egy kimutatástáblázatban szűrjük az adatokat a legördülő lista elemeinek kiválasztásával, az alábbi képernyőképen látható módon. Valójában szűrhet egy kimutatástáblát egy adott cellában lévő érték alapján. A cikkben szereplő VBA-módszer segít a probléma megoldásában.

Szűrje a kimutatási táblázatot egy VBA kóddal ellátott cellaérték alapján

Szűrje a kimutatási táblázatot egy VBA kóddal ellátott cellaérték alapján

A következő VBA-kód segíthet egy pivot-tábla szűrésében az Excel adott cellája alapján. Kérjük, tegye a következőket.

1. Kérjük, előzetesen írjon be egy cellába egy értéket, amely alapján a Pivot Table-t szűrni fogja (itt a H6 cellát választom).

2. Nyissa meg a pivot táblázatot tartalmazó munkalapot, amelyet cellaérték alapján szűr. Ezután kattintson a jobb gombbal a lap fülre, és válassza a helyi menü Kód megtekintése parancsát. Lásd a képernyőképet:

3. A nyílásban Microsoft Visual Basic for Applications ablakba, másolja a VBA kód alatt a Kód ablakba.

VBA kód: Szűrés kimutatási tábla a cella értéke alapján

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

Megjegyzések: A kódban

4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

Ezután a Pivot tábla a H6 cellában lévő érték alapján szűr, az alábbi képernyőképen:

Szükség szerint megváltoztathatja a cella értékét másokra.

Megjegyzések: A H6 cellába beírt értékeknek pontosan meg kell egyezniük a kimutatás táblázat kategória legördülő listájának értékeivel.

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 lehet összekapcsolni a Pivot Table szűrőt az Excel egy bizonyos cellájával?