Hoe filtercache (oude items) uit de draaitabel in Excel te wissen?
Zoals onderstaand screenshot laat zien, maakt u een draaitabel op basis van een reeks gegevens. Nadat gegevens uit het bronbereik zijn verwijderd, blijft het oude item bestaan in het vervolgkeuzemenu van de draaitabel, ook al vernieuwt u de draaitabel. Als u alle oude items uit het vervolgkeuzemenu van een draaitabel wilt verwijderen, kunnen de methoden in dit artikel u helpen.
Wis filtercache (oude items) uit een draaitabel door de optie te wijzigen
Wis filtercache (oude items) uit alle draaitabellen met behulp van VBA-code
Wis filtercache (oude items) uit een draaitabel door de optie te wijzigen
U kunt de filtercache uit een draaitabel wissen door de optie te wijzigen. Ga als volgt te werk.
1. Klik met de rechtermuisknop op een cel in de draaitabel en klik vervolgens Draaitabelopties vanuit het contextmenu. Zie screenshot:
2. In de Draaitabelopties dialoogvenster, klik op de Data tab, selecteer Geen van het Aantal te behouden items per veld vervolgkeuzelijst en klik vervolgens op het OK knop.
3. Klik met de rechtermuisknop op de draaitabelcel en klik vervolgens verversen vanuit het rechtsklikmenu. Zie screenshot:
Vervolgens kunt u zien dat de oude items zijn verwijderd uit het vervolgkeuzemenu van de draaitabel, zoals onderstaand screenshot.
Wis filtercache (oude items) uit alle draaitabellen met behulp van VBA-code
Als u de filtercache wilt wissen uit alle draaitabellen over meerdere werkbladen in een actieve werkmap. Probeer het onderstaande VBA-script.
1. In de werkmap moet u oude items uit alle draaitabellen wissen, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic for Applications-venster.
2. In de Microsoft Visual Basic voor toepassingen dubbelklik op het Dit Werkboek in de Project deelvenster om het ThisWorkbook (code) venster en kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA-code: wis filtercache (oude items) uit alle draaitabellen in actieve werkmap
Private Sub Workbook_Open()
Dim xPt As PivotTable
Dim xWs As Worksheet
Dim xPc As PivotCache
Application.ScreenUpdating = False
For Each xWs In ActiveWorkbook.Worksheets
For Each xPt In xWs.PivotTables
xPt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next xPt
Next xWs
For Each xPc In ActiveWorkbook.PivotCaches
On Error Resume Next
xPc.Refresh
Next xPc
Application.ScreenUpdating = True
End Sub
3. druk de F5 sleutel om de code uit te voeren, waarna oude items onmiddellijk worden verwijderd uit het vervolgkeuzemenu van alle draaitabellen in een actieve werkmap.
Gerelateerde artikelen:
- Hoe filters uit alle werkbladen in een actieve werkmap in Excel te wissen?
- Hoe filters te wissen bij het openen, opslaan of sluiten van een werkmap in Excel?
- Hoe gegevens filteren op basis van selectievakjes in Excel?
- Hoe een reeks getallen in een gefilterde lijstkolom in Excel te vullen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
