Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot filtrar la taula dinàmica basada en un valor de cel·la específic a Excel?

Normalment, estem filtrant les dades en una taula dinàmica comprovant els valors de la llista desplegable com la captura de pantalla esquerra que es mostra. Si voleu fer més dinàmic una taula dinàmica mitjançant el filtratge, podeu intentar filtrar-la segons el valor d'una cel·la específica. El mètode VBA d'aquest article us ajudarà a resoldre el problema.

Taula de pivot de filtre basada en un valor de cel·la específic amb codi VBA


Seleccioneu fàcilment files completes basades en el valor de la cel·la en una columna certian:

El Seleccioneu cel·les específiques utilitat de Kutools for Excel us pot ajudar a seleccionar ràpidament files completes basades en el valor de la cel·la en una columna certiana d'Excel, tal com es mostra a continuació de la captura de pantalla. Després de seleccionar totes les files en funció del valor de la cel·la, podeu moure-les o copiar-les manualment a una nova ubicació tal com necessiteu a Excel.

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Descarregueu la prova gratuïta Ara!


Taula de pivot de filtre basada en un valor de cel·la específic amb codi VBA

El següent codi VBA us pot ajudar a filtrar una taula dinàmica basada en un valor de cel·la específic a Excel. Feu el següent.

1. Introduïu un valor que filtrarà la taula dinàmica basada en una cel·la amb antelació (aquí selecciono la cel·la H6).

2. Obrir el full de càlcul conté la taula dinàmica que filtraràs pel valor de la cel·la. A continuació, feu clic amb el botó dret a la fitxa del full i seleccioneu Visualitza codi al menú contextual. Mostra la captura de pantalla:

3. A l'obertura Microsoft Visual Basic per a aplicacions finestra, copieu sota el codi VBA a la finestra Codi.

Codi VBA: taula de pivots del filtre basada en el valor de la cel·la

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

notes: En el codi,

1) "Sheet1"És el nom del full de càlcul.

2) "PivotTable2"És el nom de la taula dinàmica.

3) El camp de filtratge de la taula dinàmica es diu "categoria".

4) El valor que voleu filtrar la taula dinàmica es col·loca a la cel·la H6.

Podeu canviar els valors de la variable anterior que necessiteu

4. Premeu el botó Alt + Q claus per tancar el Microsoft Visual Basic per a aplicacions finestra.

A continuació, la taula dinàmica està filtrant segons el valor de la cel·la H6 a continuació de la següent captura de pantalla:

Podeu canviar el valor de la cel·la a d'altres segons necessiteu.

Nota: Els valors que escriviu a la cel·la H6 han de coincidir exactament amb els valors de la llista desplegable Categoria de la taula dinàmica.


Pestanya d'Office - Navegació amb pestanyes, edició i gestió de llibres en Excel:

La pestanya Office mostra la interfície de pestanyes que es veu als navegadors web com ara Google Chrome, versions noves d'Internet Explorer i Firefox a Microsoft Excel. Serà una eina que estalviarà temps i serà irreemplaçable en el vostre treball. Vegeu a continuació demo:

Feu clic per obtenir una prova gratuïta de la pestanya d'Office.

Pestanya d'Office per a Excel


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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 · 5 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 · 6 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?)