Note: The other languages of the website are Google-translated. Back to English
English English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Pokud je v kódu VBA nastavena možnost explicitní, bude nutné definovat proměnnou "i".
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění