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
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:
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
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...
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!