Jak zkontrolovat, zda v sešitu existuje kontingenční tabulka?
Pokud v sešitu existuje více kontingenčních tabulek a nyní rychle chcete vědět, jestli v tomto sešitu existuje konkrétní kontingenční tabulka. Za normálních okolností můžete přejít do dialogového okna Možnosti kontingenční tabulky a zkontrolovat jeden po druhém název kontingenční tabulky, ale to je velmi časově náročné a zdlouhavé, když existují desítky nebo stovky kontingenčních tabulek. Tady můžu mluvit o triku, jak vyřešit tento úkol.
Zkontrolujte, zda v sešitu s funkcí User Defined existuje kontingenční tabulka
Zkontrolujte, zda v sešitu s funkcí User Defined existuje kontingenční tabulka
Chcete-li rychle zjistit, zda v aktuálním sešitu existuje kontingenční tabulka, můžete ji vyřešit pomocí funkce definované uživatelem.
1. Otevřete sešit, který chcete zkontrolovat, zda existuje kontingenční tabulka.
2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Zkontrolujte, zda v sešitu existuje kontingenční tabulka
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. Poté tento kód uložte a zavřete, vraťte se do svého listu a zadejte tento vzorec = pivotexist ("salereport") do prázdné buňky, viz screenshot:
Poznámky: (1.) Ve výše uvedeném vzorci „zpráva o prodeji„Je název kontingenční tabulky, kterou chcete zkontrolovat.
(2.) Název kontingenční tabulky musíte zadat v dvojitých uvozovkách a v názvu se musí rozlišovat velká a malá písmena.
5. Po zadání vzorce, pokud se zobrazí, stiskněte klávesu Enter TRUE v buňce existuje kontingenční tabulka, pokud ji získáte NEPRAVDIVÉ, kontingenční tabulka neexistuje.
Související články:
Jak vypsat všechny kontingenční tabulky ze sešitu?
Jak přidat více polí do kontingenční tabulky?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab Přináší rozhraní s kartami do Office a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
