Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip filtruoti "Pivot" lentelę pagal "Excel" konkrečią ląstelių vertę?

Paprastai duomenis filtruojame Pivot lentelėje, patikriname išplečiamajame sąraše esančias reikšmes, kaip parodyta kairia ekrano kopija. Jei norite, kad pivot lentelė būtų filtruojama dinamiškesnė, galite pabandyti filtruoti ją pagal konkrečios ląstelės vertę. VBA metodas šiame straipsnyje padės išspręsti problemą.

Filtruokite Pivot lentelę pagal konkrečią langelio vertę naudodami VBA kodą


Lengvai parinkite visas eilutes pagal ląstelių vertę sertianiniame stulpelyje:

Itu Pasirinkite specifines ląsteles naudingumas Kutools for Excel gali padėti jums greitai pasirinkti visas eilutes pagal ląstelių vertę "Certian" stulpelyje "Excel", kaip parodyta paveikslėlyje. Pasirinkę visas eilutes pagal ląstelių vertę, galite rankiniu būdu perkelti arba nukopijuoti juos į naują vietą, kaip jums reikia "Excel".

Kutools for Excel: su daugiau nei 200 patogiais "Excel" priedais, galite nemokamai bandyti be apribojimų per 60 dienas. Atsisiųskite nemokamą bandomąją versiją dabar!

„Excel“ produktyvumo įrankiai

Office Tab: Kaip „Chrome“, „Safari“, „Firefox“ ir „Internet Explorer“ atnešti galingus skirtukus į „Office“ (įskaitant „Excel“). Išsaugokite pusę laiko, ir sumažinti tūkstančius pelės paspaudimų už jus. 30 dienos neribota nemokama bandomoji versija

Kutools for Excel: Išsaugoti 70% savo laiko ir išspręsti „80% Excel“ problemas už jus. 300 + papildomos funkcijos sukurtas 1500 + darbo scenarijui, kad „Excel“ būtų daug lengviau ir nedelsiant padidintumėte našumą.60 dienos neribota nemokama bandomoji versija


Filtruokite Pivot lentelę pagal konkrečią langelio vertę naudodami VBA kodą

Šis VBA kodas gali padėti jums filtruoti pivot lentelę pagal konkrečią ląstelių vertę "Excel". Prašau tai padaryti.

1. Įveskite vertę, pagal kurią iš anksto filtravite Pivot lentelę į ląstelę (čia aš pasirinksiu langelį H6).

2. Atidarykite darbalapyje esančią Pivot lentelę, kurią filtruojate pagal ląstelių vertę. Tada dešiniuoju pelės mygtuku spustelėkite lapo skirtuką ir pasirinkite kontekstiniame meniu Žiūrėti kodą. Žr. Ekrano kopiją:

3. Atidaryme "Microsoft Visual Basic for Applications" langas, nukopijuokite žemiau VBA kodą į langą Kodas.

VBA kodas: Pivot lentelės filtras, pagrįstas ląstelių verte

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

pastabos: Kode,

1) "Sheet1"Yra darbalapio pavadinimas.

2) "PivotTable2"Yra Pivot lentelės pavadinimas.

3) Filtro laukas posūkio lentelėje vadinamas "Kategorija".

4) Vertė, kurią norite filtruoti šarnyrinę lentelę, dedama į langelį H6.

Galite pakeisti nurodytas kintamas vertes, kaip jums reikia. V

4. Paspauskite Kitas + Q raktus uždaryti "Microsoft Visual Basic for Applications" langas.

Tada Pivot Table filtruojama pagal lange H6 pateiktą vertę, kaip parodyta paveikslėlyje:

Galite pakeisti ląstelių vertę kitiems, kaip jums reikia.

pastabos: Vertės, kurias įvedate į ląstelių H6, tiksliai turi atitikti Pivot lentelės išskleidžiamojo sąrašo kategorijos reikšmes.


Office Tab - Darbalapių naršymas, redagavimas ir valdymas "Excel" skirtukais:

"Office" skirtukas palengvina skirtukų sąsają, kaip matyti interneto naršyklėse, pvz., "Google Chrome", "Internet Explorer" naujose versijose ir "Firefox", skirtuose "Microsoft Excel". Tai bus laiko taupymo priemonė ir nepakeičiama jūsų darbe. Žiūrėkite demo žemiau:

Spustelėkite, jei norite išbandyti Office Tab!

"Office" skirtukas Excel


Susiję straipsniai:


„Excel“ produktyvumo įrankiai

„Excel“ juosta (įdiegta „Kutools for Excel“)

300 + Išplėstinės funkcijos Padidinkite produktyvumą 70% ir padėkite išsiskirti iš minios!

Ar norėtumėte greitai ir puikiai atlikti savo kasdienį darbą? Kutools for Excel atneša 300 + vėsios ir galingos papildomos funkcijos (Kombinuoti darbo knygas, sumą pagal spalvą, padalintų langelių turinį, konvertuoti datą ir kt.) 1500 + darbo scenarijai, padeda jums išspręsti 80% „Excel“ problemos.

  • Susidomėkite su visomis sudėtingomis užduotimis per kelias sekundes, sulaukite sėkmės iš stiprios konkurencijos ir niekada nesirūpinkite dėl to, kad esate atleistas.
  • Sutaupykite daug darbo laiko, palikite daug laiko mylėti ir rūpintis šeima ir mėgautis patogiu gyvenimu dabar.
  • Kasdien sumažinkite tūkstančius klaviatūros ir pelės paspaudimų, atleiskite pavargusias akis ir rankas, ir suteikti jums sveiką kūną.
  • Tapkite „Excel“ ekspertu „3“ minutėmis ir žavėkitės savo kolegomis ar draugais.
  • Nereikia prisiminti skausmingų formulių ir VBA kodų, atsipalaiduoti ir maloniai mąstyti, duoti jums jaudulį, kurio anksčiau neturėjote.
  • Praleiskite tik $ 39, bet verta už kitų 4000 mokymą. Naudojamos 110,000 elito ir 300 + žinomos įmonės.
  • 60 dienos neribotas nemokamas bandymas. 60 dienos pinigų grąžinimo garantija. Nemokamas „2“ metų atnaujinimas ir palaikymas. Pirkite vieną kartą, naudokite amžinai.
  • Pakeiskite savo darbo būdą ir nedelsiant suteikite geresnį gyvenimą!

Skirtukas „Office“ atneša efektyvius ir patogius skirtukus į „Office“ (įskaitant „Excel“), kaip „Chrome“, „Firefox“ ir „New IE“

  • Kai peržiūrite ir redaguojate kelis dokumentus, 50% padidina našumą.
  • Sumažinkite šimtus pelės paspaudimų kiekvieną dieną, atsisveikinkite su pele.
  • Atidarykite ir sukurkite dokumentus naujuose to paties lango skirtukuose, o ne naujuose languose.
  • Padėkite jums dirbti greičiau ir lengvai išsiskirti iš minios! Vieną sekundę, jei norite persijungti iš dešimčių atvirų dokumentų!
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?)