Ako prechádzať cez listy v programe Excel pomocou VBA

Pri automatizácii obvyklých nudných úloh programu Excel vo VBA budete musieť prechádzať všetkými listami. A preto ste tu, samozrejme.

Pozrime sa na kód, ktorý sa môže opakovať v listoch v zošite.

Kód VBA na slučku vo všetkých hárkoch v programe Activeworkbook a tlačených hárkoch

Sub loopSheets () for each ws in ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub

Vyššie uvedený kód vba prechádza cez každý list v aktívnom zošite a vytlačí názov hárka

Ako to funguje?

Je to celkom jednoduché. Hovoríme VBA, aby uložil každý pracovný hárok do aktívneho zošita vo ws a potom vytlačil jeho názov pomocou metódy názvu.

Zopakujte všetky listy okrem jedného

Ak sa teda pokúšate zlúčiť viac hárkov do jedného hlavného hárka, budete musieť previesť každý list. skopírujte údaje každého hárka do hlavného hárka. Ale chceli by ste okrem hlavného listu zo zacyklenia. Povedzme, že ste pomenovali hlavný list ako „Master“. V takom prípade použite túto metódu:

Sub loopSheets () For each ws in ActiveWorkbook.Worksheets If ws.Name "Master" Then Debug.Print ws.Name & "Copied" End If next ws End Sub

Je takmer rovnaký ako vyššie uvedený kód, iba je doplnený príkazom If.

Ak ws.Meno „Master“ Potom

Tento riadok kontroluje, či je názov aktuálneho pracovného hárka „Hlavný“. ak nie je, spustí sa kód medzi if block. V opačnom prípade kód v rámci, ak je blok preskočený.

Takže áno, chlapci, takto sa môžete prepínať medzi pracovnými listami v programe Excel. Ďalej sa naučíme, ako konsolidovať viac listov do jedného pomocou vba.