Hur länkar man pivottabelfilter till en viss cell i Excel?

Om du vill länka ett pivottabelfilter till en viss cell och göra pivottabellen filtrerad baserat på cellvärdet kan metoden i den här artikeln hjälpa dig.

Länka pivottabelfiltret till en viss cell med VBA-kod

Länka pivottabelfiltret till en viss cell med VBA-kod

Pivottabellen som du kommer att länka dess filterfunktion till ett cellvärde bör innehålla ett filterfält (namnet på filterfältet spelar en viktig roll i följande VBA-kod).

Ta nedanstående pivottabell som ett exempel. Filterfältet i pivottabellen kallas Kategori, och den innehåller två värden ”Kostnader"Och"Försäljning”. Efter att ha kopplat pivottabelfiltret till en cell bör de cellvärden som du kommer att använda för att filtrera pivottabellen vara "Utgifter" och "Försäljning".

1. Välj den cell (här väljer jag cell H6) som du kommer att länka till Pivot Tabells filterfunktion och ange ett av filtervärdena i cellen i förväg.

2. Öppna kalkylbladet innehåller pivottabellen som du kommer att länka till cellen. Högerklicka på arkfliken och välj Visa kod från snabbmenyn. Se skärmdump:

3. I Microsoft Visual Basic för applikationer kopiera under VBA-koden till kodfönstret.

VBA-kod: Länk pivottabelfilter till en viss cell

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

Anmärkningar:

4. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Nu är filterfunktionen i pivottabellen kopplad till cell H6.

Uppdatera cellen H6, sedan filtreras motsvarande data i pivottabellen ut baserat på det befintliga värdet. Se skärmdump:

När du ändrar cellvärdet ändras de filtrerade data i pivottabellen automatiskt. Se skärmdump:

Relaterade artiklar:

• Hur kombinerar jag flera ark i en pivottabell i Excel?
• Hur skapar jag en pivottabell från textfilen i Excel?
• Hur filtrerar man pivottabellen baserat på ett specifikt cellvärde i Excel?