Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i hidlo tabl Pivot yn seiliedig ar werth cell penodol yn Excel?

Fel arfer, rydym yn hidlo data mewn Tabl Pivot trwy wirio gwerthoedd o'r rhestr ostwng fel y dangosir y sgrin chwith. Os ydych chi am wneud Tabl Pivot yn fwy deinamig trwy hidlo, gallwch geisio ei hidlo yn seiliedig ar werth mewn celloedd penodol. Bydd y dull VBA yn yr erthygl hon yn eich helpu i ddatrys y broblem.

Tabl Pivot Filter ar sail gwerth cell penodol gyda chod VBA


Dewiswch resiliau cyfan yn hawdd yn seiliedig ar werth celloedd mewn colofn ardystydd:

y Dewiswch Gelloedd Penodol cyfleustodau i Kutools ar gyfer Excel Gall eich helpu chi i gyflym ddewis rhesi cyfan yn seiliedig ar werth celloedd mewn colofn ardystiwr yn Excel fel y dangosir y sgrin isod. Ar ôl dewis pob rhes yn seiliedig ar werth celloedd, gallwch symud neu gopïo â llaw i leoliad newydd fel y mae ei angen arnoch yn Excel.

Kutools ar gyfer Excel: gyda mwy na 200 Excel add-ins, yn rhad ac am ddim i geisio heb gyfyngiad mewn dyddiau 60. Lawrlwythwch y treial am ddim Nawr!


Tabl Pivot Filter ar sail gwerth cell penodol gyda chod VBA

Gall y cod VBA canlynol eich helpu i hidlo Tabl Pivot yn seiliedig ar werth celloedd penodol yn Excel. Gwnewch fel a ganlyn.

1. Rhowch werth y byddwch yn hidlo Tabl Pivot wedi'i seilio ar gell ymlaen llaw (dwi'n dewis cell H6).

2. Mae agor y daflen waith yn cynnwys y Tabl Pivot y byddwch yn ei hidlo trwy werth y celloedd. Yna, cliciwch dde ar y tablen ddalen a dewiswch View Code o'r ddewislen cyd-destun. Gweler y sgrin:

3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copi isod y cod VBA i ffenestr y Cod.

Cod VBA: Tabl Pivot Filter ar sail gwerth celloedd

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

Nodiadau: Yn y cod,

1) "Sheet1"Yw enw'r daflen waith.

2) "PivotTable2"Yw enw'r Tabl Pivot.

3) Mae'r maes hidlo yn y bwrdd pivot yn cael ei alw'n "categori".

4) Rhoddir y gwerth yr ydych am ei hidlo'r bwrdd pivot yn y gell H6.

Gallwch chi newid y gwerthoedd amrywiol uchod fel y mae angen.v

4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Yna, mae'r Tabl Pivot yn hidlo yn seiliedig ar y gwerth yn y celloedd H6 fel y dangosir y sgrin isod:

Gallwch chi newid y gwerth celloedd i eraill fel y bo angen.

Nodyn: Y gwerthoedd y byddwch yn eu teipio mewn cell Dylai H6 gydweddu'n union â'r gwerthoedd yn y rhestr ostwng Categori o Fwrdd Pivot.


Tab Swyddfa - Pori, Editing Tabbed a Rheoli Llyfrau Gwaith yn Excel:

Mae Office Tab yn dod â'r rhyngwyneb tabbed fel y gwelir mewn porwyr gwe fel Google Chrome, fersiynau newydd Internet Explorer a Firefox i Microsoft Excel. Bydd yn offeryn arbed amser ac yn anorfodadwy yn eich gwaith. Gweler y demo isod:

Cliciwch ar gyfer treialu Tab Tab Office am ddim!

Tab Office ar gyfer Excel


Erthyglau cysylltiedig:


Offer Cynhyrchiant a Argymhellir

Rhuban Excel (gyda Kutools ar gyfer Excel wedi'i osod)

300 + Nodweddion Uwch Cynyddu Eich Cynhyrchedd gan 71%, a Helpu I Chi Sefyll Allan o Dorf!

A hoffech chi gwblhau eich gwaith dyddiol yn gyflym ac yn berffaith? Kutools Ar gyfer Excel dod 300 + nodweddion uwch oer a phwerus (Cyfunwch lyfrau gwaith, swm fesul lliw, cynnwys cell wedi'i rannu, trosi dyddiad, ac ati ...) ar gyfer 1500 + senarios gwaith, yn eich helpu i ddatrys 82% Problemau Excel.

  • Ymdrin â phob tasg gymhleth mewn eiliadau, helpu i wella'ch gallu gwaith, cael llwyddiant o'r gystadleuaeth ffyrnig, a pheidiwch byth â phoeni am gael eich tanio.
  • Arbedwch lawer o amser gwaith, gadewch lawer o amser i chi garu a gofalu am y teulu a mwynhau bywyd cyfforddus nawr.
  • Lleihau miloedd o chleciau bysellfwrdd a llygoden bob dydd, lleddfu'ch llygaid a'ch dwylo blinedig, a rhoi corff iach i chi.
  • Dod yn arbenigwr Excel mewn munudau 3, a chael golwg ar edmygedd gan eich cydweithwyr neu'ch ffrindiau.
  • Nid oes angen cofio unrhyw fformiwlâu poenus a chodau VBA mwyach, gyda meddwl ymlaciol a dymunol, rhoi gwefr i chi nad ydych chi erioed wedi'i chael o'r blaen.
  • Treuliwch dim ond $ 39, ond gwerth mwy na $ 4000 o hyfforddiant i eraill. Cael eu defnyddio gan 110,000 elites a chwmnïau adnabyddus 300 +.
  • 60 treial rhad ac am ddim diderfyn. Gwarant arian yn ôl 60-day. Uwchraddio a chymorth am ddim am flynyddoedd 2. Prynwch unwaith, defnyddiwch am byth.
  • Newidiwch y ffordd rydych chi'n gweithio nawr, a rhowch fywyd gwell i chi ar unwaith!

Mae Tab y Swyddfa yn Dod â Thabiau Effeithlon a Dwylo i'r Swyddfa (gan gynnwys Excel), Yn union fel Chrome, Firefox, A IE Newydd

  • Cynyddu eich cynhyrchiant gan 50% wrth edrych ar a golygu nifer o ddogfennau.
  • Lleihau cannoedd o gliciau llygoden i chi bob dydd, ffarwelio â llaw y llygoden.
  • Agor a chreu dogfennau mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Helpwch chi i weithio'n gyflymach ac yn hawdd sefyll allan o'r dorf! Un eiliad i newid rhwng dwsinau o ddogfennau agored!
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?)