Exceli VBA ahelad: järgmiseks tehke aega, tehke kuni igaühe jaoks (näidetega)

Exceli ja VBA maksimaalseks ärakasutamiseks peate teadma, kuidas silmuseid tõhusalt kasutada.

VBA -s võimaldavad silmused objektide/väärtuste komplekti läbida ja seda ükshaaval analüüsida. Samuti saate iga tsükli jaoks teha konkreetseid ülesandeid.

Siin on lihtne näide VBA silmuste kasutamisest Excelis.

Oletame, et teil on andmekogum ja soovite esile tõsta kõik lahtrid paaris ridades. Vahemiku läbimiseks ja iga lahtri rea numbri analüüsimiseks saate kasutada VBA silmust. Kui see osutub ühtlaseks, annate sellele värvi, muidu jätate selle nii, nagu see on.

Nüüd on seda muidugi väga lihtne Excel VBA -s loopida (ja seda saab teha ka tingimusvormingu abil).

Reaalses elus saate Excelis VBA -silmustega palju rohkem ära teha, mis aitavad teil ülesandeid automatiseerida.

Siin on mõned praktilisemad näited, kus VBA silmused võivad olla kasulikud:

• Loopimine erinevates lahtrites ja iga lahtri analüüsimine (tõstke esile lahtrid, millel on konkreetne tekst).
• Sirvige kõiki töölehti ja tehke igaühega midagi (näiteks kaitske/eemaldage kaitse).
• Sirvige kõiki avatud töövihikuid (ja salvestage iga töövihik või sulgege kõik, välja arvatud aktiivne töövihik).
• Sirvige kõiki lahtri märke (ja eraldage numbriline osa stringist).
• Sirvige kõiki massiivi väärtusi.
• Sirvige kõiki diagramme/objekte (ja tehke ääris või muutke taustavärvi).

Nüüd, et Excel VBA silmuseid kõige paremini kasutada, peate teadma olemasolevate eri liikide ja nende õige süntaksi kohta.

Selles õpetuses tutvustan erinevat tüüpi Exceli VBA silmuseid ja toon mõned näited iga silmuse kohta

Märkus. See saab olema tohutu õpetus, kus proovin üksikasjalikult käsitleda iga VBA silmust. Soovitan teil selle lehe edaspidiseks kasutamiseks järjehoidjatesse lisada.

Kui olete huvitatud VBA lihtsast õppimisest, vaadake minu lehte Online VBA koolitus Excelis.

Järgmise silmuse jaoks

Ahel „Järgmiseks” võimaldab teil määratud arvu kordi koodiploki läbida.

Näiteks kui ma palun teil täisarvud 1 kuni 10 käsitsi lisada, lisate kaks esimest numbrit, seejärel lisate tulemusele kolmanda numbri ja lisate tulemusele neljanda numbri.

Kas pole?

Sama loogikat kasutatakse VBA silmuses Järgmine.

Te määrate, mitu korda soovite tsüklit käitada, ja määrate ka, mida soovite, et kood teeks iga kord, kui tsükkel käivitatakse.

Allpool on silmuse For Next süntaks:

Loenduri jaoks = algusest lõpuni [sammu väärtus] [käivitatav koodiplokk] järgmine [loendur]

Ahelas For Next saate kasutada loendurit (või mis tahes muutujat), mida kasutatakse tsükli käivitamiseks. See loendur võimaldab teil seda tsüklit käitada vajaliku arvu kordi.

Näiteks kui ma tahan lisada esimesed 10 positiivset täisarvu, oleks minu loenduri väärtus vahemikus 1 kuni 10.

Vaatame mõningaid näiteid, et paremini mõista, kuidas For Next loop töötab.

Näide 1 - esimese 10 positiivse täisarvu lisamine

Allpool on kood, mis lisab esimesed 10 positiivset täisarvu, kasutades tsüklit Järgmine.

Seejärel kuvatakse sõnumikast, mis näitab nende numbrite summat.

Alam Lisanumbrid () Dim Kokku täisarvuna Dim Loendus täisarvuna Kokku = 0 Loendamiseks = 1 kuni 10 Kokku = Kokku + loendamine Järgmine loend MsgBox Kokku Lõpp Alam

Selles koodis on väärtuse Kokku väärtuseks 0 enne, kui sisenete järgmisesse ahelasse.

Kui see on silmusesse jõudnud, hoiab see pärast iga tsüklit koguväärtust. Nii et pärast esimest tsüklit, kui loendur on 1, muutub väärtus „kokku” 1 ja pärast teist tsüklit 3 (1+2) jne.

Ja lõpuks, kui tsükkel lõpeb, on muutuja „Kokku” esimese 10 positiivse täisarvu summa.

Seejärel kuvab MsgBox tulemuse lihtsalt sõnumikastis.

Näide 2 - esimese 5 paarisarvulise täisarvu lisamine

Esimese viie paarisarvulise täisarvu (st 2,4,6,8 ja 10) summeerimiseks vajate sarnast koodi tingimusega, et arvestada ainult paarisarvudega ja ignoreerida paarituid numbreid.

Siin on kood, mis seda teeb:

Alam AddEvenNumbers () Dim Kokku täisarvuna Dim Loendus täisarvuna Kokku = 0 Loendamiseks = 2 kuni 10 2. samm Kokku = Kokku + loendamine Järgmine loend MsgBox Kokku Lõpp Alam

Pange tähele, et alustasime Count väärtust kahest ja kasutasime ka „2. samm‘.

Kui kasutate „2. samm”, see käsib koodil iga kord, kui tsükkel käivitatakse, suurendada arvu „Count” 2 võrra.

Nii et loendusväärtus algab 2 -st ja seejärel muutub silmuse tekkimisel 4, 6, 8 ja 10.

MÄRKUS. Teine võimalus seda teha võib olla tsükli käivitamine vahemikus 1 kuni 10 ja silmuse sees kontrollida, kas arv on paaris või paaritu. Kuid sel juhul on Step kasutamine tõhusam viis, kuna see ei nõua, et tsükkel töötaks 10 korda, vaid ainult 5 korda.

Sammu väärtus võib olla ka negatiivne. Sellisel juhul alustab loendur suuremat väärtust ja väheneb pidevalt määratud sammu võrra.

Näide 3 - Seerianumbri sisestamine valitud lahtritesse

Samuti saate kasutada tsüklit Järgmine objektide kogumi (nt lahtrid või töölehed või töövihikud) läbimiseks,

Siin on näide, mis sisestab kiiresti seerianumbrid kõikidesse valitud lahtritesse.

Alam EnterSerialNumber () Dim Rng vahemikuna Dim Loendur täisarvuna Dim RowCount täisarvuna Määra Rng = Valik RowCount = Rng.Rows.Count For Counter = 1 kuni RowCount ActiveCell.Offset (Loendur - 1, 0) .Value = Loendur Järgmine loenduri lõpp Sub

Ülaltoodud kood loendab kõigepealt valitud ridade arvu ja seejärel määrab selle väärtuse muutujale RowCount. Seejärel käivitame tsükli „1 kuni RowCount”.

Pange tähele ka seda, et kuna valik võib olla suvaline ridade arv, oleme määranud muutuja Rng väärtuseks Selection (reaga „Set Rng = Selection”). Nüüd saame oma koodis olevale valikule viitamiseks kasutada muutujat Rng.

Näide 4 - Kaitske kõiki aktiivse töövihiku töölehti

Silmust „Järgmiseks” saate kasutada kõigi aktiivse töövihiku töölehtede läbimiseks ja kõigi töölehtede kaitsmiseks (või kaitsest vabastamiseks).

Allpool on kood, mis seda teeb:

Sub ProtectWorksheets () Dim i täisarvuna i = 1 ActiveWorkbookile. Töölehed. Arvutage töölehti (i). Kaitse järgmine i End Sub

Ülaltoodud kood loendab lehtede arvu ActiveWorkbook.Worksheets.Count abil. See ütleb VBA -le, mitu korda tsüklit tuleb käivitada.

Igal juhul viitab see Ithi töövihikule (kasutades töölehti (i)) ja kaitseb seda.

Sama koodi saate kasutada ka töölehtede kaitse tühistamiseks. Lihtsalt vaheta rida Töölehed (i). Kaitse et Töölehed (i). UnProtect.

Pesastatud silmused „Järgmiseks”

Exceli keerukama automatiseerimise tegemiseks saate kasutada pesastatud silmuseid „Järgmiseks”. Pesastatud tsükkel „Järgmiseks” tähendaks, et ahelas „Järgmiseks” on silmus „Järgmiseks”.

Näitan näite abil, kuidas seda kasutada.

Oletame, et minu süsteemis on avatud 5 töövihikut ja tahan kaitsta kõigi nende töövihikute töölehti.

Allpool on kood, mis seda teeb:

Sub ProtectWorksheets () Dim i Täisarv Dim j Täisarvuna i = 1 Töövihikutesse. Arv j = 1 Töövihikutesse (i). Töölehed. Arvutage töövihikuid (i). Töölehed (j). Kaitse Järgmine j Järgmine i Lõpp Alam

Ülaltoodud on pesastatud järgmiseks silmus, kuna oleme kasutanud ühte järgmise jaoks silmus teises.

Väljendid „EXIT For” jaotises For Next Loops

Lause „Välju” võimaldab teil tsüklist „Järgmiseks” täielikult väljuda.

Saate seda kasutada juhtudel, kui soovite, et tsükkel Järgmine lõpeks, kui teatud tingimus on täidetud.

Võtame näite, kus veerus A on arvukomplekt ja soovite kõik negatiivsed numbrid punase kirjaga esile tõsta. Sel juhul peame analüüsima iga lahtri väärtust ja seejärel vastavalt muutma fondi värvi.

Kuid koodi tõhusamaks muutmiseks saame kõigepealt kontrollida, kas loendis on negatiivseid väärtusi või mitte. Kui negatiivseid väärtusi pole, võime kasutada lauset Exit For, et kood lihtsalt välja tulla.

Allpool on kood, mis seda teeb:

Alam HghlightNegative () Dim Rng kui vahemiku komplekt Seejärel välju If Rng (i). Väärtus <0 Siis Rng (i). Font.Color = vb Punane Järgmine i End Sub

Kui kasutate lauset „Exit For” pesastatud „For Next” ahelas, väljub see tsüklist, milles see täidetakse, ja jätkab koodi järgmise rea täitmist pärast järgmist tsüklit.

Näiteks allolevas koodis viib lause „Välju” teid sisemisest silmusest välja, kuid välimine silmus jätkab tööd.

Alamproovi kood () i = 1 kuni 10 jaoks j = 1 kuni 10 Välju järgmiseks J Järgmine i Lõpp alam

Tehke ringi

Ling „Tee ajal” võimaldab teil kontrollida tingimust ja käivitada tsükkel, kui see tingimus on täidetud (või on tõene).

Do Do Loopis on kahte tüüpi süntaksit.

Tehke [Olukorras] [Koodiplokk täitmiseks] Ahela

ja

Tehke [Koodiplokk täitmiseks] Loop [Olukorras]

Nende kahe erinevus seisneb selles, et esimesel juhul kontrollitakse tingimust Kuigi enne mis tahes koodiploki täitmist ja teisel juhul täidetakse kõigepealt koodiplokk ning seejärel kontrollitakse tingimust Kuigi.

See tähendab, et kui mõlemal juhul on tingimus Kuigi vale, siis teisel juhul käivitatakse kood vähemalt üks kord (kuna tingimust „Kuigi” kontrollitakse pärast koodi ühekordset täitmist).

Nüüd vaatame mõningaid näiteid Do While -silmuste kasutamise kohta VBA -s.

Näide 1 - lisage VBA abil 10 esimest positiivset täisarvu

Oletame, et soovite lisada esimesed kümme positiivset täisarvu, kasutades VBA silmust Do while.

Selleks võite kasutada tsüklit Do While, kuni järgmine arv on väiksem või võrdne 10. Niipea, kui arv on suurem kui 1o, teie tsükkel peatub.

Siin on VBA -kood, mis käivitab selle Do Do -ahela ja näitab tulemust sõnumikastis.

Sub AddFirst10PositiveIntegers () Dim i täisarvuna i = 1 Do while i <= 10 Result = Result + i i = i + 1 Loop MsgBox Result End Sub

Ülaltoodud tsükkel töötab seni, kuni i väärtuseks saab 11. Niipea, kui see muutub 11 -ks, lõpeb tsükkel (kui tingimus Kuigi muutub valeks).

Ahelas oleme kasutanud muutujat Tulemus, mis hoiab lõplikku väärtust Kui tsükkel on lõpule viidud, kuvatakse sõnumikastis muutuja „Tulemus” väärtus.

Näide 2 - sisestage jooksva kuu kuupäevad

Oletame, et soovite sisestada töölehe veergu kõik jooksva kuu kuupäevad.

Seda saate teha, kasutades järgmist Do while -silmuse koodi:

Sub EnterCurrentMonthDates () Dim CMDate kui kuupäev Dim i nagu täisarv i = 0 CMDate = DateSerial (aasta (kuupäev), kuu (kuupäev), 1) Do while Month (CMDate) = kuu (kuupäev) vahemik ("A1"). Nihe (i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub

Ülaltoodud kood sisestaks kõik kuupäevad töölehe esimesse veergu (alates A1 -st). Ahelad jätkuvad, kuni muutuja „CMDate” kuu väärtus vastab jooksva kuu väärtusele.

Välju

Silmusest väljumiseks võite kasutada lauset Exit Do. Niipea, kui kood käivitab rea „Exit Do”, väljub see Do while -tsüklist ja edastab juhtimise järgmisele reale kohe pärast tsüklit.

Näiteks kui soovite sisestada ainult kümme esimest kuupäeva, saate tsüklist väljuda kohe, kui esimesed kümme kuupäeva on sisestatud.

Allolev kood teeb seda:

Sub EnterCurrentMonthDates () Dim CMDate kui kuupäev Dim i nagu täisarv i = 0 CMDate = DateSerial (aasta (kuupäev), kuu (kuupäev), 1) Do while Month (CMDate) = kuu (kuupäev) vahemik ("A1"). Nihe (i, 0) = CMDate i = i + 1 Kui i> = 10, siis Välju Kas CMDate = CMDate + 1 silmuse lõpu alam

Ülaltoodud koodis kasutatakse IF -lauset, et kontrollida, kas i väärtus on suurem kui 10 või mitte. Niipea kui väärtuse „i” väärtus on 10, käivitatakse käsk Exit Do ja tsükkel lõpeb.

Tehke kuni silmuseni

Silmad „Tee kuni” on väga sarnased „Tehke” silmustega.

„Tehke ajal” töötab tsükkel seni, kuni antud tingimus on täidetud, samas kui „Tehke kuni”, see ringleb seni, kuni määratud tingimus on täidetud.

Do Do Loopis on kahte tüüpi süntaksit.

Tehke [Kuni tingimus] [Koodiplokk täitmiseks] Silmus

ja

Tehke [Koodiplokk täitmiseks] Ahel [Kuni tingimus]

Nende kahe erinevus seisneb selles, et esimesel juhul kontrollitakse enne mis tahes koodiploki täitmist tingimust Kuni ja teisel juhul täidetakse kõigepealt koodiplokk ning seejärel kontrollitakse tingimust Kuni.

See tähendab, et kui tingimus Kuni on TRUE, on mõlemad juhtumid, siis teisel juhul käivitatakse kood vähemalt üks kord (kuna tingimust „Kuni” kontrollitakse pärast koodi ühekordset täitmist).

Nüüd vaatame mõningaid näiteid Do Do silmuste kasutamise kohta VBA -s.

Märkus. Kõik näited jaotise „Kuni” kohta on samad, mis „Do While”. Neid on muudetud, et näidata teile, kuidas Do kuni tsükkel töötab.

Näide 1 - lisage VBA abil 10 esimest positiivset täisarvu

Oletame, et soovite lisada esimesed kümme positiivset täisarvu, kasutades VBA silmust Do Kuni.

Selleks tuleb käivitada tsükkel, kuni järgmine arv on väiksem või võrdne 10. Niipea, kui arv on suurem kui 1o, teie tsükkel peatuks.

Siin on VBA -kood, mis käivitab selle silmuse ja näitab tulemust sõnumikastis.

Sub AddFirst10PositiveIntegers () Dim i As täisarv i = 1 Tehke kuni i> 10 Tulemus = Tulemus + i i = i + 1 Loop MsgBox Tulemuse lõpp Alam

Ülaltoodud tsükkel töötab seni, kuni „i” väärtus muutub 11. Niipea, kui see saab 11, lõpeb tsükkel (kui tingimus „Kuni” muutub tõeseks).

Näide 2 - sisestage jooksva kuu kuupäevad

Oletame, et soovite sisestada töölehe veergu kõik jooksva kuu kuupäevad.

Seda saate teha, kasutades järgmist silmuse Do Do silmuse koodi:

Sub EnterCurrentMonthDates () Dim CMDate Kuupäev Dim i Täisarv i = 0 CMDate = DateSerial (Aasta (Kuupäev), Kuu (Kuupäev), 1) Kas Kuni Kuuni (CMDate) Kuu (Kuupäev) Vahemik ("A1"). Nihe ( i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub

Ülaltoodud kood sisestaks kõik kuupäevad töölehe esimesse veergu (alates A1 -st). Tsükkel jätkub, kuni muutuva CMDate kuu ei ole võrdne jooksva kuu omaga.

Välju

Silmusest väljumiseks võite kasutada avaldust „Exit Do”.

Niipea, kui kood käivitab rea „Exit Do”, väljub see Do Do tsüklist ja edastab juhtimise järgmisele reale kohe pärast tsüklit.

Näiteks kui soovite sisestada ainult kümme esimest kuupäeva, saate tsüklist väljuda kohe, kui esimesed kümme kuupäeva on sisestatud.

Allolev kood teeb seda:

Sub EnterCurrentMonthDates () Dim CMDate Kuupäev Dim i Täisarv i = 0 CMDate = DateSerial (Aasta (Kuupäev), Kuu (Kuupäev), 1) Kas Kuni Kuuni (CMDate) Kuu (Kuupäev) Vahemik ("A1"). Nihe ( i, 0) = CMDate i = i + 1 Kui i> = 10, siis Välju Kas CMDate = CMDate + 1 silmuse lõpu alam

Ülaltoodud koodis, niipea kui „i” väärtus saab 10, käivitatakse väljumisdokument ja tsükkel lõpeb.

Igaühele

VBA -s saate loopide komplekti kasutada silmuse „Iga jaoks” abil.

Siin on mõned näited Excel VBA kogudest:

• Kogu avatud töövihikute kogu.
• Töövihiku kõigi töölehtede kogumik.
• Kogumik kõigist valitud lahtrite lahtritest.
• Töövihiku kõigi diagrammide või kujundite kogumik.

Kasutades silmust „Igaühe jaoks”, saate kollektsiooni kõik objektid läbi vaadata ja sellega toiminguid teha.

Näiteks saate töövihiku kõik töölehed läbi vaadata ja neid kaitsta, või siis kõik valiku lahtrid läbi vaadata ja vormingut muuta.

Ahelaga „Iga jaoks” (mida nimetatakse ka „Iga järgmise jaoks”) ei pea te teadma, kui palju objekte kollektsioonis on.

Silm „Iga jaoks” läbiks automaatselt iga objekti ja teeks määratud toimingu. Näiteks kui soovite kaitsta kõiki töövihiku töölehti, oleks kood sama, olenemata sellest, kas teil on 3 või 30 töölehega töövihik.

Siin on Exceli VBA silmuse iga järgneva süntaks.

Iga elemendi kohta kollektsioonis [Täidetav koodiplokk] Järgmine [element]

Vaatame nüüd paari näidet Exceli iga silmuse kasutamise kohta.

Näide 1 - vaadake läbi kõik töövihiku töölehed (ja kaitske seda)

Oletame, et teil on töövihik, kus soovite kõiki töölehti kaitsta.

Allpool iga järgmise silmuse jaoks saate seda hõlpsalt teha:

Sub ProtectSheets () Dim ws töölehena ActiveWorkbooki iga töö jaoks. Töölehed ws. Kaitske järgmisi ws End Sub

Ülaltoodud koodis oleme määratlenud muutuja „ws” töölehe objektina. See ütleb VBA -le, et koodi „ws” tuleks tõlgendada töölehe objektina.

Nüüd kasutame lauset „Igaühe jaoks” iga aktiivse töövihiku töölehtede kogumiku (antud ActiveWorkbook.Worksheets) iga „ws” (mis on töölehe objekt) läbimiseks.

Pange tähele, et erinevalt teistest tsüklitest, kus oleme püüdnud kaitsta kõiki töövihiku töölehti, ei pea me siin muretsema selle pärast, kui palju töölehti on töövihikus.

Ahela käivitamiseks ei pea me neid kokku lugema. Iga silmuse jaoks tagab, et kõiki objekte analüüsitakse ükshaaval.

Näide 2 - vaadake läbi kõik avatud töövihikud (ja salvestage kõik)

Kui töötate korraga mitme töövihikuga, võib see olla kasulik, kui saate salvestada kõik need töövihikud korraga.

Allpool olev VBA -kood saab seda meie jaoks teha:

Sub SaveAllWorkbooks () Dim wb töövihikuna iga wb jaoks töövihikutes wb. Salvesta järgmine wb End Sub

Pange tähele, et selles koodis ei kuvata viiba, mis palub teil töövihiku teatud asukohta salvestada (kui see salvestatakse esimest korda).

See salvestab selle vaikekausta (minu puhul oli see kaust „Dokumendid”). See kood töötab kõige paremini siis, kui need failid on juba salvestatud ja teete muudatusi ning soovite kõik töövihikud kiiresti salvestada.

Näide 3 - Minge läbi kõik valitud lahtrid (tõstke esile negatiivsed väärtused)

Kasutades silmust „Iga jaoks”, saate loopida läbi kõik lahtrid kindlas vahemikus või valitud vahemikus.

See võib olla kasulik, kui soovite igat lahtrit analüüsida ja selle põhjal toimingu teha.

Näiteks allpool on kood, mis läbib kõik valitud lahtrid ja muudab negatiivsete väärtustega lahtrite värvi punaseks.

Sub HighlightNegativeCells () Dim Cll kui vahemik iga valiku puhul Cll.Value <0 Siis Cll.Interior.Color = vb

(Pange tähele, et olen kasutanud Cll lahtri lühikese muutujanimena. Soovitav on mitte kasutada muutujate nimedena objektide nimesid, nagu Sheets või Range)

Ülaltoodud koodis läbib silmus Iga järgmise jaoks valiku lahtrite kogumi. IF -lauset kasutatakse selle tuvastamiseks, kas lahtri väärtus on negatiivne või mitte. Kui see on nii, antakse lahtrile punane sisemine värv, vastasel juhul läheb see järgmisele lahtrile.

Kui teil pole valikut, vaid soovite, et VBA valiks kõik veerus täidetud lahtrid, alustades konkreetsest lahtrist (nagu me kasutame kõigi täidetud lahtrite valimiseks klahve Control + tõstuklahv + allanool). kasutage allolevat koodi:

Sub HighlightNegativeCells () Dim Cll kui vahemik Dim Rng As Range Set Rng = Vahemik ("A1", vahemik ("A1"). End (xlDown)) Iga Cll In Rng jaoks Kui Cll.Value <0 Siis Cll.Interior.Color = vbPunane lõpp, kui järgmine Cll End Sub

Ülaltoodud näites pole vahet, kui palju täidetud lahtreid on. See algab lahtrist A1 ja analüüsib kõiki veeru külgnevaid täidetud lahtreid.

Samuti ei pea te lahtrit A1 valima. Saate valida mis tahes kaugema lahtri ja kui kood töötab, võtab see ikkagi arvesse kõiki veeru A lahtreid (alates A1-st) ja värvib negatiivsed lahtrid.

Avaldus „Välju”

Silmusest Iga järgmise jaoks saate kasutada lauset „Välju”. Seda tehakse tavaliselt teatud tingimuste täitmise korral.

Näiteks näites 3, kui käime läbi lahtrite komplekti, võib olla tõhusam kontrollida, kas negatiivseid väärtusi on või mitte. Kui negatiivseid väärtusi pole, saame lihtsalt tsüklist väljuda ja säästa VBA töötlemisaega.

Allpool on VBA -kood, mis seda teeb:

Sub HighlightNegativeCells () Dim Cll kui vahemik iga Cll jaoks valikul If WorksheetFunction.Min (Selection)> = 0 Siis Exit For If Cll.Value <0 then Cll.Interior.Color = vbPunane lõpp, kui järgmine Cll End Sub

Kuhu panna VBA kood

Huvitav, kuhu läheb teie Exceli töövihikus VBA -kood?

Excelil on VBA taustaprogramm, mida nimetatakse VBA redaktoriks. Peate koodi kopeerima ja kleepima VB Editori mooduli koodi aknasse.

Selleks toimige järgmiselt.

1. Minge vahekaardile Arendaja.
2. Klõpsake suvandil Visual Basic. See avab taustaprogrammis VB redaktori.
3. Paremklõpsake VB redaktori Project Exploreri paanil töövihiku mis tahes objekti, kuhu soovite koodi sisestada. Kui te ei näe Project Explorerit, minge vahekaardile Vaade ja klõpsake nuppu Project Explorer.
4. Minge sisesta ja klõpsake moodulit. See lisab teie töövihikusse mooduliobjekti.
5. Kopeerige ja kleepige kood mooduli aknasse.