Ugrás a tartalomra

Hogyan ellenőrizhető, hogy létezik-e forgatótábla egy munkafüzetben?

Ha több pivot-tábla van a munkafüzetben, és most gyorsan meg akarja tudni, hogy létezik-e egy adott pivot-tábla ebben a munkafüzetben. Normál esetben a Kimutatás-beállítások párbeszédpanelbe lépve ellenőrizheti a kimutatótábla nevét egyenként, de ez nagyon időigényes és unalmas, ha több tucat vagy száz forgatótábla van. Itt beszélhetek egy trükkről, amellyel megoldhatja ezt a feladatot.

Ellenőrizze, hogy létezik-e pivot tábla a felhasználó által definiált funkcióval rendelkező munkafüzetben


nyíl kék jobb buborék Ellenőrizze, hogy létezik-e pivot tábla a felhasználó által definiált funkcióval rendelkező munkafüzetben

Ha gyorsan meg szeretné tudni, hogy létezik-e pivot tábla az aktuális munkafüzetben, létrehozhat egy felhasználó által definiált függvényt annak megoldására.

1. Nyissa meg azt a munkafüzetet, amelyet ellenőrizni szeretne, hogy létezik-e a kimutató tábla.

2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Ellenőrizze, hogy létezik-e pivot tábla egy munkafüzetben

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. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, írja be ezt a képletet = pivotexist ("salereport") egy üres cellába, lásd a képernyőképet:

doc-check-pivottable-létezik-1

Megjegyzések: (1.) A fenti képletben „eladási jelentés”Az ellenőrizni kívánt pivot tábla neve.

(2.) A pivot tábla nevét dupla idézőjelek között kell megadnia, és a névnek kis- és nagybetűkre van szüksége.

5. A képlet beírása után nyomja meg az Enter billentyűt, ha megkapja TRUE a celládban létezik a pivot tábla, ha megkapod HAMIS, a pivot tábla nem létezik.


Kapcsolódó cikkek:

Hogyan sorolja fel az összes forgatótáblát egy munkafüzetből?

Hogyan adhatunk több mezőt az elforduló táblához?

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
PivotExist = True
Exit Function '--> this is better so no extra loop needed
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations