/ / Loop cez knihy a tabuľky v programe Excel VBA

Loop cez knihy a tabuľky v aplikácii Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA že slučky cez všetky otvorené pracovné zošity a pracovné listy, a zobrazí všetky mená.

situácie:

Loop cez knihy a tabuľky Príklad

Do príkazového tlačidla pridajte nasledujúce riadky kódu:

1. Najprv deklarujeme dva objekty a jednu premennú. Jeden objekt typu pracovný zošit, ktorý voláme, jeden objekt typu pracovného hárka, ktorému voláme list, a premennú typu String, ktorú nazývame textom.

Dim book As Workbook, sheet As Worksheet, text As String

2. Chceme prechádzať cez všetky otvorené pracovné zošity. Ak to chcete dosiahnuť, pridajte nasledujúci riadok kódu:

For Each book In Workbooks

3. Napíšeme text "Pracovný zošit:", názov zošita a text "Pracovné listy:" "do premenného textu.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Poznámka: môžete použiť operátor & spojiť elementy. Ak chcete spustiť nový riadok, môžete použiť vbNewLine.

4. Ak chcete prechádzať cez všetky pracovné hárky zošita, pridajte nasledujúci riadok kódu:

For Each sheet In book.Worksheets

5. Napíšeme mená pracovných hárkov zošitu do premenného textu.

text = text & sheet.Name & vbNewLine

6. Zatvorte druhú slučku.

Next sheet

7. Pridajte bielu čiaru.

text = text & vbNewLine

8. Nezabudnite uzavrieť prvú slučku.

Next book

9. Nakoniec zobrazujeme premenný text pomocou MsgBox.

MsgBox text

10. Otestujte program. Skôr ako kliknete na príkazové tlačidlo, zadajte pracovné hárky niektoré opisné názvy a otvorte iný prázdny zošit.

výsledok:

Loop cez knihy a tabuľky v aplikácii Excel VBA

Tiež si prečítajte: