/ / Loop přes Knihy a tabulky v aplikaci Excel VBA

Loop prostřednictvím knih a tabulek v aplikaci Excel VBA

Níže se podíváme na program v Excel VBA že smyčky přes všechny otevřené sešity a pracovní listy, a zobrazí všechny názvy.

Situace:

Loop přes knihy a tabulky Příklad

K příkazovému tlačítku přidejte následující řádky kódu:

1. Nejprve deklarujeme dva objekty a jednu proměnnou. Jeden objekt typu Workbook voláme knihu, jeden objekt typu listu, který nazýváme list, a proměnnou typu String, kterou nazýváme text.

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

2. Chceme přejít do všech otevřených sešitů. Chcete-li to dosáhnout, přidejte následující kódový řádek:

For Each book In Workbooks

3. Psát text "Sešit:", název sešitu a text "Worksheets:" "pro proměnný text.

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

Poznámka: můžete použít operátor & spojit elementy. Chcete-li spustit nový řádek, můžete použít příkaz vbNewLine.

4. Chcete-li přejít přes všechny listy sešitu, přidejte následující řádek:

For Each sheet In book.Worksheets

5. Napište jména listů sešitu do proměnného textu.

text = text & sheet.Name & vbNewLine

6. Zavřete druhou smyčku.

Next sheet

7. Přidejte bílý řádek.

text = text & vbNewLine

8. Nezapomeňte uzavřít první smyčku.

Next book

9. Nakonec zobrazujeme proměnný text pomocí MsgBoxu.

MsgBox text

10. Otestujte program. Předtím, než kliknete na příkazové tlačítko, přidejte listům některé popisné názvy a otevřete další prázdný sešit.

Výsledek:

Loop prostřednictvím knih a tabulek v aplikaci Excel VBA

Také si přečtěte: