Přejít k hlavnímu obsahu

Jak zkontrolovat, zda list existuje v sešitu?

Když máte v sešitu desítky listů nebo dokonce stovky listů a chcete najít nebo zkontrolovat, zda list v tomto sešitu existuje, může to být obecně velká práce. Nyní vám představím kód VBA a praktický nástroj pro rychlou kontrolu, zda list v sešitu existuje.

Zkontrolujte, zda existuje list v sešitu s VBA

Zkontrolujte, zda list existuje, a přepněte na něj pomocí Kutools pro Excel dobrý nápad3


Zkontrolujte, zda list existuje v sešitu

Podle následujících pokynů zkopírujte kód VBA a spusťte jej a zkontrolujte, zda v aktuálním sešitu existuje list.

1. lis Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.

2. V okně klikněte na Vložit > Modul pro zobrazení nového okna modulu, potom zkopírujte následující kód VBA do okna modulu.

VBA: Zkontrolujte, zda v sešitu existuje list.

Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
    If Application.ActiveWorkbook.Sheets(i).Name = pName Then
        IsExist = True
        Exit For
    End If
Next
CheckSheet = IsExist
End Function

3. Uložte tento kód a vraťte se na list a vyberte prázdnou buňku a zadejte tento vzorec = CheckSheet („Shee1“) (List1 označuje název listu, který chcete zkontrolovat, zda existuje), stiskněte vstoupit tlačítko, NEPRAVDIVÉ označuje, že tento list neexistuje, a TURU označuje, že v aktuálním sešitu existuje.


Zkontrolujte, zda list existuje, a přepněte na něj pomocí Kutools pro Excel s VBA

S výše definovanou funkcí můžete jednoduše zkontrolovat, zda list existuje a což je také trochu obtížné. Nicméně s Kutools pro ExcelV navigačním podokně najdete seznam všech listů, který podporuje vyhledání listu, nebo filtrování názvu listu, abyste list našli, a pokud potřebujete, můžete kliknutím na název listu po nalezení rychle přepnout na list.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. povolte sešit, ve kterém chcete zkontrolovat název listu, pokud existuje, a poté klepněte na Kutools > Navigace. Viz snímek obrazovky
:kontrola dokumentu, zda list existuje 1

2. Potom v rozevíracím podokně klikněte na Sešit a list Tlačítko pro rozbalení podokna, v podokně můžete zobrazit seznam všech názvů listů, posouváním vyhledejte názvy listů.
navigační podokno doc kutools 2

3. Nebo můžete zkontrolovat Filtr Klepněte na tlačítko, zadejte klíčová slova názvu listu, který chcete zkontrolovat, poté bude zadaný název listu seznam, klepněte na název listu a poté se otočte na list.
navigační podokno doc kutools 3

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a 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...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the VBA code, if option explicit is set, then the variable "i" will need to be defined
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations