300 Primjera

Prelistajte knjige i tablice

Loop Through Books Sheets

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





kako odabrati više stanica u excelu

Situacija:

Prelistajte primjer knjiga i listova





Naredbenom gumbu dodajte sljedeće retke koda:

1. Prvo deklariramo dva objekta i jednu varijablu. Jedan objekt tipa Radna knjiga nazivamo knjigom, jedan objekt tipa Radni list koji zovemo list i varijablu tipa String nazivamo tekstom.



NijedanknjigaKaoRadna bilježnica, listKaoRadni list, tekstKao Niz

2. Želimo proći kroz sve otvorene radne knjige. Da biste to postigli, dodajte sljedeći kodni redak:

kako popraviti ref grešku u Excelu
Za SvakiknjigaURadne bilježnice

3. U promjenjivi tekst upisujemo tekst „Radna bilježnica:“, naziv radne bilježnice i tekst „Radni listovi:“.

text = text & 'Workbook:' & book.Name & vbNewLine & 'Radni listovi:' & vbNewLine

Napomena: možete koristiti operator & za spajanje (pridruživanje) elemenata. Za pokretanje nove linije možete koristiti vbNewLine.

4. Da biste prošli kroz sve radne listove radne knjige, dodajte sljedeći kodni redak:

Za SvakilistUknjiga.Radni listovi

5. Napisujemo nazive radnih listova radne knjige u promjenjivi tekst.

text = text & sheet.Name & vbNewLine

6. Zatvorite drugu petlju.

izračunati prinos do dospijeća u excelu
Sljedećilist

7. Dodajte bijelu liniju.

text = tekst & vbNoviniLine

8. Ne zaboravite zatvoriti prvu petlju.

Sljedećiknjiga

9. Konačno, tekst varijable prikazujemo pomoću MsgBox -a.

MsgBox tekst

10. Testirajte program. Prije nego što kliknete na naredbeni gumb, dajte radnim listovima neke opisne nazive i otvorite praznu radnu knjigu s tri radna lista.

Proizlaziti:

Prelistajte knjige i listove u Excelu VBA

4/8 Dovršeno! Saznajte više o knjigama i listovima>
Idite na sljedeće poglavlje: Objekt dometa



^