Inhoudsopgave
Hoewel het op deze site niet vaak wordt gebruikt, bevindt u zich misschien in een situatie waarin u de Doen tot lus in Excel VBA. Code die tussen Do Until en Loop wordt geplaatst, wordt herhaald totdat het gedeelte na Do Until waar is.
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim ik als geheel getal
ik = 1
Doen tot ik > 6
Cellen (i, 1). Waarde = 20
ik = ik + 1
Lus
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Uitleg: totdat i hoger is dan 6, plaatst Excel VBA de waarde 20 in de cel op het snijpunt van rij i en kolom 1 en verhoogt i met 1. Hierdoor wordt de waarde 20 zes keer in kolom A geplaatst (niet zeven omdat Excel VBA stopt wanneer ik gelijk is aan 7).
