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:
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 ExceluZa 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:' & vbNewLineNapomena: 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 listovi5. Napisujemo nazive radnih listova radne knjige u promjenjivi tekst.
text = text & sheet.Name & vbNewLine6. Zatvorite drugu petlju.
izračunati prinos do dospijeća u exceluSljedećilist
7. Dodajte bijelu liniju.
text = tekst & vbNoviniLine8. Ne zaboravite zatvoriti prvu petlju.
Sljedećiknjiga9. Konačno, tekst varijable prikazujemo pomoću MsgBox -a.
MsgBox tekst10. 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:
Idite na sljedeće poglavlje: Objekt dometa