Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako filtrirati Pivot tabelo, ki temelji na določeni vrednosti celice v Excelu?

Običajno filtriramo podatke v Pivot Table, tako da preverimo vrednosti s spustnega seznama, kot je prikazano levo sliko. Če želite filtrirati bolj dinamično pivotno tabelo, jo lahko poskusite filtrirati glede na vrednost v določeni celici. Metoda VBA v tem članku vam bo pomagala rešiti težavo.

Pivot tabela filtrov temelji na določeni vrednosti celice s kodo VBA


Preprosto izberite celotne vrstice glede na vrednost celice v stolpcu certian:

O Izberite Specific Cells uporabnost Kutools za Excel vam lahko hitro pomaga izbrati celotne vrstice, ki temeljijo na vrednosti celice, v certifikacijskem stolpcu v Excelu, kot je prikazano spodaj. Ko izberete vse vrstice na podlagi vrednosti celice, jih lahko ročno premaknete ali kopirate na novo lokacijo, kot jo potrebujete v Excelu.

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite brezplačno preizkus Zdaj!


Pivot tabela filtrov temelji na določeni vrednosti celice s kodo VBA

Naslednja VBA koda vam lahko pomaga filtrirati pivot tabelo, ki temelji na določeni vrednosti celice v Excelu. Prosimo, naredite na naslednji način.

1. Prosimo, vnesite vrednost, ki jo boste vnaprej filtrirali Pivot tabelo v celico (tu bom izbral celico H6).

2. Odpiranje delovnega lista vsebuje Pivot Table, ki jo boste filtrirali po vrednosti celice. Nato z desno miškino tipko kliknite zavihek stanja in izberite kontekstni meni. Prikaz slike:

3. V odprtju Microsoft Visual Basic za aplikacije okno, kopirajte pod kodo VBA v okno Code.

VBA koda: Pivot tabela filtra temelji na vrednosti celice

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

Opombe: V kodi,

1) "Sheet1"Je ime delovnega lista.

2) "PivotTable2"Je ime Pivot Table.

3) Polje za filtriranje v vrtilni tabeli se imenuje "Kategorija".

4) Vrednost, ki jo želite filtrirati, je postavljena v celico H6.

Zgornje spremenljivke lahko spremenite, kot jih potrebujete

4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Potem je Pivot Tabela filtriranje na podlagi vrednosti v celici H6 kot pod prikazom slike:

Vrednost celice lahko spremenite drugim, kot jo potrebujete.

Opombe: Vrednosti, ki jih vnesete v celico, H6 mora natančno ujemati vrednosti na spustnem seznamu kategorije Pivot Table.


Office Tab - brskanje, urejanje in upravljanje črk v Excelu:

Office Tab prikaže vmesnik z zavihki, kot ga vidite v spletnih brskalnikih, kot so Google Chrome, nove različice programa Internet Explorer in Firefox v Microsoft Excel. To bo orodje za varčevanje z energijo in neupoštevanje vašega dela. Glej spodaj predstavitev:

Kliknite brezplačno preskusno različico Office Tab!

Zavihek Office za Excel


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 9 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 · 10 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?)