Kako povezati filter vrtilne tabele z določeno celico v Excelu?
Če želite povezati filter vrtilne tabele z določeno celico in narediti vrtilno tabelo filtrirano glede na vrednost celice, vam lahko pomaga metoda v tem članku.
Povežite filter vrtilne tabele z določeno celico s kodo VBA
Povežite filter vrtilne tabele z določeno celico s kodo VBA
Vrtilna tabela, v katero boste funkcijo filtra povezali z vrednostjo celice, mora vsebovati polje filtra (ime polja filtra igra pomembno vlogo v naslednji kodi VBA).
Za primer vzemimo spodnjo vrtilno tabelo. Pokliče se polje filtra v vrtilni tabeli Kategorija, in vključuje dve vrednosti "Stroški"In"Prodaja". Po povezavi filtra vrtilne tabele s celico bi morale biti vrednosti celic, ki jih boste uporabili za filtriranje vrtilne tabele, »Stroški« in »Prodaja«.
1. Izberite celico (tukaj izberem celico H6), ki jo boste povezali s funkcijo filtra vrtilne tabele, in v celico vnaprej vnesite eno od vrednosti filtra.
2. Odprite delovni list, ki vsebuje vrtilno tabelo, na katero boste povezali celico. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
3. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte pod kodo VBA v okno Code.
Koda VBA: Povežite filter vrtilne tabele z določeno celico
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
Opombe:
4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
Zdaj je funkcija filtra vrtilne tabele povezana s celico H6.
Osvežite celico H6, nato se ustrezni podatki v vrtilni tabeli filtrirajo na podlagi obstoječe vrednosti. Oglejte si posnetek zaslona:
Ko spremenite vrednost celice, se filtrirani podatki v vrtilni tabeli samodejno spremenijo. Oglejte si posnetek zaslona:
Preprosto izberite celotne vrstice glede na vrednost celice v potrditvenem stolpcu:
O Izberite Specific Cells uporabnost Kutools za Excel vam lahko pomaga hitro izbrati celotne vrstice glede na vrednost celice v certifikovanem stolpcu v Excelu, kot je prikazano spodaj. Ko izberete vse vrstice glede na vrednost celice, jih lahko ročno premaknete ali kopirate na novo mesto, kot ga potrebujete v Excelu.
Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)
Sorodni članki:
- Kako združiti več listov v vrtilno tabelo v Excelu?
- Kako ustvariti vrtilno tabelo iz besedilne datoteke v Excelu?
- Kako filtrirati vrtilno tabelo na podlagi določene vrednosti celice 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!