Spodaj si bomo ogledali program v Excel VBA to pregleduje vse odprte delovne zvezke in delovne listein prikaže vsa imena.
Situacija:
Ukaznemu gumbu dodajte naslednje vrstice kode:
1. Najprej razglasimo dva objekta in eno spremenljivko. En predmet tipa Delovni zvezek, ki ga imenujemo knjiga, en predmet tipa Delovni list, ki ga imenujemo list, in spremenljivko tipa Niz, ki ga imenujemo besedilo.
Zatemni knjigo kot delovni zvezek, list kot delovni list, besedilo kot niz
2. Želimo prelistati vse odprte delovne zvezke. Če želite to narediti, dodajte naslednjo kodno vrstico:
Za vsako knjigo v delovnih zvezkih
3. V spremenljivo besedilo napišemo besedilo "Delovni zvezek:", ime delovnega zvezka in besedilo "Delovni listi:" ".
text = text & "Delovni zvezek:" & book.Name & vbNewLine & "Delovni listi:" & vbNewLine
Opomba: za povezovanje (združevanje) elementov lahko uporabite operator &. Za začetek nove vrstice lahko uporabite vbNewLine.
4. Če želite prelistati vse delovne liste delovnega zvezka, dodajte naslednjo kodno vrstico:
Za vsak list v knjigi. Delovni listi
5. V spremenljivo besedilo zapišemo imena delovnih listov delovnega zvezka.
besedilo = besedilo in list.Ime & vbNewLine
6. Zaprite drugo zanko.
Naslednji list
7. Dodajte belo črto.
text = besedilo & vbNewLine
8. Ne pozabite zapreti prve zanke.
Naslednja knjiga
9. Končno prikažemo spremenljivo besedilo z uporabo polja MsgBox.
Besedilo MsgBox
10. Preizkusite program. Preden kliknete ukazni gumb, dajte svojim delovnim listom nekaj opisnih imen in odprite prazen delovni zvezek s tremi delovnimi listi.
Rezultat:
