/ / Loop kroz knjige i tablice u programu Excel VBA

Proširite knjige i tablice u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA da petlje kroz sve otvorene radne knjige i radne listove, i prikazuje sva imena.

Situacija:

Primjer kroz knjige i tablice

Dodajte sljedeće linije koda gumbu naredbe:

1. Prvo, izjavljujemo dva objekta i jednu varijablu. Jedan objekt vrste Radna knjiga koju zovemo knjiga, jedan objekt vrste Radni list koji nazivamo list i varijabla vrste String koju nazivamo tekstom.

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

2. Želimo otvoriti sve otvorene radne knjige. Da biste to postigli, dodajte sljedeću liniju koda:

For Each book In Workbooks

3. Pišemo tekst "Radna knjiga:", naziv radne knjige i tekst "Radni listovi:" "na varijablu teksta.

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

Napomena: operator & operator možete koristiti za povezivanje (pridruživanje) elemenata. Za početak nove linije, možete koristiti vbNewLine.

4. Za petlje kroz sve radne listove radne knjige, dodajte sljedeću liniju koda:

For Each sheet In book.Worksheets

5. Zapisali smo imena radnih listova radne knjige na varijablu teksta.

text = text & sheet.Name & vbNewLine

6. Zatvorite drugu petlju.

Next sheet

7. Dodajte bijelu liniju.

text = text & vbNewLine

8. Nemojte zaboraviti zatvoriti prvu petlju.

Next book

9. Konačno, prikazujemo varijablu teksta koristeći MsgBox.

MsgBox text

10. Ispitajte program. Prije nego što kliknete gumb naredbe, navedite svoje radne listove neka opisna imena i otvorite drugu praznu radnu knjigu.

Proizlaziti:

Proširite knjige i tablice u programu Excel VBA

Također pročitajte: