Kako filtrirati vrtilno tabelo na podlagi določene vrednosti celice v Excelu?
Običajno podatke v vrtilni tabeli filtriramo tako, da na spustnem seznamu izberemo elemente, kot je prikazano na spodnjem posnetku zaslona. Pravzaprav lahko vrtilno tabelo filtrirate glede na vrednost v določeni celici. Metoda VBA v tem članku vam bo pomagala rešiti težavo.
Filtriraj vrtilno tabelo na podlagi določene vrednosti celice s kodo VBA
Filtriraj vrtilno tabelo na podlagi določene vrednosti celice s kodo VBA
Naslednja koda VBA vam lahko pomaga filtrirati vrtilno tabelo na podlagi določene vrednosti celice v Excelu. Naredite naslednje.
1. Vnesite vrednost, na podlagi katere boste pivot tabelo filtrirali v celico vnaprej (tukaj izberem celico H6).
2. Odprite delovni list, ki vsebuje vrtilno tabelo, ki jo boste filtrirali po vrednosti celice. Nato z desno miškino tipko kliknite zavihek lista in v kontekstnem meniju izberite Prikaži kodo. Oglejte si posnetek zaslona:
3. Na odprtju Microsoft Visual Basic za aplikacije okno, kopirajte pod kodo VBA v okno Code.
Koda VBA: Filtriraj vrtilno tabelo na podlagi vrednosti celice
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
Opombe: V kodi,
4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
Nato vrtilna tabela filtrira na podlagi vrednosti v celici H6, kot je prikazano spodaj:
Vrednost celice lahko po potrebi spremenite v druge.
Opombe: Vrednosti, ki jih vnesete v celico H6, se morajo natančno ujemati z vrednostmi na spustnem seznamu Kategorija vrtilne tabele.
Sorodni članki:
- Kako združiti več listov v vrtilno tabelo v Excelu?
- Kako ustvariti vrtilno tabelo iz besedilne datoteke v Excelu?
- Kako povezati filter vrtilne tabele z določeno celico v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!