Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Slik filtrerer du pivottabellen basert på en bestemt celleverdi i Excel?

Normalt filtrerer vi data i et pivottabell ved å sjekke verdier fra rullegardinlisten som det viste skjermbildet. Hvis du vil gjøre et pivottabell mer dynamisk ved å filtrere, kan du prøve å filtrere det basert på verdien i en bestemt celle. VBA-metoden i denne artikkelen vil hjelpe deg med å løse problemet.

Filter pivottabell basert på en bestemt celleverdi med VBA-kode


Velg enkelt hele rader basert på celleverdi i en certian-kolonne:

De Velg spesifikke celler nytte av Kutools for Excel kan hjelpe deg med å raskt velge hele rader basert på celleverdi i en certian-kolonne i Excel som vist under skjermbilde. Etter å ha valgt alle rader basert på celleverdi, kan du manuelt flytte eller kopiere dem til et nytt sted som du trenger i Excel.

Kutools for Excel: Med mer enn 200 praktiske Excel-tillegg, kan du prøve uten begrensning i 60-dager. Last ned gratis prøveversjon nå!

Excel-produktivitetsverktøy

Office-fanen: Ta med kraftige faner til Office (inkluderer Excel), akkurat som Chrome, Safari, Firefox og Internet Explorer. Spar deg halvparten av tiden, og redusere tusenvis av museklikk for deg. 30-dagen Ubegrenset gratis prøveversjon

Kutools for Excel: Lagre 70% av tiden din og løse 80% Excel-problemer for deg. 300 + avanserte funksjoner Utformet for 1500 + arbeidsscenario, gjør Excel veldig enkelt og øker produktiviteten umiddelbart.60-dagen Ubegrenset gratis prøveversjon


Filter pivottabell basert på en bestemt celleverdi med VBA-kode

Følgende VBA-kode kan hjelpe deg med å filtrere et pivottabell basert på en bestemt celleverdi i Excel. Vennligst gjør som følger.

1. Vennligst skriv inn en verdi du vil filtrere pivottabellen basert på i en celle på forhånd (her velger jeg celle H6).

2. Åpne regnearket inneholder pivottabellen du vil filtrere etter celleverdi. Høyreklikk deretter arkfanen og velg Vis kode fra hurtigmenyen. Se skjermbilde:

3. I åpningen Microsoft Visual Basic for Applications vindu, kopier under VBA kode i kodevinduet.

VBA-kode: Filterpivottabell basert på celleverdi

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

Merknader: I koden,

1) "Sheet1"Er navnet på regnearket.

2) "PivotTable2"Er navnet på pivottabellen.

3) Filtreringsfeltet i pivottabellen kalles "Kategori".

4) Verdien du vil filtrere pivottabellen er plassert i cellen H6.

Du kan endre ovennevnte variabelverdier som du trenger.v

4. trykk andre + Q nøkler for å lukke Microsoft Visual Basic for Applications vinduet.

Deretter filtrerer pivottabellen basert på verdien i celle H6 som vist under skjermbilde:

Du kan endre celleverdien til andre etter behov.

Merknader: Verdier du skriver inn i celle H6, skal nøyaktig matche verdiene i kategorien Nedtrekksliste med pivottabellen.


Office-fanen - Tabbed Browsing, redigering og håndtering av arbeidsbøker i Excel:

Office-fanen bringer tabbedgrensesnittet som vist i nettlesere som Google Chrome, Internet Explorer-nye versjoner og Firefox til Microsoft Excel. Det vil være et tidsbesparende verktøy og irreplaceble i arbeidet ditt. Se under demo:

Klikk for gratis prøveversjon av Office-fanen!

Office-fanen for Excel


Relaterte artikler:


Excel-produktivitetsverktøy

Ribbon of Excel (med Kutools for Excel installert)

300 + Avanserte funksjoner Øk produktiviteten din med 70%, og hjelp deg til å stå ut av mengden!

Vil du fullføre ditt daglige arbeid raskt og perfekt? Kutools For Excel bringer 300 + kule og kraftige avanserte funksjoner (Kombiner arbeidsbøker, sum for farge, delt celleinnhold, konverter dato, og så videre ...) for 1500 + arbeidsscenarier, hjelper deg med å løse 80% Excel-problemer.

  • Håndtere alle kompliserte oppgaver i sekunder, bidra til å forbedre arbeidsevnen din, få suksess fra den voldsomme konkurransen, og aldri bekymre deg for å bli sparket.
  • Spar mye arbeidstid, la mye tid for deg å elske og ta vare på familien og nyte et komfortabelt liv nå.
  • Reduser tusenvis av tastatur og museklikk hver dag, lind dine slitne øyne og hender, og gi deg en sunn kropp.
  • Bli en ekspertekspert i 3 minutter, og få beundrende blikk fra dine kolleger eller venner.
  • Ikke lenger å huske noen smertefulle formler og VBA koder, ha et avslappende og hyggelig sinn, gi deg en spenning du aldri har hatt før.
  • Tilbring bare $ 39, men verdt mer enn $ 4000 trening av andre. Brukes av 110,000 elites og 300 + kjente selskaper.
  • 60-dagen ubegrenset gratis prøveversjon. 60-dagers pengene tilbake-garanti. Gratis oppgradering og støtte for 2 år. Kjøp en gang, bruk evig.
  • Endre måten du jobber nå, og gi deg et bedre liv med det samme!

Office-fanen gir effektive og praktiske faner til Office (inkluderer Excel), akkurat som Chrome, Firefox og ny IE

  • Øker produktiviteten din ved 50% når du ser på og redigerer flere dokumenter.
  • Reduser hundrevis av museklikk for deg hver dag, si farvel til musen.
  • Åpne og opprett dokumenter i nye faner i samme vindu, i stedet for i nye vinduer.
  • Hjelper deg med å jobbe raskere og lett skille seg ut fra mengden! Ett sekund å bytte mellom dusinvis av åpne dokumenter!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    How would you do this with a report filter that has a hierarchy?

  • To post as a guest, your comment is unpublished.
    Daniel · 9 months ago
    Using this code (updated for my variables of course), when changing the field, the filter changes momentarily to the correct one, and then clears itself almost immediately. Trying to figure out why it's doing this (wondering if it has something to do with the ClearAllFilters at the end of the sub?)