Slučky Excel VBA: Ďalej, Do, Kým, Do, pre každú (s príkladmi)

Aby ste čo najlepšie využili Excel a VBA, musíte vedieť, ako efektívne využívať slučky.

Vo VBA vám slučky umožňujú prejsť súborom objektov/hodnôt a analyzovať ich jeden po druhom. Pre každú slučku môžete tiež vykonávať konkrétne úlohy.

Tu je jednoduchý príklad použitia slučiek VBA v programe Excel.

Predpokladajme, že máte množinu údajov a chcete zvýrazniť všetky bunky v párnych riadkoch. Pomocou slučky VBA môžete prechádzať rozsahom a analyzovať každé číslo riadka bunky. Ak sa ukáže, že je rovnomerná, dáte jej farbu, inak ju necháte tak.

Teraz je to samozrejme veľmi jednoduché v slučke v programe Excel VBA (a môžete to urobiť aj pomocou podmieneného formátovania).

V reálnom živote môžete urobiť oveľa viac so slučkami VBA v programe Excel, ktoré vám môžu pomôcť automatizovať úlohy.

Tu je niekoľko ďalších praktických príkladov, kde môžu byť slučky VBA užitočné:

• Opakovanie v rade buniek a analýza každej bunky (zvýraznite bunky s konkrétnym textom).
• Prejdite si všetky pracovné hárky a s každým niečo urobte (napríklad chráňte/odomknite).
• Prechádzajte všetkými otvorenými zošitmi (a uložte každý zošit alebo zatvorte všetky okrem aktívneho zošita).
• Zopakujte všetky znaky v bunke (a extrahujte číselnú časť z reťazca).
• Prechádzajte všetkými hodnotami v poli.
• Prechádzajte všetkými grafmi/objektmi (a dajte orámovanie alebo zmeňte farbu pozadia).

Aby ste teraz najlepšie využili slučky v programe Excel VBA, musíte vedieť o rôznych druhoch, ktoré existujú, a o správnej syntaxi každého z nich.

V tomto tutoriáli predvediem rôzne typy slučiek Excel VBA a uvediem niekoľko príkladov pre každú slučku

Poznámka: Toto bude obrovský tutoriál, v ktorom sa pokúsim podrobne pokryť každú slučku VBA. Odporúčam vám uložiť si túto stránku ako záložku pre budúce použitie.

Ak máte záujem naučiť sa VBA jednoduchým spôsobom, pozrite sa na moje Online školenie Excel VBA.

Pre ďalšiu slučku

Cyklus „Ďalej“ vám umožní prejsť blok kódu zadaný počet krát.

Ak vás napríklad požiadam o manuálne sčítanie celých čísel od 1 do 10, pridali by ste prvé dve čísla, potom k výsledku pripočítali tretie číslo, potom k výsledku pripočítali štvrté číslo a podobne …

Nie?

Rovnaká logika sa používa aj v slučke For Next vo VBA.

Môžete zadať, koľkokrát chcete, aby sa slučka spustila, a tiež určiť, čo má kód robiť pri každom spustení slučky.

Nasleduje syntax slučky For Next:

For Counter = Začiatok až koniec [Hodnota kroku] [Blok kódu na vykonanie] Ďalší [počítadlo]

V slučke For Next môžete použiť Counter (alebo ľubovoľnú premennú), ktorá bude použitá na spustenie cyklu. Toto počítadlo vám umožňuje spustiť túto slučku požadovaný počet krát.

Ak napríklad chcem pridať prvých 10 kladných celých čísel, potom by moja hodnota počítadla bola od 1 do 10.

Pozrime sa na niekoľko príkladov, aby sme lepšie pochopili, ako funguje slučka For Next.

Príklad 1 - Sčítanie prvých 10 kladných celých čísel

Nasleduje kód, ktorý pridá prvých 10 kladných celých čísel pomocou slučky For Next.

Potom sa zobrazí okno so správou zobrazujúce súčet týchto čísel.

Podčísla pridaných čísel () Dim Celkom ako celé číslo Dim Počítať ako celé číslo Celkom = 0 pre počet = 1 až 10 celkom = celkom + počet Ďalší počet MsgBox Celkový koniec Sub

V tomto kóde je hodnota Total nastavená na 0, než sa dostanete do slučky For Next.

Akonáhle sa dostane do slučky, uchováva celkovú hodnotu za každou slučkou. Takže po prvej slučke, keď je počítadlo 1, hodnota „Celková“ sa stane 1 a po druhej slučke sa stane 3 (1+2) atď.

A nakoniec, keď sa slučka skončí, premenná „Total“ má súčet prvých 10 kladných celých čísel.

MsgBox potom jednoducho zobrazí výsledok v okne správy.

Príklad 2 - Pridanie prvých 5 párnych pozitívnych čísel

Ak chcete zhrnúť prvých päť párnych kladných celých čísel (tj. 2,4,6,8 a 10), potrebujete podobný kód s podmienkou, aby ste brali do úvahy iba párne čísla a nepárne čísla ignorovali.

Tu je kód, ktorý to urobí:

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

Všimnite si toho, že sme začali počítať hodnotu od 2 a tiež sme použili ‘Krok 2‘.

Keď použijete 'Krok 2', hovorí kódu, aby zvýšil hodnotu „Počet“ o 2 pri každom spustení slučky.

Hodnota Count teda začína od 2 a potom sa stáva 4, 6, 8 a 10, keď dochádza k opakovaniu.

POZNÁMKA: Ďalším spôsobom, ako to urobiť, je spustiť cyklus od 1 do 10 a v rámci cyklu skontrolovať, či je číslo párne alebo nepárne. Použitie Stepu je v tomto prípade však efektívnejším spôsobom, pretože nevyžaduje, aby sa slučka spustila 10 -krát, ale iba 5 -krát.

Hodnota kroku môže byť aj záporná. V takom prípade čítač začína na vyššej hodnote a stále sa znižuje o zadanú hodnotu kroku.

Príklad 3 - Zadanie sériového čísla do vybraných buniek

Cyklus For Next môžete použiť aj na prechádzanie zbierkou predmetov (napríklad buniek alebo pracovných hárkov alebo zošitov),

Tu je príklad, ktorý rýchlo zadáva sériové čísla do všetkých vybratých buniek.

Sub EnterSerialNumber () Dim Rng as Range Dim Counter As Integer Dim RowCount As Integer Set Rng = Selection RowCount = Rng.Rows.Count for Counter = 1 To RowCount ActiveCell.Offset (Counter - 1, 0) .Value = Counter Next Counter End Sub

Vyššie uvedený kód najskôr spočíta počet vybraných riadkov a potom priradí túto hodnotu premennej RowCount. Potom spustíme slučku od „1 do RowCount“.

Upozorňujeme, že pretože výberom môže byť ľubovoľný počet riadkov, nastavili sme premennú Rng na výber (s riadkom „Nastaviť Rng = výber“). Teraz môžeme použiť premennú „Rng“ na odkaz na výber v našom kóde.

Príklad 4 - Chráňte všetky pracovné hárky v aktívnom zošite

Pomocou slučky „Ďalej“ môžete prejsť všetkými pracovnými listami v aktívnom zošite a chrániť (alebo odomknúť) každý z pracovných hárkov.

Nasleduje kód, ktorý to urobí:

Sub ProtectWorksheets () Dim i As integer For i = 1 to ActiveWorkbook.Worksheets.Count worksheets (i) .Protect Next i End Sub

Vyššie uvedený kód počíta počet hárkov pomocou ActiveWorkbook.Worksheets.Count. To hovorí VBA, koľkokrát je potrebné slučku spustiť.

V každom prípade sa odkazuje na I -tý zošit (pomocou pracovných hárkov (i)) a chráni ho.

Rovnaký kód môžete použiť aj na zrušenie ochrany pracovných hárkov. Stačí zmeniť riadok Pracovné listy (i). Chrániť do Pracovné listy (i) .UnProtect.

Vnorené slučky „Pre ďalšie“

Na vykonanie komplexnejšej automatizácie v programe Excel môžete použiť vnorené slučky „Ďalej“. Vnorená slučka „For Next“ by znamenala, že v slučke „For Next“ je slučka „For Next“.

Ukážem vám, ako to použiť, na príklade.

Predpokladajme, že mám v systéme otvorených 5 pracovných zošitov a chcem chrániť všetky pracovné listy vo všetkých týchto zošitoch.

Nasleduje kód, ktorý to urobí:

Podchránkové pracovné listy () Dim i ako celé číslo Dim j ako celé číslo pre i = 1 do zošitov. Počítať pre j = 1 do pracovných zošitov (i). Pracovné listy. Počítať zošity (i). Pracovné listy (j). Chrániť ďalšie j ďalšie i Ukončiť sub

Vyššie uvedené je vnorená slučka For Next, pretože sme použili jednu slučku For Next v rámci druhej.

Výpisy „EXIT For“ v sekcii For Next Loops

Príkaz „Exit For“ vám umožňuje úplne opustiť slučku „For Next“.

Môžete ho použiť v prípadoch, keď chcete, aby sa slučka For Next skončila, keď je splnená určitá podmienka.

Zoberme si príklad, kde máte v stĺpci A množinu čísel a chcete všetky záporné čísla zvýrazniť červeným písmom. V tomto prípade musíme analyzovať hodnotu každej bunky a potom zodpovedajúcim spôsobom zmeniť farbu písma.

Aby bol však kód efektívnejší, musíme najskôr skontrolovať, či sú v zozname nejaké záporné hodnoty alebo nie. Ak neexistujú žiadne záporné hodnoty, môžeme pomocou príkazu Exit For jednoducho vyjsť z kódu.

Nasleduje kód, ktorý to robí:

Sub HghlightNegative () Dim Rng As Range Set Rng = Range ("A1", Range ("A1"). End (xlDown)) Counter = Rng.Count For i = 1 to Counter If WorksheetFunction.Min (Rng)> = 0 Potom Ukončite pre If Rng (i). Hodnota <0 Potom Rng (i) .Font.Color = vbČervené Ďalej i Koniec Sub

Keď použijete príkaz „Exit For“ vo vnorenej slučke „For Next“, vyjde zo slučky, v ktorej sa vykoná, a pokračuje po spustení nasledujúceho riadku v kóde za slučkou For Next.

V nižšie uvedenom kóde vás napríklad príkaz „Ukončiť pre“ dostane von z vnútornej slučky, ale vonkajšia slučka bude naďalej fungovať.

Sub SampleCode () For i = 1 to 10 For j = 1 to 10 Exit For Next J Next i End Sub

Vykonajte slučku

Cyklus „Do While“ vám umožňuje skontrolovať podmienku a spustiť slučku, pokiaľ je táto podmienka splnená (alebo je PRAVDA).

V slučke Do While Loop sú dva typy syntaxe.

Vykonajte slučku [Kým je podmienka] [Blok kódu na vykonanie]

a

Vykonajte [Blok kódu na vykonanie] Smyčku [Kým je stav]

Rozdiel medzi týmito dvoma je ten, že v prvom sa najskôr skontroluje podmienka While pred vykonaním akéhokoľvek bloku kódu a v druhom prípade sa najskôr vykoná blok kódu a potom sa skontroluje podmienka While.

To znamená, že ak je v obidvoch prípadoch podmienka While nepravda, kód sa v druhom prípade stále spustí najmenej raz (pretože podmienka „Kým“ je skontrolovaná potom, čo bol kód raz vykonaný).

Teraz sa pozrime na niekoľko príkladov použitia slučiek Do While vo VBA.

Príklad 1 - Pridajte prvých 10 pozitívnych celých čísel pomocou VBA

Predpokladajme, že chcete pridať prvých desať kladných celých čísel pomocou slučky Do While vo VBA.

Na to môžete použiť slučku Do While, kým nebude ďalšie číslo menšie alebo rovné 10. Len čo bude číslo väčšie ako 1o, vaša slučka sa zastaví.

Tu je kód VBA, ktorý spustí túto slučku Do While a zobrazí výsledok v okne správy.

Sub AddFirst10PositiveIntegers () Dim i As Integer i = 1 Do While i <= 10 Result = Result + i i = i + 1 Loop MsgBox Result End Sub

Vyššie uvedená slučka pokračuje v práci, kým hodnota „i“ nedosiahne 11. Hneď ako sa stane 11, slučka sa skončí (pretože podmienka Kým sa stane nepravdivou).

V rámci cyklu sme použili výslednú premennú, ktorá obsahuje konečnú hodnotu Po dokončení slučky sa v okne so správou zobrazí hodnota premennej „Výsledok“.

Príklad 2 - Zadajte dátumy pre aktuálny mesiac

Povedzme, že chcete zadať všetky dátumy aktuálneho mesiaca do stĺpca pracovného hárka.

Môžete to urobiť pomocou nasledujúceho kódu cyklu Do While:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Year (Date), Month (Date), 1) Do While Month (CMDate) = Month (Date) Range ("A1"). Offset (i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 koniec slučky Sub

Vyššie uvedený kód by zadal všetky dátumy do prvého stĺpca pracovného hárka (od A1). Slučky pokračujú, kým sa hodnota mesiaca premennej „CMDate“ nezhoduje s aktuálnym mesiacom.

Príkaz Exit Do

Na výstup zo slučky môžete použiť príkaz Exit Do. Hneď ako kód vykoná riadok „Exit Do“, vyjde zo slučky Do While a odovzdá ovládací prvok ďalšiemu riadku hneď za slučkou.

Ak napríklad chcete zadať iba prvých 10 dátumov, môžete slučku opustiť hneď po zadaní prvých 10 dátumov.

Nasledujúci kód to urobí:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Year (Date), Month (Date), 1) Do While Month (CMDate) = Month (Date) Range ("A1"). Offset (i, 0) = CMDate i = i + 1 Ak i> = 10 Potom skončiť Do CMDate = CMDate + 1 koniec slučky Sub

Vo vyššie uvedenom kóde sa príkaz IF používa na kontrolu, či je hodnota i väčšia ako 10 alebo nie. Hneď ako sa hodnota „i“ stane 10, vykoná sa príkaz Exit Do a slučka sa skončí.

Robiť do slučky

Smyčky „Do Do“ sú veľmi podobné slučkám „Do While“.

V poli „Do While“ sa slučka spustí, kým nie je splnená daná podmienka, zatiaľ čo v časti „Do While“ sa bude slučka opakovať, kým nebude splnená zadaná podmienka.

V slučke Do Do cyklu sú dva typy syntaxe.

Vykonajte slučku [Do podmienky] [Blok kódu na spustenie]

a

Vykonajte [Blok kódu na vykonanie] Smyčku [Do podmienky]

Rozdiel medzi týmito dvoma je v tom, že v prvom sa najskôr skontroluje podmienka Before pred vykonaním akéhokoľvek bloku kódu a v druhom prípade sa najskôr vykoná blok kódu a potom sa skontroluje podmienka Before.

To znamená, že ak je podmienka DO PRAVDA v oboch prípadoch, kód sa spustí najmenej raz v druhom prípade (pretože podmienka „Do“ sa kontroluje potom, čo bol kód vykonaný raz).

Teraz sa pozrime na niekoľko príkladov použitia slučiek Do Before vo VBA.

Poznámka: Všetky príklady pre funkciu Do Do sú rovnaké ako pre aplikáciu Do While. Tieto boli upravené tak, aby vám ukázali, ako funguje slučka Do Do.

Príklad 1 - Pridajte prvých 10 pozitívnych celých čísel pomocou VBA

Predpokladajme, že chcete pridať prvých desať kladných celých čísel pomocou slučky Do until vo VBA.

Aby ste to urobili, musíte spustiť slučku, kým nebude ďalšie číslo menšie alebo rovné 10. Len čo bude číslo väčšie ako 1o, vaša slučka sa zastaví.

Tu je kód VBA, ktorý spustí túto slučku a zobrazí výsledok v okne správy.

Sub AddFirst10PositiveIntegers () Dim i As Integer i = 1 Do until i> 10 Result = Result + i i = i + 1 Loop MsgBox Result End Sub

Vyššie uvedená slučka pokračuje v práci, kým hodnota „i“ nie je 11. Hneď ako sa stane 11, slučka sa skončí (pretože podmienka „Do“ sa stane Pravdou).

Príklad 2 - Zadajte dátumy pre aktuálny mesiac

Povedzme, že chcete zadať všetky dátumy aktuálneho mesiaca do stĺpca pracovného hárka.

Môžete to urobiť pomocou nasledujúceho kódu cyklu Do Do:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Year (Date), Month (Date), 1) Do into Month (CMDate) Month (Date) Range ("A1"). Offset ( i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 koniec slučky Sub

Vyššie uvedený kód by zadal všetky dátumy do prvého stĺpca pracovného hárka (od A1). Smyčka pokračuje, kým sa mesiac premennej CMDate nerovná mesiacu aktuálneho mesiaca.

Príkaz Exit Do

Na výstup zo slučky môžete použiť príkaz „Exit Do“.

Hneď ako kód vykoná riadok „Exit Do“, vyjde zo slučky Do Do a odovzdá ovládací prvok ďalšiemu riadku hneď za slučkou.

Napríklad, ak chcete zadať iba prvých 10 dátumov, môžete cyklus opustiť ihneď po zadaní prvých 10 dátumov.

Nasledujúci kód to urobí:

Sub EnterCurrentMonthDates () Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial (Year (Date), Month (Date), 1) Do into Month (CMDate) Month (Date) Range ("A1"). Offset ( i, 0) = CMDate i = i + 1 Ak i> = 10 Potom skončiť Do CMDate = CMDate + 1 koniec slučky

Vo vyššie uvedenom kóde, akonáhle sa hodnota „i“ stane 10, spustí sa príkaz Exit Do a slučka sa skončí.

Pre každý

Vo VBA môžete prechádzať sadou zbierok pomocou slučky „Pre každého“.

Tu je niekoľko príkladov zbierok v programe Excel VBA:

• Zbierka všetkých otvorených zošitov.
• Zbierka všetkých pracovných listov v pracovnom zošite.
• Súbor všetkých buniek v rozsahu vybraných buniek.
• Zbierka všetkých tabuliek alebo tvarov v zošite.

Pomocou slučky „Za každý“ môžete prejsť každým z predmetov v zbierke a vykonať s ním nejakú akciu.

Môžete napríklad prejsť všetkými pracovnými listami v zošite a chrániť ich, alebo môžete prejsť všetkými bunkami vo výbere a zmeniť formátovanie.

So slučkou „Za každého“ (tiež označovanou ako slučka „Za každý ďalší“) nemusíte vedieť, koľko predmetov sa nachádza v zbierke.

Cyklus „Pre každého“ by automaticky prešiel každým objektom a vykonal uvedenú akciu. Ak napríklad chcete chrániť všetky pracovné hárky v zošite, kód by bol rovnaký, či máte pracovný zošit s 3 pracovnými listami alebo 30 pracovnými listami.

Tu je syntax slučky For Every-Next v programe Excel VBA.

Pre každý prvok v kolekcii [Blok kódu na vykonanie] Ďalší [prvok]

Teraz sa pozrime na niekoľko príkladov použitia pre každú slučku v programe Excel.

Príklad 1 - Prejdite si všetky pracovné listy v zošite (a chráňte ich)

Predpokladajme, že máte pracovný zošit, v ktorom chcete chrániť všetky pracovné hárky.

Nižšie uvedená slučka For-Next-Next to môže urobiť jednoducho:

Sub ProtectSheets () Dim ws as worksheet for each ws in ActiveWorkbook.Worksheets ws.Protect Next ws End Sub

Vo vyššie uvedenom kóde sme definovali premennú „ws“ ako objekt pracovného hárka. VBA to hovorí, že „ws“ by sa malo v kóde interpretovať ako objekt pracovného hárka.

Teraz použijeme príkaz „Pre každého“, aby sme prešli každé „ws“ (čo je objekt pracovného hárka) v kolekcii všetkých pracovných hárkov v aktívnom zošite (daný programom ActiveWorkbook.Worksheets).

Všimnite si toho, že na rozdiel od iných slučiek, kde sme sa pokúsili chrániť všetky pracovné hárky v zošite, tu si nemusíme robiť starosti, koľko pracovných hárkov je v zošite.

Na spustenie cyklu ich nepotrebujeme počítať. Pre každú slučku zaisťuje, že všetky objekty sú analyzované jeden po druhom.

Príklad 2 - Prejdite si všetky otvorené zošity (a uložte všetky)

Ak pracujete s viacerými zošitmi súčasne, môže sa vám hodiť možnosť uložiť všetky tieto zošity naraz.

Nižšie uvedený kód VBA to môže urobiť za nás:

Sub SaveAllWorkbooks () Dim wb as Workbook for each wb in Workbooks wb. Save Next wb End Sub

Upozorňujeme, že v tomto kóde sa nezobrazí výzva na uloženie zošita na konkrétne miesto (ak ho ukladáte prvýkrát).

Uloží ho do predvoleného priečinka (v mojom prípade to bol priečinok „Dokumenty“). Tento kód funguje najlepšie vtedy, keď sú tieto súbory už uložené a robíte zmeny a chcete rýchlo uložiť všetky zošity.

Príklad 3 - Prejdite všetkými bunkami vo výbere (zvýraznite záporné hodnoty)

Pomocou slučky „Pre každého“ môžete prechádzať všetkými bunkami v konkrétnom rozsahu alebo vo vybratom rozsahu.

To môže byť užitočné, keď chcete analyzovať každú bunku a na základe nej vykonať akciu.

Nižšie je napríklad kód, ktorý prejde všetkými bunkami vo výbere a zmení farbu buniek so zápornými hodnotami na červenú.

Sub HighlightNegativeCells () Dim Cll as Range for each Cll in Selection If Cll.Value <0 Then Cll.Interior.Color = vbRed End If Next Cll End Sub

(Všimnite si, že som použil Cll ako krátky názov premennej pre Cell. Ako názvy premenných je vhodné nepoužívať názvy objektov, ako sú napríklad Sheets alebo Range)

Vo vyššie uvedenom kóde slučka For Every-Next prechádza zbierkou buniek vo výbere. Príkaz IF sa používa na identifikáciu, či je hodnota bunky záporná alebo nie. V prípade, že je, bunka dostane červenú vnútornú farbu, inak prejde do ďalšej bunky.

V prípade, že nemáte výber a namiesto toho chcete, aby VBA vybral všetky vyplnené bunky v stĺpci, počínajúc konkrétnou bunkou (rovnako ako na výber všetkých vyplnených buniek používame kombináciu klávesov Control + Shift + šípka nadol), môžete použite nasledujúci kód:

Sub HighlightNegativeCells () Dim Cll As Range Dim Rng As Range Set Rng = Range ("A1", Range ("A1"). End (xlDown)) For each Cll In Rng If Cll.Value <0 Then Cll.Interior.Color = vbČervený koniec, ak ďalší Cll Koniec pod

Vo vyššie uvedenom príklade nezáleží na tom, koľko naplnených buniek je. Začne sa od bunky A1 a zanalyzujú sa všetky susediace vyplnené bunky v stĺpci.

Tiež nemusíte mať vybratú bunku A1. Môžete mať vybratú akúkoľvek vzdialenú bunku a keď sa kód spustí, bude stále brať do úvahy všetky bunky v stĺpci A (od A1) a vymaže negatívne bunky.

Vyhlásenie „Exit For“

Na výstup zo slučky môžete použiť príkaz „Exit For“ v slučke For Every-Next. Obvykle sa to robí v prípade, že je splnená konkrétna podmienka.

Napríklad v príklade 3, keď prechádzame sadou buniek, môže byť efektívnejšie skontrolovať, či existujú nejaké záporné hodnoty alebo nie. V prípade, že neexistujú žiadne záporné hodnoty, môžeme slučku jednoducho opustiť a ušetriť nejaký čas na spracovanie VBA.

Nasleduje kód VBA, ktorý to urobí:

Sub HighlightNegativeCells () Dim Cll as Range for each Cll in Selection If WorksheetFunction.Min (Selection)> = 0 then Exit For If Cll.Value <0 Then Cll.Interior.Color = vbRed End If Next Cll End Sub

Kam vložiť kód VBA

Zaujíma vás, kam smeruje kód VBA vo vašom zošite programu Excel?

Excel má backend VBA nazývaný editor VBA. Kód musíte skopírovať a vložiť do okna kódu modulu VB Editor.

Tu sú kroky, ako to urobiť:

1. Prejdite na kartu Vývojár.
2. Kliknite na možnosť Visual Basic. Tým sa otvorí editor VB v backende.
3. Na table Project Explorer v editore VB kliknite pravým tlačidlom myši na ľubovoľný objekt zošita, do ktorého chcete vložiť kód. Ak sa Project Explorer nezobrazuje, choďte na kartu Zobraziť a kliknite na Project Explorer.
4. Prejdite na položku Vložiť a kliknite na modul. Tým sa vloží objekt modulu do vášho zošita.
5. Skopírujte a prilepte kód do okna modulu.