Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako filtrirati Pivot tablicu na temelju određene vrijednosti ćelije u programu Excel?

Uobičajeno, filtriranje podataka u tablici zaokreta provjeravamo vrijednosti s padajućeg popisa dok se prikazuje slijeva snimka zaslona. Ako želite filtrirati dinamičnije Pivot tablice, možete je pokušati filtrirati na temelju vrijednosti u određenoj ćeliji. VBA metoda u ovom članku pomoći će vam u rješavanju problema.

Pivot tablica filtra na temelju određene vrijednosti ćelije s VBA kodom


Jednostavno odaberite cijele retke na temelju vrijednosti ćelije u certifikacijskom stupcu:

Odlomak Odaberite Specific Cells korisnost Kutools za Excel može vam pomoći da brzo odaberete cijele retke na temelju vrijednosti ćelije u certifikatnom stupcu u programu Excel kao što je prikazano na slici. Nakon odabira svih redaka na temelju vrijednosti ćelije, možete ih ručno premjestiti ili kopirati na novo mjesto kao što je potrebno u programu Excel.

Kutools za Excel: s više od 200 zgodnih Excel dodataka, slobodan pokušati bez ograničenja u 60 dana. Preuzmite besplatnu probnu verziju odmah!


Pivot tablica filtra na temelju određene vrijednosti ćelije s VBA kodom

Sljedeći VBA kôd može vam pomoći filtriranje Pivot tablice na temelju određene vrijednosti ćelije u programu Excel. Učinite sljedeće.

1. Unesite vrijednost koju će unaprijed filtrirati Pivot tablicu na temelju ćelije (ovdje odabirem ćeliju H6).

2. Otvorite radni list koji sadrži Pivot tablicu koju ćete filtrirati prema vrijednosti ćelije. Zatim desnom tipkom kliknite karticu i odaberite View Code iz kontekstnog izbornika. Pogledajte snimak zaslona:

3. U otvoru Microsoft Visual Basic for Applications prozor, kopirajte ispod VBA koda u prozor s kodom.

VBA kôd: Filtrirajte Pivot tablicu baziranu na vrijednosti ćelije

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

Bilješke: U kodu,

1) "Sheet1"Je naziv radnog lista.

2) "PivotTable2"Je naziv Pivot tablice.

3) Polje filtriranja u pivotnoj tablici zove se "Kategorija".

4) Vrijednost koju želite filtrirati pivotna tablica nalazi se u ćeliji H6.

Možete izmijeniti gore navedene vrijednosti varijabli kao što je potrebno

4. pritisni drugo + Q tipke za zatvaranje Microsoft Visual Basic for Applications prozor.

Zatim se Pivotna tablica filtrira na temelju vrijednosti u ćeliji H6 kako je prikazano na slici u nastavku:

Svoju ćeliju možete promijeniti drugima kao što vam je potrebno.

bilješke: Vrijednosti koje upisujete u ćeliju H6 trebale bi točno odgovarati vrijednostima u padajućem popisu Pivot Table kategorije.


Kartica sustava Office - Kartično pregledavanje, uređivanje i upravljanje radnim knjigama u Excelu:

Kartica Office donosi kartice sučelje koje se vidi u web preglednicima kao što su Google Chrome, nove verzije programa Internet Explorer i Firefox za Microsoft Excel. To će biti alat koji štedi vrijeme i nezamjenjiv je u svom radu. Pogledajte demonstraciju u nastavku:

Kliknite besplatnu probnu verziju Office Kartica!

Kartica Office za Excel


Povezani članci:



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke Kutools za Excel

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 · 7 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 · 8 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?)