Jak získat názvy listů pomocí VBA v aplikaci Microsoft Excel
V případě, že chcete zjistit způsob, který vám může poskytnout všechny názvy listu, které jsou viditelné, tj. Nejsou skryté.
V tomto článku se naučíme, jak pomocí kódu VBA získat názvy pouze viditelných listů.
Otázka): Mám více listů v jednom souboru a skryl jsem listy, které nechci, aby ostatní viděli; Chci kód, který mi dá název všech viditelných listů.
Uvažujme, že máme 5 listů, a záměrně schováme konkrétní list.
Abychom získali název viditelných listů, musíme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Zkopírujte níže uvedený kód do standardního modulu
Dílčí viditelné listy ()
Dim i jako celé číslo, j jako celé číslo: j = 1
Buňky (1, 1) .CurrentRegion.Cells.Clear
Pro i = 1 do listů. Počet
If Sheets (i) .Visible = -1 Then
Buňky (j, 1) = Listy (i). Název
j = j + 1
Konec If
další
End Sub
- Při prvním spuštění kódu získáte názvy všech listů v aktuálním listu ve sloupci A.
- Pokud skryjeme list Jana, budeme mít následující seznam názvů listů
Tímto způsobem můžeme pomocí kódu vba získat název všech viditelných listů.
Stáhnout - Jak získat názvy listů pomocí vba - xlsm