Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā filtrēt Pivot tabulu, izmantojot Excel konkrētu šūnu vērtību?

Parasti mēs filtrē datus pivot tabulā, pārbaudot vērtības no nolaižamā saraksta, kā parādīts kreisajā ekrānuzņēmumā. Ja vēlaties, lai filtrēšanas tabula kļūtu dinamiskāka, varat mēģināt to filtrēt, pamatojoties uz vērtību noteiktā šūnā. Šī raksta VBA metode palīdzēs jums atrisināt problēmu.

Filter Pivot Table balstās uz konkrētu šūnu vērtību ar VBA kodu


Viegli atlasiet visas rindas, pamatojoties uz šūnas vērtību certian slejā:

The Atlasiet īpašās šūnas lietderība Kutools Excel var palīdzēt jums ātri atlasīt visas rindas, pamatojoties uz šūnas vērtību certian kolonnā Excel, kā parādīts zemāk. Pēc visu rindu izvēles, pamatojoties uz šūnas vērtību, varat manuāli pārvietot vai kopēt tos uz jauno atrašanās vietu, kā tas nepieciešams Excel.

Kutools Excel: ar vairāk nekā 200 ērtiem Excel pievienojumprogrammām, bez maksas izmēģināt bez ierobežojumiem 60 dienās. Lejupielādējiet bezmaksas izmēģinājuma versiju tagad!


Filter Pivot Table balstās uz konkrētu šūnu vērtību ar VBA kodu

Sekojošais VBA kods var palīdzēt filtrēt pivot tabulu, pamatojoties uz konkrētu šūnu vērtību programmā Excel. Lūdzu, rīkojieties šādi.

1. Lūdzu, ievadiet vērtību, pēc kuras jūs filtrēsiet Pivot tabulu, pamatojoties uz šūnu iepriekš (šeit es izvēlos šūnu H6).

2. Atveriet darblapu satur Pivot tabulu, kuru filtrēsit pēc šūnu vērtības. Tad peles labo pogu noklikšķiniet uz lapas cilnes un konteksta izvēlnē atlasiet Skatīt kodu. Skatīt ekrānuzņēmumu:

3. Atklāšanā Microsoft Visual Basic for Applications logu, kopējiet zemāk VBA kodu koda logā.

VBA kods: filtru pivot tabula, pamatojoties uz šūnas vērtību

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

Piezīmes: Kodā

1) "Sheet1"Ir darba lapas nosaukums.

2) "PivotTable2"Ir vārpstas tabulas nosaukums.

3) Pivotēšanas tabulā esošais filtrēšanas lauks ir "kategorija".

4) Vērtība, kuru vēlaties filtrēt šarnīru tabulu, ievieto šūnā H6.

Varat mainīt iepriekš minētās mainīgās vērtības, kā nepieciešams. V

4. Nospiediet cits + Q taustiņi, lai aizvērtu Microsoft Visual Basic for Applications logs.

Tad Pivot Table tiek filtrēta, pamatojoties uz vērtību šūnā H6, kā parādīts zemāk:

Jūs varat mainīt šūnas vērtību citiem, kā jums nepieciešams.

Piezīmes: Vērtības, kuras jūs ievadāt šūnā H6, precīzi jāatbilst vērtībām Pivot Table nolaižamajā sarakstā Kategorija.


Cilnē Office - tabulu pārlūkošana, rediģēšana un darbgrāmatu pārvaldīšana programmā Excel:

Office cilnē tiek parādīts cilnes interfeiss, kas redzams tīmekļa pārlūkprogrammās, piemēram, Google Chrome, Internet Explorer jaunās versijās un Firefox uz Microsoft Excel. Tas būs laika taupīšanas rīks un neaizvietojams darbā. Skatīt demo zemāk:

Noklikšķiniet, lai saņemtu Office Tab bezmaksas izmēģinājumu!

Office cilne Excel


Līdzīgi raksti:


Ieteicamie produktivitātes rīki Excel

kte tab 201905

Kutools Excel palīdz jums vienmēr pabeigt darbu pirms laika un izcelties no pūļa

  • Vairāk nekā 300 jaudīgas uzlabotas funkcijas, kas paredzētas 1500 darba scenārijiem, palielinot 70% produktivitāti, dod jums vairāk laika, lai rūpētos par ģimeni un baudītu dzīvi.
  • Vairs nav nepieciešams iegaumēt formulas un VBA kodus, turpmāk dot savu smadzeņu atpūtu.
  • Kļūsti par Excel ekspertu 3 minūtēs, sarežģītas un atkārtotas darbības var veikt sekundēs,
  • Samaziniet tūkstošiem tastatūras un peles operāciju katru dienu, atvadieties no arodslimībām tagad.
  • 110,000 ir ļoti efektīvs un 300 + pasaulē pazīstamu uzņēmumu izvēle.
  • Pilnas 60 dienas bezmaksas izmēģinājums. 60 dienu naudas atmaksas garantijas. 2 gadu bezmaksas jauninājums un atbalsts.

Pārvieto pārlūkošanu un rediģēšanu uz Microsoft Office, daudz jaudīgāk nekā pārlūkprogrammas cilnes

  • Office cilne ir paredzēta Word, Excel, PowerPoint un citām Office lietojumprogrammām: Publisher, Access, Visio un Project.
  • Atveriet un izveidojiet vairākus dokumentus tā paša loga jaunās cilnēs, nevis jaunos logos.
  • Palielina produktivitāti, izmantojot 50%, un katru dienu samazina simtiem peles klikšķu!
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?)