Excel VBA-loops: voor volgende, doe terwijl, doe tot, voor elk (met voorbeelden)

Om het maximale uit Excel en VBA te halen, moet u weten hoe u lussen efficiënt kunt gebruiken.

In VBA kun je met lussen een reeks objecten/waarden doorlopen en deze één voor één analyseren. U kunt ook voor elke lus specifieke taken uitvoeren.

Hier is een eenvoudig voorbeeld van het gebruik van VBA-lussen in Excel.

Stel dat u een dataset heeft en u wilt alle cellen in even rijen markeren. U kunt een VBA-lus gebruiken om door het bereik te gaan en elk celrijnummer te analyseren. Als het egaal blijkt te zijn, geef je het een kleur, anders laat je het zoals het is.

Dit is natuurlijk heel eenvoudig te herhalen in Excel VBA (en u kunt dit ook doen met voorwaardelijke opmaak).

In het echte leven kun je veel meer doen met VBA-loops in Excel die je kunnen helpen bij het automatiseren van taken.

Hier zijn nog enkele praktische voorbeelden waarbij VBA-lussen nuttig kunnen zijn:

• Loop door een reeks cellen en analyseer elke cel (markeer cellen met een specifieke tekst erin).
• Door alle werkbladen bladeren en er iets mee doen (zoals beveiligen/de beveiliging opheffen).
• Loop door alle geopende werkmappen (en sla elke werkmap op of sluit alle behalve de actieve werkmap).
• Loop door alle tekens in een cel (en extraheer het numerieke deel uit een tekenreeks).
• Loop door alle waarden een array.
• Loop door alle grafieken/objecten (en geef een rand of verander de achtergrondkleur).

Om nu het beste lussen in Excel VBA te gebruiken, moet u weten wat de verschillende soorten zijn en de juiste syntaxis van elk.

In deze zelfstudie laat ik verschillende soorten Excel VBA-loops zien en behandel ik een paar voorbeelden voor elke lus

Opmerking: dit wordt een enorme tutorial, waar ik zal proberen elke VBA-lus in enig detail te behandelen. Ik raad u aan een bladwijzer voor deze pagina te maken voor toekomstig gebruik.

Als je geïnteresseerd bent om VBA op een gemakkelijke manier te leren, bekijk dan mijn Online Excel VBA-training.

Voor volgende lus

Met de 'For Next'-lus kun je een bepaald aantal keren door een codeblok gaan.

Als ik u bijvoorbeeld vraag om de gehele getallen van 1 tot 10 handmatig toe te voegen, zou u de eerste twee getallen toevoegen, dan het derde getal toevoegen aan het resultaat, dan het vierde getal toevoegen aan het resultaat, enzovoort…

Is het niet?

Dezelfde logica wordt gebruikt in de For Next-lus in VBA.

U specificeert hoe vaak u wilt dat de lus wordt uitgevoerd en geeft ook op wat u wilt dat de code elke keer dat de lus wordt uitgevoerd, doet.

Hieronder staat de syntaxis van de For Next-lus:

Voor Teller = Begin tot einde [Stapwaarde] [Codeblok om uit te voeren] Volgende [teller]

In de For Next-lus kunt u een teller (of een willekeurige variabele) gebruiken die wordt gebruikt om de lus uit te voeren. Met deze teller kunt u deze lus een bepaald aantal keren uitvoeren.

Als ik bijvoorbeeld de eerste 10 positieve gehele getallen wil optellen, dan is mijn tellerwaarde van 1 tot 10.

Laten we een paar voorbeelden bekijken om beter te begrijpen hoe For Next-lus werkt.

Voorbeeld 1 - De eerste 10 positieve gehele getallen optellen

Hieronder staat de code die de eerste 10 positieve gehele getallen toevoegt met behulp van een For Next-lus.

Er wordt dan een berichtvenster weergegeven met de som van deze getallen.

Sub AddNumbers() Dim Totaal As Integer Dim Telling As Integer Totaal = 0 Voor Aantal = 1 Tot 10 Totaal = Totaal + Aantal Volgende Telling MsgBox Totaal Einde Sub

In deze code wordt de waarde van Total ingesteld op 0 voordat u in de For Next-lus komt.

Zodra het in de lus komt, behoudt het de totale waarde na elke lus. Dus na de eerste lus, wanneer Teller 1 is, wordt de waarde 'Totaal' 1, en na de tweede lus wordt het 3 (1+2), enzovoort.

En tot slot, wanneer de lus eindigt, heeft de variabele 'Totaal' de som van de eerste 10 positieve gehele getallen.

Een MsgBox toont dan eenvoudig het resultaat in een berichtvenster.

Voorbeeld 2 - De eerste 5 even positieve gehele getallen toevoegen

Om de eerste vijf even positieve gehele getallen op te tellen (d.w.z. 2,4,6,8 en 10), hebt u een vergelijkbare code nodig met een voorwaarde om alleen de even getallen te beschouwen en de oneven getallen te negeren.

Hier is een code die het zal doen:

Sub AddEvenNumbers() Dim Total As Integer Dim Count As Integer Totaal = 0 Voor Aantal = 2 tot 10 Stap 2 Totaal = Totaal + Aantal Volgende telling MsgBox Totaal Einde Sub

Merk op dat we de telwaarde vanaf 2 zijn begonnen en ook 'Stap 2‘.

Wanneer u 'Stap 2', vertelt het de code om de 'Count'-waarde met 2 te verhogen elke keer dat de lus wordt uitgevoerd.

Dus de Count-waarde begint bij 2 en wordt dan 4, 6, 8 en 10 als de lus plaatsvindt.

OPMERKING: Een andere manier om dit te doen is om de lus van 1 tot 10 te laten lopen en binnen de lus te controleren of het getal even of oneven is. Het gebruik van Step is in dit geval echter een efficiëntere manier omdat de lus niet 10 keer hoeft te worden uitgevoerd, maar slechts 5 keer.

De Step-waarde kan ook negatief zijn. In dat geval begint de teller met een hogere waarde en wordt steeds verlaagd met de opgegeven stapwaarde.

Voorbeeld 3 - Serienummer invoeren in de geselecteerde cellen

U kunt de For Next-lus ook gebruiken om door een verzameling objecten te gaan (zoals cellen of werkbladen of werkmappen),

Hier is een voorbeeld dat snel serienummers invoert in alle geselecteerde cellen.

Sub EnterSerialNumber() Dim Rng As Range Dim Counter As Integer Dim RowCount As Integer Set Rng = Selectie RowCount = Rng.Rows.Count For Counter = 1 To RowCount ActiveCell.Offset (Teller - 1, 0). Waarde = Teller Volgende Teller Einde Sub

De bovenstaande code telt eerst het aantal geselecteerde rijen en wijst deze waarde vervolgens toe aan de variabele RowCount. We lopen dan de lus van '1 naar RowCount'.

Merk ook op dat aangezien selectie een willekeurig aantal rijen kan zijn, we de variabele Rng op Selectie hebben ingesteld (met de regel 'Set Rng = Selection'). Nu kunnen we de variabele 'Rng' gebruiken om naar de selectie in onze code te verwijzen.

Voorbeeld 4 - Bescherm alle werkbladen in de actieve werkmap

U kunt de 'For Next'-lus gebruiken om alle werkbladen in de actieve werkmap te doorlopen en elk van de werkbladen te beveiligen (of de beveiliging op te heffen).

Hieronder is de code die dit zal doen:

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

De bovenstaande code telt het aantal bladen met behulp van ActiveWorkbook.Worksheets.Count. Dit vertelt VBA hoe vaak de lus moet worden uitgevoerd.

In elk geval verwijst het naar de Ith-werkmap (met behulp van Worksheets (i)) en beschermt deze.

U kunt dezelfde code ook gebruiken om werkbladen ongedaan te maken. Verander gewoon de lijn Werkbladen(i).Beschermen tot Werkbladen(i).Onbeschermen.

Geneste 'For Next'-lussen

U kunt geneste 'For Next'-lussen gebruiken om complexere automatisering in Excel te krijgen. Een geneste 'For Next'-lus zou betekenen dat er een 'For Next'-lus is binnen een 'For Next'-lus.

Ik zal u laten zien hoe u dit kunt gebruiken aan de hand van een voorbeeld.

Stel, ik heb 5 werkmappen geopend in mijn systeem en ik wil alle werkbladen in al deze werkmappen beschermen.

Hieronder is de code die dit zal doen:

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

Het bovenstaande is een geneste For Next-lus omdat we de ene For Next-lus in een andere hebben gebruikt.

'EXIT For'-statements in For Next Loops

Met de 'Exit For'-instructie kunt u de 'For Next'-lus volledig verlaten.

U kunt het gebruiken in gevallen waarin u wilt dat de For Next-lus eindigt wanneer aan een bepaalde voorwaarde is voldaan.

Laten we een voorbeeld nemen waarbij u een reeks getallen in kolom A hebt en u alle negatieve getallen in rood lettertype wilt markeren. In dit geval moeten we elke cel analyseren op zijn waarde en vervolgens de letterkleur dienovereenkomstig wijzigen.

Maar om de code efficiënter te maken, kunnen we eerst controleren of er negatieve waarden in de lijst staan ​​of niet. Als er geen negatieve waarden zijn, kunnen we de Exit For gebruiken om gewoon uit de code te komen.

Hieronder is de code die dit doet:

Sub HghlightNegative() Dim Rng As Range Set Rng = Range("A1", Range("A1").End(xlDown)) Teller = Rng.Count For i = 1 To Counter If WorksheetFunction.Min(Rng) >= 0 Dan Afsluiten For If Rng(i).Waarde <0 Dan Rng(i).Font.Color = vbRed Volgende i End Sub

Wanneer u de instructie 'Exit For' binnen een geneste 'For Next'-lus gebruikt, komt deze uit de lus waarin deze wordt uitgevoerd en voert de volgende regel in de code na de For Next-lus uit.

In de onderstaande code zal de instructie 'Exit For' u bijvoorbeeld uit de binnenste lus halen, maar de buitenste lus blijft werken.

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

Do While Loop

Met een 'Do While'-lus kunt u controleren op een voorwaarde en de lus uitvoeren terwijl aan die voorwaarde is voldaan (of WAAR is).

Er zijn twee soorten syntaxis in de Do While Loop.

Doe [Tijdens voorwaarde] [Codeblok om uit te voeren] Loop

en

Doe [Code block to Execute] Loop [Terwijl voorwaarde]

Het verschil tussen deze twee is dat in het eerste geval eerst de While-voorwaarde wordt gecontroleerd voordat een codeblok wordt uitgevoerd, en in het tweede geval het codeblok eerst wordt uitgevoerd en vervolgens de While-voorwaarde wordt gecontroleerd.

Dit betekent dat als de While-voorwaarde False is voor beide gevallen, de code in het tweede geval nog steeds ten minste één keer wordt uitgevoerd (omdat de voorwaarde 'While' wordt gecontroleerd nadat de code eenmaal is uitgevoerd).

Laten we nu enkele voorbeelden bekijken van het gebruik van Do While-lussen in VBA.

Voorbeeld 1 - Voeg de eerste 10 positieve gehele getallen toe met VBA

Stel dat u de eerste tien positieve gehele getallen wilt toevoegen met behulp van de Do While-lus in VBA.

Om dit te doen, kun je de Do While-lus gebruiken totdat het volgende getal kleiner is dan of gelijk is aan 10. Zodra het getal groter is dan 1o, stopt je lus.

Hier is de VBA-code die deze Do While-lus uitvoert en het resultaat in een berichtvenster toont.

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

De bovenstaande lus blijft werken totdat de waarde van 'i' 11 wordt. Zodra deze 11 wordt, eindigt de lus (omdat de While-voorwaarde False wordt).

Binnen de lus hebben we een resultaatvariabele gebruikt die de uiteindelijke waarde bevat. Zodra de lus is voltooid, toont een berichtvenster de waarde van de variabele 'Resultaat'.

Voorbeeld 2 - Voer datums in voor de huidige maand

Stel dat u alle datums van de huidige maand in een werkbladkolom wilt invoeren.

U kunt dat doen door de volgende Do While-luscode te gebruiken:

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 Loop End Sub

De bovenstaande code zou alle datums in de eerste kolom van het werkblad invoeren (vanaf A1). De lussen gaan door totdat de maandwaarde van de variabele 'CMDate' overeenkomt met die van de huidige maand.

Afsluiten Do-verklaring

U kunt de Exit Do-instructie gebruiken om uit de lus te komen. Zodra de code de regel 'Exit Do' uitvoert, komt deze uit de Do While-lus en geeft de besturing direct na de lus door aan de volgende regel.

Als u bijvoorbeeld alleen de eerste 10 datums wilt invoeren, kunt u de lus verlaten zodra de eerste 10 datums zijn ingevoerd.

De onderstaande code doet dit:

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 If i >= 10 Then Exit Do CMDate = CMDate + 1 Loop End Sub

In de bovenstaande code wordt de IF-instructie gebruikt om te controleren of de waarde van i groter is dan 10 of niet. Zodra de waarde van 'i' 10 wordt, wordt het Exit Do-statement uitgevoerd en eindigt de lus.

Doen tot lus

'Do Until'-loops lijken erg op de 'Do While'-loops.

In 'Do While' loopt de lus totdat aan de gegeven voorwaarde is voldaan, terwijl in 'Do Until' de lus loopt totdat aan de opgegeven voorwaarde is voldaan.

Er zijn twee soorten syntaxis in de Do Until Loop.

Doe [Tot voorwaarde] [Codeblok om uit te voeren] Loop

en

Doe [Code block to Execute] Loop [Tot voorwaarde]

Het verschil tussen deze twee is dat in het eerste geval eerst de Tot-voorwaarde wordt gecontroleerd voordat een codeblok wordt uitgevoerd, en in het tweede geval het codeblok eerst wordt uitgevoerd en vervolgens de Tot-voorwaarde wordt gecontroleerd.

Dit betekent dat als de Tot-voorwaarde TRUE is in beide gevallen, de code in het tweede geval nog steeds ten minste één keer wordt uitgevoerd (omdat de voorwaarde 'Tot' wordt gecontroleerd nadat de code eenmaal is uitgevoerd).

Laten we nu enkele voorbeelden bekijken van het gebruik van Do Until-lussen in VBA.

Opmerking: alle voorbeelden voor Do Until zijn dezelfde als die voor Do While. Deze zijn aangepast om u te laten zien hoe de Do Until-lus werkt.

Voorbeeld 1 - Voeg de eerste 10 positieve gehele getallen toe met VBA

Stel dat u de eerste tien positieve gehele getallen wilt toevoegen met behulp van de Do Until-lus in VBA.

Om dit te doen, moet je de lus laten lopen totdat het volgende getal kleiner is dan of gelijk is aan 10. Zodra het getal groter is dan 1o, stopt je lus.

Hier is de VBA-code die deze lus zal uitvoeren en het resultaat in een berichtvenster zal tonen.

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

De bovenstaande lus blijft werken totdat de waarde van 'i' 11 wordt. Zodra deze 11 wordt, eindigt de lus (omdat de voorwaarde 'Tot' True wordt).

Voorbeeld 2 - Voer datums in voor de huidige maand

Stel dat u alle datums van de huidige maand in een werkbladkolom wilt invoeren.

U kunt dat doen door de volgende Do Until-luscode te gebruiken:

Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do Until Month(CMDate) Month(Date) Range("A1").Offset( i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub

De bovenstaande code zou alle datums in de eerste kolom van het werkblad invoeren (vanaf A1). De lus gaat door totdat de maand van variabele CMDate niet gelijk is aan die van de huidige maand.

Afsluiten Do-verklaring

U kunt de instructie 'Exit Do' gebruiken om uit de lus te komen.

Zodra de code de regel 'Exit Do' uitvoert, komt deze uit de Do Until-lus en geeft de besturing direct na de lus door aan de volgende regel.

Als u bijvoorbeeld alleen de eerste 10 datums wilt invoeren, kunt u de lus verlaten zodra de eerste 10 datums zijn ingevoerd.

De onderstaande code doet dit:

Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do Until Month(CMDate) Month(Date) Range("A1").Offset( i, 0) = CMDate i = i + 1 If i >= 10 Then Exit Do CMDate = CMDate + 1 Loop End Sub

In de bovenstaande code, zodra de waarde van 'i' 10 wordt, wordt Exit Do-instructie uitgevoerd en eindigt de lus.

voor elk

In VBA kun je een reeks verzamelingen doorlopen met behulp van de 'For Each'-lus.

Hier zijn enkele voorbeelden van verzamelingen in Excel VBA:

• Een verzameling van alle open werkmappen.
• Een verzameling van alle werkbladen in een werkmap.
• Een verzameling van alle cellen in een reeks geselecteerde cellen.
• Een verzameling van alle grafieken of vormen in de werkmap.

Met behulp van de 'For Each'-lus kun je door elk van de objecten in een verzameling gaan en er een actie op uitvoeren.

U kunt bijvoorbeeld alle werkbladen in een werkmap doorlopen en deze beveiligen, of u kunt alle cellen in de selectie doorlopen en de opmaak wijzigen.

Met de 'For Each'-lus (ook wel de 'For Each-Next'-lus genoemd), hoeft u niet te weten hoeveel objecten er in een verzameling zijn.

'For Each'-lus zou automatisch door elk object gaan en de gespecificeerde actie uitvoeren. Als u bijvoorbeeld alle werkbladen in een werkmap wilt beveiligen, is de code hetzelfde, of u nu een werkmap hebt met 3 werkbladen of 30 werkbladen.

Hier is de syntaxis van For Each-Next-lus in Excel VBA.

Voor elk element In verzameling [Code Block om uit te voeren] Volgende [element]

Laten we nu een paar voorbeelden bekijken van het gebruik van de For Each Loop in Excel.

Voorbeeld 1 - Doorloop alle werkbladen in een werkmap (en bescherm deze)

Stel dat u een werkmap hebt waarin u alle werkbladen wilt beschermen.

De onderstaande For Each-Next-lus kan dit eenvoudig doen:

Sub ProtectSheets() Dim ws als werkblad voor elke ws in ActiveWorkbook.Worksheets ws.Protect Volgende ws End Sub

In de bovenstaande code hebben we de variabele 'ws' gedefinieerd als een werkbladobject. Dit vertelt VBA dat 'ws' moet worden geïnterpreteerd als een werkbladobject in de code.

Nu gebruiken we de 'For Each'-instructie om elke 'ws' (wat een werkbladobject is) te doorlopen in de verzameling van alle werkbladen in de actieve werkmap (gegeven door ActiveWorkbook.Worksheets).

Merk op dat in tegenstelling tot andere lussen waar we hebben geprobeerd alle werkbladen in een werkmap te beschermen, we ons hier geen zorgen hoeven te maken over het aantal werkbladen in de werkmap.

We hoeven deze niet te tellen om de lus uit te voeren. For Each loop zorgt ervoor dat alle objecten één voor één worden geanalyseerd.

Voorbeeld 2 - Doorloop alle geopende werkmappen (en bewaar alles)

Als je met meerdere werkmappen tegelijk werkt, kan het handig zijn om al deze werkmappen tegelijk te kunnen bewaren.

Onderstaande VBA-code kan dit voor ons doen:

Sub SaveAllWorkbooks() Dim wb As Workbook For Each wb In Workbooks wb.Save Next wb End Sub

Houd er rekening mee dat u in deze code geen prompt krijgt waarin u wordt gevraagd om de werkmap op een specifieke locatie op te slaan (als u deze voor de eerste keer opslaat).

Het slaat het op in de standaardmap (in mijn geval was het de map 'Documenten'). Deze code werkt het beste wanneer deze bestanden al zijn opgeslagen en u wijzigingen aanbrengt en u alle werkmappen snel wilt opslaan.

Voorbeeld 3 - Doorloop alle cellen in een selectie (markeer negatieve waarden)

Met behulp van de 'For Each'-lus kunt u door alle cellen in een specifiek bereik of in het geselecteerde bereik lopen.

Dit kan handig zijn wanneer u elke cel wilt analyseren en op basis daarvan een actie wilt uitvoeren.

Hieronder staat bijvoorbeeld de code die door alle cellen in de selectie gaat en de celkleur van de cellen met negatieve waarden in rood verandert.

Sub HighlightNegativeCells() Dim Cll As Range voor elke Cll In Selectie Als Cll.Value < 0 Dan Cll.Interior.Color = vbRed End If Next Cll End Sub

(Opmerking: ik heb Cll gebruikt als een korte variabelenaam voor Cell. Het is raadzaam om geen objectnamen zoals Spreadsheets of Range als variabelenamen te gebruiken)

In de bovenstaande code doorloopt de For Each-Next-lus de verzameling cellen in de selectie. IF-instructie wordt gebruikt om te bepalen of de celwaarde negatief is of niet. In het geval dat dit het geval is, krijgt de cel een rode binnenkleur, anders gaat hij naar de volgende cel.

Als u geen selectie hebt en in plaats daarvan wilt dat VBA alle gevulde cellen in een kolom selecteert, beginnend bij een specifieke cel (net zoals we Control + Shift + pijl-omlaag gebruiken om alle gevulde cellen te selecteren), kunt u gebruik de onderstaande code:

Sub HighlightNegativeCells() Dim Cll As Range Dim Rng As Range Set Rng = Range("A1", Range("A1").End(xlDown)) Voor elke Cll In Rng Als Cll.Waarde < 0 Dan Cll.Interior.Color = vbRed End If Next Cll End Sub

In het bovenstaande voorbeeld maakt het niet uit hoeveel gevulde cellen er zijn. Het begint bij cel A1 en analyseert alle aaneengesloten gevulde cellen in de kolom.

U hoeft ook geen cel A1 geselecteerd te hebben. U kunt elke verafgelegen cel selecteren en wanneer de code wordt uitgevoerd, zal deze nog steeds alle cellen in kolom A (beginnend bij A1) beschouwen en de negatieve cellen kleuren.

'Afsluiten voor'-verklaring

U kunt de 'Exit For'-instructie in de For Each-Next-lus gebruiken om uit de lus te komen. Dit wordt meestal gedaan als aan een bepaalde voorwaarde is voldaan.

Als we bijvoorbeeld in voorbeeld 3 door een reeks cellen gaan, kan het efficiënter zijn om te controleren of er negatieve waarden zijn of niet. Als er geen negatieve waarden zijn, kunnen we eenvoudig de lus verlaten en wat VBA-verwerkingstijd besparen.

Hieronder staat de VBA-code die dit zal doen:

Sub HighlightNegativeCells() Dim Cll As Range voor elke Cll In Selectie If WorksheetFunction.Min(Selection) >= 0 Dan Afsluiten For If Cll.Value < 0 Dan Cll.Interior.Color = vbRed End If Next Cll End Sub

Waar de VBA-code te plaatsen

Vraagt ​​u zich af waar de VBA-code naartoe gaat in uw Excel-werkmap?

Excel heeft een VBA-backend, de VBA-editor. U moet de code kopiëren en plakken in het codevenster van de VB Editor-module.

Hier zijn de stappen om dit te doen:

1. Ga naar het tabblad Ontwikkelaars.
2. Klik op de Visual Basic-optie. Dit opent de VB-editor in de backend.
3. Klik in het deelvenster Projectverkenner in de VB-editor met de rechtermuisknop op een object voor de werkmap waarin u de code wilt invoegen. Als u de Projectverkenner niet ziet, gaat u naar het tabblad Weergave en klikt u op Projectverkenner.
4. Ga naar Invoegen en klik op Module. Hiermee wordt een moduleobject voor uw werkmap ingevoegd.
5. Kopieer en plak de code in het modulevenster.