Methode 1: Filter de draaitabel op basis van een waarde<\/strong><\/span><\/p>\n Deze specifieke macro filtert de draaitabel met de naam Draaitabel1<\/strong> , zodat alleen die rijen worden weergegeven waarin de waarde in de kolom Positie<\/strong> van de draaitabel gelijk is aan de waarde in cel J2<\/strong> van Blad1<\/strong> .<\/span><\/p>\n Methode 2: Filter de draaitabel op basis van meerdere waarden<\/strong><\/span><\/p>\n Deze specifieke macro filtert de draaitabel met de naam Draaitabel1<\/strong> om alleen die rijen weer te geven waarin de waarde in de kolom Positie<\/strong> van de draaitabel gelijk is aan een van de waarden in het celbereik J2:J3<\/strong> .<\/span><\/p>\n Methode 3: draaitabelfilters verwijderen<\/strong><\/span><\/p>\n Deze specifieke macro wist alle filters uit de draaitabel genaamd PivotTable1<\/strong> .<\/span><\/p>\n De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.<\/span><\/p>\n Laten we zeggen dat we een draaitabel hebben gemaakt op basis van een gegevensset in Excel om de punten samen te vatten die zijn gescoord door basketbalspelers uit verschillende teams en posities:<\/span> <\/p>\n Stel dat we de draaitabel willen filteren, zodat alleen rijen worden weergegeven waarvan de waarde in de kolom Positie Bewaker is.<\/span><\/p>\n We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n Wanneer we deze macro uitvoeren, wordt de draaitabel automatisch gefilterd om alleen rijen weer te geven waarvan de waarde in de kolom Positie Bewaker is:<\/span> <\/p>\n De draaitabel is gefilterd om alleen rijen weer te geven waarvan de waarde in de kolom Positie Bewaker is.<\/span><\/p>\n Stel dat we in plaats daarvan de draaitabel willen filteren om alleen rijen weer te geven waarvan de waarde in de kolom Positie Bewaker of<\/em> Midden is.<\/span><\/p>\n We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n Wanneer we deze macro uitvoeren, wordt de draaitabel automatisch gefilterd om alleen rijen weer te geven waarvan de waarde in de kolom Positie Bewaker of Midden is:<\/span> <\/p>\n De draaitabel is gefilterd om alleen rijen weer te geven waarvan de waarde in de kolom Positie Bewaker of Midden is.<\/span><\/p>\n In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:<\/span><\/p>\n VBA: draaitabellen vernieuwen<\/a> U kunt de volgende methoden gebruiken om draaitabellen in Excel te filteren met VBA: Methode 1: Filter de draaitabel op basis van een waarde SubFilterPivotTable () Dim pf As PivotField Dim myFilter As String Set pf = ActiveSheet.PivotTables(“ PivotTable1 „).PivotFields(“ Position „) myFilter = ActiveWorkbook.Sheets(“ Sheet1 „).Range(“ J2 „).Value pf.PivotFilters.Add2 xlCaptionEquals, , myFilter End Sub […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-4357","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n SubFilterPivotTable<\/span> ()\n Dim<\/span> pf As<\/span> PivotField\n Dim<\/span> myFilter As<\/span> String\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n myFilter = ActiveWorkbook.Sheets(\" Sheet1<\/span> \").Range(\" J2<\/span> \").Value\n pf.PivotFilters.Add2 xlCaptionEquals, , myFilter\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> FilterPivotTableMultiple()\n Dim<\/span> v Ace<\/span> Variant\n Dim<\/span> i As<\/span> Integer, j As<\/span> Integer\n Dim<\/span> pf As<\/span> PivotField\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n \n 'specify range with values to filter on<\/span>\n v = Range(\" J2:J3<\/span> \")\n \n 'clear existing filters<\/span>\n pf.ClearAllFilters\n \n 'apply filter to pivot table<\/span>\n With<\/span> pf\n For<\/span> i = 1 TB<\/span> pf.PivotItems.Count\n j = 1\n Do While<\/span> j <= UBound(v, 1) - LBound(v, 1) + 1\n If<\/span> pf.PivotItems(i).Name = v(j, 1) Then\n pf.PivotItems(pf.PivotItems(i).Name).Visible = True\n Exit Do\n Else<\/span>\n pf.PivotItems(pf.PivotItems(i).Name).Visible = False\n End If<\/span>\n j = j + 1\n Loop<\/span>\n Next<\/span> i\n End With<\/span>\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubClearPivotTableFilter<\/span> ()\n Dim<\/span> pt As<\/span> PivotTable\n Set<\/span> pt = ActiveSheet.PivotTables(\" PivotTable1<\/span> \")\n pt.ClearAllFilters\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Voorbeeld 1: Filter de draaitabel op basis van een waarde<\/strong><\/span><\/h2>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf1.jpg\")
<\/p>\n SubFilterPivotTable<\/span> ()\n Dim<\/span> pf As<\/span> PivotField\n Dim<\/span> myFilter As<\/span> String\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n myFilter = ActiveWorkbook.Sheets(\" Sheet1<\/span> \").Range(\" J2<\/span> \").Value\n pf.PivotFilters.Add2 xlCaptionEquals, , myFilter\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"Draaitabel](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf2.jpg\")
<\/p>\n Voorbeeld 2: Filter een draaitabel op basis van meerdere waarden<\/strong><\/span><\/h2>\n
Sub<\/span> FilterPivotTableMultiple()\n Dim<\/span> v Ace<\/span> Variant\n Dim<\/span> i As<\/span> Integer, j As<\/span> Integer\n Dim<\/span> pf As<\/span> PivotField\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n \n 'specify range with values to filter on<\/span>\n v = Range(\" J2:J3<\/span> \")\n \n 'clear existing filters<\/span>\n pf.ClearAllFilters\n \n 'apply filter to pivot table<\/span>\n With<\/span> pf\n For<\/span> i = 1 TB<\/span> pf.PivotItems.Count\n j = 1\n Do While<\/span> j <= UBound(v, 1) - LBound(v, 1) + 1\n If<\/span> pf.PivotItems(i).Name = v(j, 1) Then\n pf.PivotItems(pf.PivotItems(i).Name).Visible = True\n Exit Do\n Else<\/span>\n pf.PivotItems(pf.PivotItems(i).Name).Visible = False\n End If<\/span>\n j = j + 1\n Loop<\/span>\n Next<\/span> i\n End With<\/span>\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"Draaitabel](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf3.jpg\")
<\/p>\n Aanvullende bronnen<\/strong><\/span><\/h2>\n
VBA: hoe dubbele waarden te verwijderen<\/a>
VBA: het aantal rijen binnen bereik tellen<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"