Hvordan kontrolleres, om der findes en pivottabel i en projektmappe?
Hvis der er flere pivottabeller i din projektmappe, og nu vil du hurtigt vide, om der findes en specifik pivottabel i denne projektmappe. Normalt kan du gå til dialogboksen Pivottabelindstillinger for at kontrollere navnet på pivottabellen en efter en, men dette er meget tidskrævende og kedeligt, når der er snesevis eller hundreder af pivottabeller. Her kan jeg tale om et trick for dig at løse denne opgave.
Kontroller, om der findes en pivottabel i en projektmappe med brugerdefineret funktion
Kontroller, om der findes en pivottabel i en projektmappe med brugerdefineret funktion
For hurtigt at vide, om der findes en pivottabel i den aktuelle projektmappe, kan du oprette en brugerdefineret funktion for at løse den.
1. Åbn den projektmappe, som du vil kontrollere, om pivottabellen findes.
2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Kontroller, om der findes en pivottabel i en projektmappe
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. Gem derefter og luk denne kode, gå tilbage til dit regneark, indtast denne formel = pivotexist ("salereport") ind i en tom celle, se skærmbillede:
Noter: (1.) I ovenstående formel, “salgsrapport”Er navnet på drejetabellen, som du vil kontrollere.
(2.) Du skal indtaste pivottabelnavnet i dobbelt anførselstegn, og navnet skal være store og små bogstaver.
5. Efter indtastning af formlen skal du trykke på Enter-tasten, hvis du får det TRUE i din celle findes pivottabellen, hvis du får det FALSK, pivottabellen findes ikke.
Relaterede artikler:
Hvordan viser jeg alle pivottabeller, der danner en projektmappe?
Hvordan tilføjes flere felter i pivottabellen?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!