Hver teknikk så langt har jobbet med én verdi om gangen. Løkker er måten du bruker samme logikk på mange verdier etter hverandre — fem produkter, fem hundre ordre, eller så mange rader som en tabell måtte inneholde — uten å måtte kopiere og lime inn samme kodeblokk om og om igjen.

For...Next

Gjentar en kodeblokk et fast, kjent antall ganger:

Dim i As Long
For i = 1 To 5
    Debug.Print "Row " & i
Next i
 
' Step lets you skip or count backward
For i = 10 To 1 Step -1
    Debug.Print i
Next i

I den første løkken starter i på 1, koden inni kjører én gang med den verdien, så økes i automatisk med 1 og hele blokken kjøres igjen — dette gjentas til i passerer 5, da stopper løkken og kjøringen fortsetter etter Next. Step endrer inkrementet: Step -1 teller nedover i stedet for standarden oppover med én, og Step 2 ville telt med to om gangen. Løkkevariabelen i er ikke spesiell syntaks — det er bare en vanlig Long-variabel som VBA oppdaterer for deg hver gang gjennom løkken.

For Each

Løkker gjennom hvert element i en samling direkte, uten at du trenger å vite hvor mange elementer det er eller holde styr på en teller selv:

Dim cell As Range
For Each cell In ThisWorkbook.Worksheets("Products").Range("B2:B6")
    Debug.Print cell.Value
Next cell

Her tar cell verdien til hver enkelt celle i området B2:B6 etter tur, og du leser innholdet med .Value. Sammenlign dette med For...Next: med For...Next teller du gjennom tall og bruker det tallet til å slå opp noe; med For Each går du direkte gjennom elementene selv, noe som ofte er mer naturlig når du jobber med områder i regnearket.

Do While

Gjentar så lenge en betingelse er True — løkken vet ikke på forhånd hvor mange ganger den vil kjøre, noe som skiller seg fra For...Next:

Dim stock As Integer
stock = 134
Do While stock > 0
    stock = stock - 30    ' simulate selling in batches of 30
Loop
Debug.Print stock   ' whatever's left after the loop stops

VBA sjekker stock > 0 før hver eneste gjennomgang av løkken, inkludert den aller første. Følg det for hånd: 134 → 104 → 74 → 44 → 14, og så sjekkes betingelsen igjen — 14 er fortsatt større enn 0, så løkken kjører én gang til og lander på -16. Først da blir stock > 0 usann, og løkken stopper med stock på -16, ikke pent på 0 eller 14. Dette er verdt å følge nøye første gang, fordi det ofte fører til "off-by-one"-feil: en Do While-løkke fortsetter så lenge betingelsen stemmer i det øyeblikket den sjekkes, selv om handlingen inni løkken går forbi grensen du hadde sett for deg.

Do Until

Det finnes også Do Until, som er speilbildet av Do While — den gjentar mens en betingelse er False og stopper i det øyeblikket betingelsen blir True, altså motsatt vei. Hvilken som føles mest naturlig avhenger av hvordan du ville formulert forretningsregelen muntlig: "fortsett så lenge det er varer igjen" tilsier Do While; "fortsett til varene er tomme" tilsier Do Until — de kan gi identisk oppførsel, bare formulert fra hver sin retning.

Exit-setninger

Lar deg bryte ut av en løkke tidlig, før den naturlige sluttbetingelsen er nådd:

For i = 1 To 100
    If i = 10 Then Exit For   ' stop the loop immediately
    Debug.Print i
Next i

Denne løkken er satt opp til å telle helt til 100, men i det øyeblikket i når 10, stopper Exit For den — ingenting etter Exit For kjøres, og kjøringen hopper rett til linjen etter Next i. Dette er mønsteret du bruker for å søke gjennom en liste og stoppe så snart du har funnet det du leter etter, i stedet for å fortsette å sjekke resten av elementene unødvendig.

Sette det sammen

Alle teknikkene fra dette kapittelet — variabler, operatorer, funksjoner, betinget logikk og nå løkker — kombineres i prosedyren dette kapittelet har bygget opp mot:

Option Explicit
 
Sub CheckStockLevels()
 
    ' Sample data standing in for the Products table
    Dim products(1 To 5) As String
    Dim stockLevels(1 To 5) As Integer
    Dim reorderLevels(1 To 5) As Integer
    Dim i As Long
    Dim alertMessage As String
 
    products(1) = "Laptop Stand": stockLevels(1) = 58: reorderLevels(1) = 20
    products(2) = "Wireless Mouse": stockLevels(2) = 134: reorderLevels(2) = 30
    products(3) = "USB-C Hub": stockLevels(3) = 44: reorderLevels(3) = 15
    products(4) = "Monitor Arm": stockLevels(4) = 18: reorderLevels(4) = 10
    products(5) = "Keyboard": stockLevels(5) = 61: reorderLevels(5) = 20
 
    alertMessage = ""
 
    For i = 1 To 5
        Select Case stockLevels(i)
            Case Is <= reorderLevels(i)
                alertMessage = alertMessage & products(i) & _
                    " — REORDER NOW" & vbNewLine
            Case Is <= reorderLevels(i) + 10
                alertMessage = alertMessage & products(i) & _
                    " — watch closely" & vbNewLine
        End Select
    Next i
 
    If alertMessage = "" Then
        MsgBox "All products are adequately stocked."
    Else
        MsgBox "Stock Alerts:" & vbNewLine & alertMessage
    End If
End Sub

Kjør dette, og du skal se at Monitor Arm blir flagget som "følg nøye med" (18 enheter mot et bestillingsnivå på 10) — gå gjennom løkken manuelt for i = 4 hvis du vil bekrefte nøyaktig hvorfor det er den eneste som fanges opp av den andre Case og ikke den første. Denne prosedyren bruker matriser, en løkke, en Select Case og strengbygging, alt som jobber sammen. Dette er faktisk nær produksjonsklar logikk allerede, bare kjørt mot eksempeldata skrevet direkte inn i koden i stedet for et ekte regneark.

Oppgave

1. Kopier CheckStockLevels inn i arbeidsboken din og kjør den. Bekreft at meldingen samsvarer med skjermbildet.
2. Endre lagerbeholdningen for Wireless Mouse til 25 og kjør på nytt — den skal nå også vises som "følg nøye med".
3. Legg til en Do While-løkke under som simulerer salg av 15 enheter Laptop Stand om gangen til lageret faller til 20 eller lavere, og skriv ut løpende total til Immediate Window etter hvert salg.
4. Utfordring: skriv om For i = 1 To 5-løkka ved å bruke For Each over en Variant-matrise i stedet — fungerer logikken fortsatt?