Excel VBA petlje: Za sljedeće, Učinite dok, Uradite do, Za svaku (s primjerima)

Da biste najbolje iskoristili Excel i VBA, morate znati učinkovito koristiti petlje.

U VBA -i, petlje vam omogućuju da prođete kroz skup objekata/vrijednosti i analizirate ih jednu po jednu. Također možete izvesti određene zadatke za svaku petlju.

Evo jednostavnog primjera korištenja VBA petlji u Excelu.

Pretpostavimo da imate skup podataka i želite istaknuti sve ćelije u parnim redovima. Možete koristiti VBA petlju za prolazak kroz raspon i analizu svakog broja retka ćelije. Ako se pokaže kao ujednačeno, dajete mu boju, inače ga ostavljate takvog kakav jest.

Naravno, ovo je vrlo jednostavno petlje u Excelu VBA (a to možete učiniti i pomoću uvjetnog oblikovanja).

U stvarnom životu možete učiniti mnogo više s VBA petljama u Excelu koje vam mogu pomoći u automatizaciji zadataka.

Evo još nekoliko praktičnih primjera gdje VBA petlje mogu biti korisne:

• Ponavljanje kroz niz ćelija i analiza svake ćelije (označite ćelije s određenim tekstom u njoj).
• Pregledajte sve radne listove i učinite nešto sa svakim (na primjer zaštitite ga/uklonite zaštitu).
• Prelistajte sve otvorene radne knjige (i spremite svaku radnu knjigu ili zatvorite sve osim aktivne radne knjige).
• Ponovite sve znakove u ćeliji (i izvucite numerički dio iz niza).
• Prođite kroz sve vrijednosti niz.
• Prelistajte sve grafikone/objekte (i dajte obrub ili promijenite boju pozadine).

Da biste najbolje koristili petlje u Excelu VBA, morate znati o različitim vrstama koje postoje i ispravnoj sintaksi svake od njih.

U ovom ću vodiču prikazati različite vrste Excel VBA petlji i pokriti nekoliko primjera za svaku petlju

Napomena: Ovo će biti veliki vodič u kojem ću pokušati detaljno pokriti svaku VBA petlju. Preporučujem da označite ovu stranicu za buduću upotrebu.

Ako ste zainteresirani za učenje VBA na jednostavan način, provjerite moj Mrežna Excel VBA obuka.

Za sljedeću petlju

Petlja ‘Za sljedeće’ omogućuje vam prolazak kroz blok koda određeni broj puta.

Na primjer, ako vas zamolim da ručno dodate cijele brojeve od 1 do 10, dodali biste prva dva broja, zatim u rezultat dodali treći broj, zatim u rezultat dodali četvrti broj, itd.

Zar ne?

Ista se logika koristi u petlji For Next u VBA -i.

Određujete koliko puta želite da se petlja izvodi, a također i to što želite da kôd radi svaki put kada se petlja izvodi.

Ispod je sintaksa petlje For Next:

Za brojač = Početak do kraja [Vrijednost koraka] [Blok koda za izvršavanje] Sljedeći [brojač]

U petlji Za sljedeće možete koristiti brojač (ili bilo koju varijablu) koja će se koristiti za pokretanje petlje. Ovaj brojač omogućuje vam pokretanje ove petlje potreban broj puta.

Na primjer, ako želim dodati prvih 10 pozitivnih cijelih brojeva, tada bi vrijednost brojača bila od 1 do 10.

Pogledajmo nekoliko primjera kako bismo bolje razumjeli kako radi petlja For Next.

Primjer 1 - Zbrajanje prvih 10 pozitivnih cijelih brojeva

Ispod je kôd koji će dodati prvih 10 pozitivnih cijelih brojeva pomoću petlje Za sljedeće.

Tada će se prikazati okvir s porukom koji prikazuje zbroj ovih brojeva.

Broj dodanih brojeva () Dim ukupno kao cijeli broj Dim broj kao cijeli broj ukupno = 0 za brojanje = 1 do 10 ukupno = ukupno + broj sljedeći broj msgBox ukupno završi pod

U ovom kodu vrijednost Total je postavljena na 0 prije ulaska u petlju Za sljedeće.

Nakon što uđe u petlju, nakon svake petlje drži ukupnu vrijednost. Dakle, nakon prve petlje, kada je brojač 1, vrijednost "Ukupno" postaje 1, a nakon druge petlje postaje 3 (1+2), i tako dalje.

I na kraju, kada petlja završi, varijabla "Ukupno" ima zbroj prvih 10 pozitivnih cijelih brojeva.

MsgBox tada jednostavno prikazuje rezultat u okviru za poruku.

Primjer 2 - Dodavanje prvih 5 parnih pozitivnih cijelih brojeva

Da biste zbrojili prvih pet parnih pozitivnih cijelih brojeva (tj. 2,4,6,8 i 10), potreban vam je sličan kôd s uvjetom da uzmete u obzir samo parne brojeve i zanemarite neparne brojeve.

Evo koda koji će to učiniti:

Sub AddEvenNumbers () Dim Dim Total As Integer Dim Count As Integer Total = 0 For Count = 2 do 10 Step 2 Total = Total + Count Next Count MsgBox Total End Sub

Imajte na umu da smo vrijednost Count započeli s 2 i također koristili 'Korak 2‘.

Kad koristite 'Korak 2', govori kodu da poveća vrijednost "Count" za 2 svaki put kada se petlja pokrene.

Dakle, vrijednost Count počinje od 2, a zatim postaje 4, 6, 8 i 10 kako se petlja dogodi.

NAPOMENA: Drugi način za to može biti pokretanje petlje od 1 do 10 i unutar petlje provjeriti je li broj paran ili neparan. Međutim, korištenje Stepa u ovom je slučaju učinkovitiji način jer ne zahtijeva da se petlja izvodi 10 puta, već samo 5 puta.

Vrijednost Step također može biti negativna. U tom slučaju brojač počinje s većom vrijednošću i nastavlja se smanjivati ​​za određenu vrijednost koraka.

Primjer 3 - Unos serijskog broja u odabrane ćelije

Također možete koristiti petlju Za sljedeće za pregledavanje zbirke objekata (poput ćelija ili radnih listova ili radnih knjiga),

Evo primjera koji brzo unosi serijske brojeve u sve odabrane ćelije.

Sub EnterSerialNumber () Dim Rng kao raspon Dim Counter As Integer Dim RowCount As Integer Set Rng = Selection RowCount = Rng.Rows.Count For Counter = 1 Za RowCount ActiveCell.Offset (Brojač - 1, 0) .Vrijednost = Brojač Sljedeći kraj brojača Pod

Gornji kôd prvo broji broj odabranih redaka, a zatim dodjeljuje tu vrijednost varijabli RowCount. Zatim pokrećemo petlju od '1 do RowCount'.

Također imajte na umu da budući da odabir može biti bilo koji broj redaka, varijablu Rng smo postavili na Odabir (s retkom ‘Postavi Rng = Odabir’). Sada možemo upotrijebiti varijablu ‘Rng’ za pozivanje na odabir u našem kodu.

Primjer 4 - Zaštitite sve radne listove u aktivnoj radnoj knjizi

Petlju ‘Za sljedeće’ možete koristiti za pregledavanje svih radnih listova u aktivnoj radnoj knjizi i zaštitu (ili uklanjanje zaštite) svakog radnog lista.

Ispod je kôd koji će to učiniti:

Sub ProtectWorksheets () Dim i As Integer For i = 1 Za ActiveWorkbook.Worksheets.Count Worksheets (i) .Zaštitite Next i End Sub

Gornji kod broji broj listova pomoću ActiveWorkbook.Worksheets.Count. To govori VBA koliko puta se petlja mora pokrenuti.

U svakom se slučaju odnosi na I radnu knjigu (pomoću radnih listova (i)) i štiti je.

Isti kôd možete upotrijebiti za uklanjanje zaštite radnih listova. Samo promijenite liniju Radni listovi (i) .Zaštiti do Radni listovi (i) .UnProtect.

Ugniježđene petlje ‘Za sljedeću’

Možete upotrijebiti ugniježđene petlje ‘Za sljedeće’ da biste izvršili složeniju automatizaciju u Excelu. Ugniježđena petlja "Za sljedeće" značila bi da unutar petlje "Za sljedeću" postoji petlja "Za sljedeće".

Dopustite mi da vam pokažem kako to koristiti na primjeru.

Pretpostavimo da imam 5 otvorenih radnih knjiga u svom sustavu i želim zaštititi sve radne listove u svim tim radnim bilježnicama.

Ispod je kôd koji će to učiniti:

Sub ProtectWorksheets () Dim i As Integer Dim j As Integer For i = 1 To Workbooks.Count For j = 1 To Workbooks (i) .Worksheets.Count Workbooks (i) .Worksheets (j) .Protect Next j Next i End Sub

Gore navedeno je ugniježđena petlja For Next jer smo koristili jednu petlju For Next unutar druge.

'EXIT For' Izjave u za naredne petlje

Naredba 'Exit For' omogućuje vam potpuno napuštanje petlje 'For Next'.

Možete ga koristiti u slučajevima kada želite da se petlja Za sljedeće završi kada je ispunjen određeni uvjet.

Uzmimo primjer gdje imate skup brojeva u stupcu A i želite označiti sve negativne brojeve crvenim fontom. U tom slučaju moramo analizirati svaku ćeliju na njezinu vrijednost, a zatim prema tome promijeniti boju fonta.

No, kako bi kôd bio učinkovitiji, prvo možemo provjeriti postoje li na popisu negativne vrijednosti ili ne. Ako nema negativnih vrijednosti, možemo koristiti izraz Exit For da jednostavno izađemo iz koda.

Ispod je kôd koji to radi:

Sub HghlightNegative () Dim Rng As Range Set Rng = Raspon ("A1", Raspon ("A1"). Kraj (xlDown)) Brojač = Rng.Broj Za i = 1 Za odbrojavanje ako je Radni list Funkcija.Min (Rng)> = 0 Zatim izađite za Ako je Rng (i) .Vrijednost <0 Zatim Rng (i). Font.Color = vbRed Sljedeće i Kraj pod

Kada koristite izraz 'Exit For' unutar ugniježđene petlje 'For Next', on će izaći iz petlje u kojoj se izvodi i nastaviti s izvršavanjem sljedećeg retka u kodu nakon petlje For Next.

Na primjer, u donjem kodu naredba ‘Exit For’ će vas izvući iz unutarnje petlje, ali bi vanjska petlja nastavila raditi.

Sub SampleCode () Za i = 1 do 10 Za j = 1 do 10 Izlaz Za sljedeći J Sljedeći i Kraj pod

Do While Loop

Petlja ‘Do While’ omogućuje provjeru stanja i pokretanje petlje dok je taj uvjet ispunjen (ili je TRUE).

U petlji Do while postoje dvije vrste sintakse.

Učinite petlju [Dok je stanje] [Kodni blok za izvršavanje]

i

Učiniti [Blokiranje koda za izvršavanje] Petlja [Dok je stanje]

Razlika između ova dva je u tome što se u prvom uvjetu While prvo provjerava prije izvršenja bilo kojeg kodnog bloka, au drugom slučaju prvo se izvršava kodni blok, a zatim provjerava uvjet While.

To znači da ako je uvjet While netačan u oba slučaja, kôd će se i dalje pokrenuti barem jednom u drugom slučaju (jer se uvjet 'Dok' provjerava nakon što se kôd jednom izvrši).

Pogledajmo sada neke primjere korištenja petlji Do While u VBA -i.

Primjer 1 - Dodajte prvih 10 pozitivnih cijelih brojeva pomoću VBA

Pretpostavimo da želite dodati prvih deset pozitivnih cijelih brojeva pomoću petlje Do While u VBA.

Da biste to učinili, možete koristiti petlju Do While dok sljedeći broj ne bude manji ili jednak 10. Čim je broj veći od 1o, vaša će se petlja zaustaviti.

Evo VBA koda koji će pokrenuti ovu petlju Do While i prikazati rezultat u okviru s porukom.

Sub AddFirst10PositiveIntegers () Dim i As Integer i = 1 Do While i <= 10 Result = Result + i i = i + 1 Petlja MsgBox Rezultat Kraj Sub

Gornja petlja nastavlja raditi sve dok vrijednost 'i' ne postane 11. Čim postane 11, petlja se završava (jer uvjet While postaje False).

Unutar petlje koristili smo varijablu Rezultat koja drži konačnu vrijednost Nakon što je petlja dovršena, okvir s porukom prikazuje vrijednost varijable "Rezultat".

Primjer 2 - Unesite datume za tekući mjesec

Recimo da želite unijeti sve datume tekućeg mjeseca u stupac radnog lista.

To možete učiniti pomoću sljedećeg koda petlje Do While:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Godina (Datum), Mjesec (Datum), 1) Do While Mjesec (CMDate) = Mjesec (datum) Raspon ("A1"). Pomak (i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub

Gornji kôd unosio bi sve datume u prvi stupac radnog lista (počevši od A1). Petlje se nastavljaju sve dok mjesečna vrijednost varijable "CMDate" ne odgovara vrijednosti tekućeg mjeseca.

Izlaz Do Izjava

Za izlazak iz petlje možete koristiti naredbu Exit Do. Čim kôd izvrši redak ‘Exit Do’, izlazi iz petlje Do While i prenosi kontrolu u sljedeći redak odmah nakon petlje.

Na primjer, ako želite unijeti samo prvih 10 datuma, tada možete izaći iz petlje čim se unese prvih 10 datuma.

Kôd u nastavku će to učiniti:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Godina (Datum), Mjesec (Datum), 1) Do While Mjesec (CMDate) = Mjesec (datum) Raspon ("A1"). Pomak (i, 0) = CMDate i = i + 1 Ako je i> = 10 Zatim izađite Do CMDate = CMDate + 1 Loop End Sub

U gornjem kodu, izraz IF se koristi za provjeru je li vrijednost i veća od 10 ili nije. Čim vrijednost 'i' postane 10, izvršava se naredba Exit Do i petlja se završava.

Radite do petlje

Petlje "Do Until" vrlo su slične petljama "Do While".

U "Do While" petlja radi sve dok se ne ispuni zadani uvjet, dok u "Do Until" petlja dok se ne ispuni navedeni uvjet.

Postoje dvije vrste sintakse u Do Do Loop petlji.

Učinite [Do uvjeta] [Blok koda za izvršavanje] Petlju

i

Učiniti [Blokiranje koda za izvršavanje] Petlja [Do uvjeta]

Razlika između ova dva je u tome što se u prvom, prije nego što se izvrši bilo koji kodni blok, prvo provjeri uvjet Until, au drugom slučaju prvo se izvrši kodni blok, a zatim provjeri uvjet Do.

To znači da ako je uvjet Dok je TRUE u oba slučaja, kôd će se i dalje izvoditi barem jednom u drugom slučaju (jer se uvjet 'Do' provjerava nakon što se kôd jednom izvrši).

Pogledajmo sada neke primjere korištenja petlji Do Dola u VBA -i.

Napomena: Svi primjeri za Do While isti su kao i za Do While. One su izmijenjene kako bi vam pokazale kako radi petlja Do Do.

Primjer 1 - Dodajte prvih 10 pozitivnih cijelih brojeva pomoću VBA

Pretpostavimo da želite dodati prvih deset pozitivnih cijelih brojeva pomoću petlje Do Do u VBA.

Da biste to učinili, morate pokrenuti petlju dok sljedeći broj ne bude manji ili jednak 10. Čim je broj veći od 1o, vaša će se petlja zaustaviti.

Ovdje je VBA kôd koji će pokrenuti ovu petlju i prikazati rezultat u okviru s porukom.

Sub AddFirst10PositiveIntegers () Dim i As Integer i = 1 Učinite sve do i> 10 Result = Result + i i = i + 1 Petlja MsgBox Rezultat Kraj Sub

Gornja petlja nastavlja raditi sve dok vrijednost 'i' ne postane 11. Čim postane 11, petlja se završava (jer uvjet 'Dok' ne postane True).

Primjer 2 - Unesite datume za tekući mjesec

Recimo da želite unijeti sve datume tekućeg mjeseca u stupac radnog lista.

To možete učiniti pomoću sljedećeg koda petlje Do Do:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Godina (Datum), Mjesec (Datum), 1) Učinite do Mjesec (CMDate) Mjesec (Datum) Raspon ("A1"). Odstupanje ( i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub

Gornji kôd unosio bi sve datume u prvi stupac radnog lista (počevši od A1). Petlja se nastavlja sve dok mjesec varijable CMDate nije jednak onom u tekućem mjesecu.

Izlaz Do Izjava

Za izlazak iz petlje možete upotrijebiti izraz 'Exit Do'.

Čim kôd izvrši redak ‘Exit Do’, izlazi iz petlje Do Until i prenosi kontrolu u sljedeći redak odmah nakon petlje.

Na primjer, ako želite unijeti samo prvih 10 datuma, tada možete izaći iz petlje čim se unese prvih 10 datuma.

Kôd u nastavku će to učiniti:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Godina (Datum), Mjesec (Datum), 1) Do mjeseca (CMDate) Mjesec (datum) Raspon ("A1"). i, 0) = CMDate i = i + 1 Ako je i> = 10 Zatim izađite Do CMDate = CMDate + 1 Loop End Sub

U gornjem kodu, čim vrijednost 'i' postane 10, izvršava se Izlaz Do statment i petlja se završava.

Za svakoga

U VBA -u možete proći kroz skup zbirki pomoću petlje ‘Za svakoga’.

Evo nekoliko primjera zbirki u Excelu VBA:

• Zbirka svih otvorenih radnih bilježnica.
• Zbirka svih radnih listova u radnoj bilježnici.
• Zbirka svih stanica u nizu odabranih ćelija.
• Zbirka svih grafikona ili oblika u radnoj knjizi.

Pomoću petlje ‘Za svaki’ možete proći kroz svaki objekt u zbirci i izvršiti neku radnju na njemu.

Na primjer, možete pregledati sve radne listove u radnoj knjizi i zaštititi ih ili možete proći kroz sve ćelije u odabiru i promijeniti oblikovanje.

S petljom "Za svaki" (koja se naziva i petlja "Za svaku sljedeću"), ne morate znati koliko objekata ima u zbirci.

Petlja ‘Za svaki’ automatski bi prošla kroz svaki objekt i izvršila navedenu radnju. Na primjer, ako želite zaštititi sve radne listove u radnoj knjizi, kôd bi bio isti bez obzira imate li radnu knjigu s 3 radna lista ili 30 radnih listova.

Ovdje je sintaksa petlje Za svaki sljedeći u Excelu VBA.

Za svaki element u zbirci [Blok koda za izvršenje] Sljedeći [element]

Pogledajmo sada nekoliko primjera upotrebe petlje Za svaku petlju u Excelu.

Primjer 1 - Pregledajte sve radne listove u radnoj knjizi (i zaštitite je)

Pretpostavimo da imate radnu knjigu u kojoj želite zaštititi sve radne listove.

U nastavku Za svaku sljedeću petlju to možete učiniti jednostavno:

Sub ProtectSheets () Zatamni kao radni list za svaki ws u ActiveWorkbook.Worksheets ws.Zaštiti sljedeće ws End Sub

U gornjem kodu definirali smo varijablu 'ws' kao objekt radnog lista. To govori VBA -i da bi 'ws' trebalo tumačiti kao objekt radnog lista u kodu.

Sada koristimo izraz 'Za svaki' da prođemo kroz svaki 'ws' (koji je objekt radnog lista) u zbirci svih radnih listova u aktivnoj radnoj knjizi (koju daje ActiveWorkbook.Worksheets).

Imajte na umu da za razliku od drugih petlji u kojima smo pokušali zaštititi sve radne listove u radnoj knjizi, ovdje se ne moramo brinuti o tome koliko radnih listova postoji u radnoj knjizi.

Ne moramo ih brojati da bismo pokrenuli petlju. Za svaku petlju osigurava da se svi objekti analiziraju jedan po jedan.

Primjer 2 - Pregledajte sve otvorene radne knjige (i spremite sve)

Ako istodobno radite s više radnih bilježnica, može vam dobro doći spremanje svih ovih radnih knjiga odjednom.

Ispod VBA koda to možete učiniti za nas:

Sub SaveAllWorkbooks () Zatamni wb kao radnu knjigu za svaku wb u radnim knjigama wb.Save Next wb End Sub

Imajte na umu da u ovom kodu ne dobivate upit koji od vas traži da radnu knjigu spremite na određeno mjesto (ako je spremate prvi put).

Sprema ga u zadanu mapu (u mom slučaju to je bila mapa ‘Dokumenti’). Ovaj kôd najbolje funkcionira kada su te datoteke već spremljene, a vi unosite promjene i želite brzo spremiti sve radne knjige.

Primjer 3 - Prođite kroz sve ćelije u odabiru (označite negativne vrijednosti)

Pomoću petlje ‘Za svaki’ možete proći kroz sve ćelije u određenom rasponu ili u odabranom rasponu.

To može biti korisno kada želite analizirati svaku ćeliju i na temelju nje izvršiti radnju.

Na primjer, ispod je kôd koji će proći kroz sve ćelije u odabiru i promijeniti boju ćelije ćelija s negativnim vrijednostima u crvenu.

Sub HighlightNegativeCells () Dim Cll As Range Za svaku Cll u izboru Ako je Cll.Value <0 Zatim Cll.Interior.Color = vbRed End Ako je sljedeći Cll End Sub

(Imajte na umu da sam koristio Cll kao kratki naziv varijable za ćeliju. Nije preporučljivo koristiti nazive objekata kao što su tablice ili raspon kao nazive varijabli)

U gornjem kodu petlja Za svaki sljedeći prolazi kroz zbirku ćelija u odabiru. Naredba IF koristi se za identifikaciju je li vrijednost ćelije negativna ili nije. U slučaju da je tako, ćelija dobiva unutrašnju crvenu boju, u protivnom ide u sljedeću ćeliju.

U slučaju da nemate odabir, a umjesto toga želite da VBA odabere sve ispunjene ćelije u stupcu, počevši od određene ćelije (baš kao što koristimo Control + Shift + tipka sa strelicom prema dolje za odabir svih ispunjenih ćelija), možete upotrijebite donji kod:

Sub HighlightNegativeCells () Dim Cll As Range Dim Rng As Range Set Rng = Raspon ("A1", Raspon ("A1"). Kraj (xlDown)) Za svaki Cll U Rng Ako je Cll.Vrednost <0 Zatim Cll.Interior.Boja = vbRed End If Next Cll End Sub

U gornjem primjeru nije važno koliko ispunjenih ćelija ima. Počet će od ćelije A1 i analizirati sve susjedne ispunjene ćelije u stupcu.

Također ne morate imati odabranu ćeliju A1. Možete odabrati bilo koju udaljenu ćeliju i kada se kôd pokrene, i dalje će uzeti u obzir sve ćelije u stupcu A (počevši od A1) i obojiti negativne ćelije.

„Izlaz za“ izvještaj

Za izlazak iz petlje možete koristiti izraz 'Izlaz za' u petlji Za svaku sljedeću. To se obično čini u slučaju da je ispunjen određeni uvjet.

Na primjer, u primjeru 3, dok prolazimo kroz skup ćelija, može biti učinkovitije provjeriti postoje li negativne vrijednosti ili ne. U slučaju da nema negativnih vrijednosti, jednostavno možemo izaći iz petlje i uštedjeti neko vrijeme VBA obrade.

Ispod je VBA kôd koji će to učiniti:

Sub HighlightNegativeCells () Dim Cll As Range Za svaki Cll u odabiru If WorksheetFunction.Min (Selection)> = 0 Zatim zatvorite For If Cll.Value <0 Then Cll.Interior.Color = vbRed End Ako je sljedeći Cll End Sub

Gdje staviti VBA kod

Pitate se gdje se VBA kôd nalazi u vašoj radnoj knjizi programa Excel?

Excel ima VBA pozadinu koja se naziva VBA editor. Morate kopirati i zalijepiti kôd u prozor koda modula VB Editor.

Evo koraka za to:

1. Idite na karticu Developer.
2. Kliknite na opciju Visual Basic. Ovo će otvoriti VB editor u pozadini.
3. U oknu Project Explorer u VB Editoru desnom tipkom miša kliknite bilo koji objekt radne knjige u koji želite umetnuti kôd. Ako ne vidite Project Explorer, idite na karticu View i kliknite na Project Explorer.
4. Idite na Umetni i kliknite na Modul. Ovo će umetnuti objekt modula u vašu radnu knjigu.
5. Kopirajte i zalijepite kôd u prozor modula.