Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að sía Pivot borð byggt á tilteknu klefi gildi í Excel?

Venjulega erum við að sía gögn í svigatafla með því að skoða gildi frá fellilistanum sem vinstri skjámyndin sem sýnd er. Ef þú vilt gera pivot töflunni virkari með því að sía, getur þú reynt að sía það byggt á gildi í tilteknu reit. VBA aðferðin í þessari grein mun hjálpa þér að leysa vandamálið.

Síldarbreytingartafla byggt á tilteknu klefi gildi með VBA kóða


Veljið einfaldlega alla línurnar sem eru byggðar á gildum í reitnum í certian dálki:

The Veldu sérstakar frumur gagnsemi Kutools fyrir Excel getur hjálpað þér að velja fljótt alla raðirnar sem eru byggðar á gildum klefi í certian dálki í Excel eins og sýnt er hér að neðan. Eftir að þú hefur valið allar raðir sem byggjast á gildi klefi geturðu handvirkt færa eða afritað þær á nýjan stað eins og þú þarft í Excel.

Kutools fyrir Excel: með fleiri en 200 handhægum Excel viðbótum, ókeypis að reyna án takmörkunar á 60 daga. Sækja ókeypis prufuna núna!


Síldarbreytingartafla byggt á tilteknu klefi gildi með VBA kóða

Eftirfarandi VBA kóða getur hjálpað þér að sía svigatafla byggt á tilteknu gildi í Excel. Vinsamlegast gerðu eftirfarandi.

1. Vinsamlegast sláðu inn gildi sem þú verður að sía Pivot Tafla byggt á í klefi fyrirfram (hér velur ég reit H6).

2. Opna verkstæði inniheldur pivot töflunni sem þú verður að sía eftir klefi gildi. Hægri smelltu síðan á blaðsflipann og veldu Skoða kóða úr samhengisvalmyndinni. Sjá skjámynd:

3. Í opnuninni Microsoft Visual Basic fyrir forrit gluggi, afritaðu undir VBA kóða í kóðann.

VBA kóða: Sía Pivot Tafla byggt á klefi gildi

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

Skýringar: Í kóðanum,

1) "Sheet1"Er heiti vinnublaðsins.

2) "PivotTable2"Er nafnið á snúningsborðinu.

3) Síunarreiturinn í snúningsborðinu er kallaður "Flokkur".

4) Gildið sem þú vilt sía pivot töflunni er sett í klefi H6.

Þú getur breytt ofangreindum breytilegum gildum eins og þú þarft.v

4. Ýttu á Alt + Q lyklar til að loka Microsoft Visual Basic fyrir forrit gluggi.

Þá er Pivot Taflan sía byggð á gildi í H6 klefi eins og sýnt er hér að neðan:

Þú getur breytt klefi gildi til annarra eins og þú þarft.

Athugaðu: Gildi sem þú slærð inn í klefi H6 ættu nákvæmlega að passa við gildin í fellilistanum Flokkur flipa Tafla.


Office flipi - Flipa, breyta og stjórna vinnubækur í Excel:

Skrifstofa Tab færir grábröndóttur köttur tengi eins og sést í vöfrum eins og Google Chrome, Internet Explorer nýjar útgáfur og Firefox til Microsoft Excel. Það verður tímabundið tól og irreplaceble í vinnunni þinni. Sjá hér fyrir neðan kynningu:

Smelltu til að fá ókeypis próf á Office Tab!

Skrifstofa flipa fyrir Excel


Tengdar greinar:


Ráðlögð framleiðni verkfæri

Borði af Excel (með Kutools fyrir Excel uppsett)

300 + Ítarlegir eiginleikar Auka framleiðni þína með 71% og hjálpa þér að standa út úr hópnum!

Viltu ljúka daglegu starfi þínu fljótt og fullkomlega? Kutools Fyrir Excel færir 300 + flott og öflugt háþróaður lögun (Sameina vinnubækur, summa eftir lit, skipta innihaldi klefi, breyta dagsetningu, og svo framvegis ...) fyrir 1500 + vinnusvið, hjálpar þér að leysa 82% Excel vandamál.

  • Takast á við öll flókin verkefni í sekúndum, hjálpa til við að auka vinnufærni þína, ná árangri frá brennandi samkeppni og aldrei hafa áhyggjur af því að vera rekinn.
  • Sparaðu mikinn vinnutíma, láttu mikinn tíma fyrir þig að elska og annast fjölskylduna og njóta þægilegt líf núna.
  • Minnka þúsundir lyklaborðs og músaklemna á hverjum degi, létta þreyttu augun og hendur, og gefa þér heilbrigðan líkama.
  • Verið sérfræðingur í Excel á 3 mínútum og fáðu dásamlega sýn frá samstarfsmönnum þínum eða vinum.
  • Ekki þarf lengur að muna hvaða sársaukafullar formúlur og VBA kóðar, hafa afslappandi og skemmtilega huga, gefa þér spennu sem þú hefur aldrei áður haft.
  • Eyddu aðeins $ 39, en virði en $ 4000 þjálfun annarra. Tilvera notuð af 110,000 Elite og 300 + vel þekkt fyrirtæki.
  • 60-dagur ótakmarkað ókeypis prufa. 60-dagur peningarábyrgð. Frjáls uppfærsla og stuðningur fyrir 2 ár. Kaupa einu sinni, nota að eilífu.
  • Breyttu því hvernig þú vinnur núna og gefðu þér betra líf strax!

Skrifstofa flipi færir skilvirkan og handvirka flipa til skrifstofu (innihalda Excel), rétt eins og Króm, Eldur og nýr IE

  • Auktar framleiðni þína með 50% þegar þú skoðar og breytir mörgum skjölum.
  • Minnka hundruð smelli á músina fyrir þig á hverjum degi, segðu hönd músarhönd.
  • Opnaðu og búa til skjöl í nýjum flipa í sömu glugga, frekar en í nýjum gluggum.
  • Hjálpa þér að vinna hraðar og auðveldlega standa út úr hópnum! Einni sekúndu til að skipta á milli tugum opnum skjala!
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?)