/ / Loop caur grāmatām un tabulām programmā Excel VBA

Cilne caur grāmatām un tabulām Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA ka cilpas caur visām atvērtajām darbgrāmatām un darblapām, un parāda visus vārdus.

Situācija:

Piemērs, izmantojot cilni "Grāmatas un lapas"

Komandas pogai pievienojiet šādas koda rindiņas:

1. Vispirms deklarējam divus objektus un vienu mainīgo. Viens no tipveida darbgrāmatu objektiem, kurus mēs saucam par grāmatām, ir viena veida objekts Darblapa, ko mēs saucam par lapu, un mainīgais veids String, ko mēs saucam par tekstu.

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

2. Mēs vēlamies izveidot cilpu ar visām atvērtajām darbgrāmatām. Lai to panāktu, pievienojiet šādu koda rindiņu:

For Each book In Workbooks

3. Mēs rakstām tekstu "Darbgrāmata:", darbvirsmas nosaukumu un tekstu "Darba lapas:" "uz mainīgo tekstu.

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

Piezīme: jūs varat izmantot & operatori, lai sapludinātu (pievienotu) elementus. Lai sāktu jaunu rindu, varat izmantot vbNewLine.

4. Lai izveidotu cilni ar visām darbgrāmatas darblapām, pievienojiet šādu koda rindu:

For Each sheet In book.Worksheets

5. Mēs rakstām darblapas darblapu vārdus mainīgajam tekstam.

text = text & sheet.Name & vbNewLine

6. Aizveriet otro cilpu.

Next sheet

7. Pievienojiet baltu līniju.

text = text & vbNewLine

8. Neaizmirstiet slēgt pirmo cilpu.

Next book

9. Visbeidzot, mēs parādām mainīgo tekstu, izmantojot MsgBox.

MsgBox text

10. Pārbaudiet programmu. Pirms noklikšķināt uz komandpogas, norādiet darblapām dažus aprakstošus vārdus un atveriet citu tukšo darbgrāmatu.

Rezultāts:

Cilne caur grāmatām un tabulām Excel VBA

Lasīt arī: