Jak procházet listy v aplikaci Excel pomocí VBA

Při automatizaci obvyklých nudných úloh Excelu ve VBA získáte potřebu procházet jednotlivými listy. A proto jste samozřejmě tady.

Podívejme se na kód procházející listy v sešitu.

Kód VBA pro smyčku ve všech listech v programu Activeworkbook a tisk listů Název

Sub loopSheets () Pro každý ws v ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub

Výše uvedený kód vba prochází každý list v aktivním sešitu a vytiskne název listu

Jak to funguje?

Je to docela jednoduché. Řekneme VBA, aby uložil každý list do aktivního sešitu ve ws a poté vytiskl jeho název pomocí metody name.

Projděte všechny listy kromě jednoho

Pokud se tedy pokoušíte sloučit více listů do jednoho hlavního listu, budete muset procházet každým listem. zkopírujte data každého listu do hlavního listu. Ale chtěli byste kromě hlavního listu ze smyčky. Řekněme, že jste hlavní list pojmenovali „Master“. V takovém případě použijte tuto metodu:

Sub loopSheets () Pro každý ws v ActiveWorkbook.Worksheets If ws.Name "Master" Then Debug.Print ws.Name & "Copied" End If Next ws End Sub

Je téměř stejný jako výše uvedený kód, pouze s přidáním příkazu If.

Pokud ws.Name "Master" Pak

Tento řádek kontroluje, zda je název aktuálního listu „Hlavní“. pokud tomu tak není, spustí se kód mezi if block. Jinak je kód uvnitř, pokud je blok přeskočen.

Takže jo, lidi, takhle můžete procházet listy v Excelu. Dále se naučíme, jak konsolidovat více listů do jednoho pomocí vba.