Cum se leagă filtrul Tabelului pivot la o anumită celulă din Excel?

Dacă doriți să legați un filtru din tabelul pivot la o anumită celulă și să faceți filtrarea tabelului pivot în funcție de valoarea celulei, metoda din acest articol vă poate ajuta.

Conectați filtrul Tabelului pivot la o anumită celulă cu cod VBA

Conectați filtrul Tabelului pivot la o anumită celulă cu cod VBA

Tabelul pivot pe care îl veți lega funcția de filtrare la o valoare a celulei ar trebui să includă un câmp de filtrare (numele câmpului de filtrare are un rol important în următorul cod VBA).

Luați ca exemplu tabelul pivot de mai jos, se numește câmpul de filtrare din tabelul pivot Categorii, și include două valori „Cheltuieli"Și"Vânzări”. După conectarea filtrului Tabelului pivot la o celulă, valorile celulei pe care le veți aplica pentru a filtra Tabelul pivot ar trebui să fie „Cheltuieli” și „Vânzări”.

1. Vă rugăm să selectați celula (aici selectez celula H6) pe care o veți conecta la funcția de filtrare a tabelului pivot și introduceți una dintre valorile filtrului în celulă în avans.

2. Deschideți foaia de lucru conține tabelul pivot pe care îl veți conecta la celulă. Faceți clic dreapta pe fila foi și selectați Afișați codul din meniul contextual. Vedeți captura de ecran:

3. În Microsoft Visual Basic pentru aplicații fereastră, copiați mai jos codul VBA în fereastra Cod.

Cod VBA: conectați filtrul Tabelului pivot la o anumită celulă

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")) 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

notițe:

4. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

Acum funcția de filtrare a tabelului pivot este legată de celula H6.

Reîmprospătați celula H6, apoi datele corespunzătoare din tabelul pivot sunt filtrate pe baza valorii existente. Vedeți captura de ecran:

La modificarea valorii celulei, datele filtrate din tabelul pivot vor fi modificate automat. Vedeți captura de ecran:

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

Legate de articole:

• Cum se combină mai multe foi într-un tabel pivot în Excel?
• Cum se creează un tabel pivot din fișier text în Excel?
• Cum se filtrează tabelul pivot pe baza unei valori specifice a celulei în Excel?