Alla tarkastelemme ohjelmaa Excel VBA että selaa läpi kaikki avoimet työkirjat ja laskentataulukot, ja näyttää kaikki nimet.
Tilanne:
Lisää seuraavat koodirivit komentopainikkeeseen:
1. Ensin julistamme kaksi objektia ja yhden muuttujan. Yksi työkirjan tyyppinen objekti, jota kutsumme kirjaksi, yksi tyyppinen objekti Työarkki, jota kutsumme arkiksi, ja muuttuja, jonka tyyppi on String, jota kutsumme tekstiksi.
Himmennä kirja työkirjana, arkki laskentataulukkona, teksti merkkijonona
2. Haluamme käydä läpi kaikki avoimet työkirjat. Tämän saavuttamiseksi lisää seuraava koodirivi:
Jokaista kirjaa työkirjoissa
3. Kirjoitamme muuttuvaan tekstiin tekstin "Työkirja:", työkirjan nimen ja tekstin "Työarkit:" ".
text = text & "Työkirja:" & book.Name & vbNewLine & "Laskentataulukot:" & vbNewLine
Huomaa: & operaattorin avulla voit yhdistää (liittää) elementtejä. Voit aloittaa uuden rivin vbNewLinen avulla.
4. Voit selata kaikkia työkirjan laskentataulukoita lisäämällä seuraavan koodirivin:
Jokaiselle arkille kirjassa
5. Kirjoitamme työkirjan laskentataulukoiden nimet muuttuvaan tekstiin.
text = text & sheet.Name & vbNewLine
6. Sulje toinen silmukka.
Seuraava arkki
7. Lisää valkoinen viiva.
text = text & vbNewLine
8. Älä unohda sulkea ensimmäistä silmukkaa.
Seuraava kirja
9. Lopuksi näytämme muuttujan tekstin käyttämällä MsgBoxia.
MsgBox -teksti
10. Testaa ohjelma. Ennen kuin napsautat komentopainiketta, anna laskentataulukoillesi kuvaavia nimiä ja avaa tyhjä työkirja, jossa on kolme laskentataulukkoa.
Tulos:
