Hoe controleer ik of een draaitabel in een werkmap bestaat?
Als er meerdere draaitabellen in uw werkmap staan, en nu wilt u snel weten of er een specifieke draaitabel in deze werkmap bestaat. Normaal gesproken gaat u naar het dialoogvenster Opties voor draaitabel om de naam van de draaitabel een voor een te controleren, maar dit is erg tijdrovend en vervelend als er tientallen of honderden draaitabellen zijn. Hier kan ik het hebben over een truc om deze taak op te lossen.
Controleer of er een draaitabel bestaat in een werkmap met een door de gebruiker gedefinieerde functie
Om snel te weten of er een draaitabel bestaat in de huidige werkmap, kunt u een door de gebruiker gedefinieerde functie maken om het probleem op te lossen.
1. Open de werkmap waarvan u wilt controleren of de draaitabel bestaat.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: controleer of er een draaitabel in een werkmap bestaat
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Sla vervolgens deze code op en sluit deze, ga terug naar uw werkblad en voer deze formule in = pivotexist ("salereport") in een lege cel, zie screenshot:
Opmerkingen: (1.) In de bovenstaande formule, "verkooprapport”Is de naam van de draaitabel die u wilt controleren.
(2.) U moet de naam van de draaitabel tussen dubbele aanhalingstekens invoeren en de naam moet hoofdlettergevoelig zijn.
5. Nadat u de formule hebt ingevoerd, drukt u op de Enter-toets, als u krijgt TRUE in je cel bestaat de draaitabel, als je die krijgt Juist, bestaat de draaitabel niet.
Gerelateerde artikelen:
Hoe alle draaitabellen weergeven in een werkmap?
Hoe voeg ik meerdere velden toe aan een draaitabel?
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!