Hur filtrerar man pivottabellen baserat på ett specifikt cellvärde i Excel?
Normalt filtrerar vi data i en pivottabell genom att välja objekt i rullgardinsmenyn som visas i skärmdumpen nedan. Egentligen kan du filtrera en pivottabell baserat på värdet i en specifik cell. VBA-metoden i den här artikeln hjälper dig att lösa problemet.
Filtrera pivottabellen baserat på ett specifikt cellvärde med VBA-kod
Filtrera pivottabellen baserat på ett specifikt cellvärde med VBA-kod
Följande VBA-kod kan hjälpa dig att filtrera en pivottabell baserat på ett specifikt cellvärde i Excel. Gör så här.
1. Ange ett värde som du kommer att filtrera pivottabellen baserat på i en cell i förväg (här väljer jag cell H6).
2. Öppna kalkylbladet innehåller pivottabellen som du filtrerar efter cellvärde. Högerklicka sedan på arkfliken och välj Visa kod från snabbmenyn. Se skärmdump:
3. I öppningen Microsoft Visual Basic för applikationer kopiera under VBA-koden till kodfönstret.
VBA-kod: Filter-pivottabell baserat på cellvärde
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
Anmärkningar: I koden,
4. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.
Sedan filtrerar pivottabellen baserat på värdet i cell H6 enligt nedanstående skärmdump:
Du kan ändra cellvärdet till andra efter behov.
Anmärkningar: Värden som du skriver i cell H6 ska exakt matcha värdena i rullgardinsmenyn Kategori i pivottabellen.
Relaterade artiklar:
- Hur kombinerar jag flera ark i en pivottabell i Excel?
- Hur skapar jag en pivottabell från textfilen i Excel?
- Hur länkar man pivottabelfilter till en viss cell i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!