Hvordan filtreres pivottabellen baseret på en bestemt celleværdi i Excel?
Normalt filtrerer vi data i en pivottabel ved at vælge elementer i rullelisten som vist på skærmbilledet nedenfor. Faktisk kan du filtrere en pivottabel baseret på værdien i en bestemt celle. VBA-metoden i denne artikel hjælper dig med at løse problemet.
Filtrer pivottabel baseret på en bestemt celleværdi med VBA-kode
Filtrer pivottabel baseret på en bestemt celleværdi med VBA-kode
Følgende VBA-kode kan hjælpe dig med at filtrere en pivottabel baseret på en bestemt celleværdi i Excel. Gør som følger.
1. Indtast venligst en værdi, som du vil filtrere pivottabellen baseret på i en celle på forhånd (her vælger jeg celle H6).
2. Åbn regnearket indeholder pivottabellen, som du vil filtrere efter celleværdi. Højreklik derefter på arkfanen, og vælg Vis kode i genvejsmenuen. Se skærmbillede:
3. I åbningen Microsoft Visual Basic til applikationer vindue, kopier under VBA-koden til kodevinduet.
VBA-kode: Filter-pivottabel baseret på celleværdi
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
Noter: I koden,
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Derefter filtreres pivottabellen baseret på værdien i celle H6 som vist nedenstående skærmbillede:
Du kan ændre celleværdien til andre, som du har brug for.
Bemærk: Værdier, du skriver i celle H6, skal nøjagtigt matche værdierne i rullelisten Kategori i pivottabellen.
Relaterede artikler:
- Hvordan kombineres flere ark i en pivottabel i Excel?
- Hvordan oprettes en pivottabel fra tekstfil i Excel?
- Hvordan linkes Pivot Table-filter til en bestemt celle i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!