Indholdsfortegnelse
Selvom det ikke bruges ret ofte på dette websted, kan du befinde dig i en situation, hvor du vil bruge Gør indtil sløjfe i Excel VBA. Kode placeret mellem Do Till og Loop vil blive gentaget, indtil delen efter Do Till er sand.
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
Dim i As Integer
jeg = 1
Gør indtil jeg> 6
Celler (i, 1). Værdi = 20
i = i + 1
Sløjfe
Resultat, når du klikker på kommandoknappen på arket:
Forklaring: indtil i er højere end 6, placerer Excel VBA værdien 20 i cellen i skæringspunktet mellem række i og kolonne 1 og øger i med 1. Som følge heraf placeres værdien 20 i kolonne A seks gange (ikke syv, fordi Excel VBA stopper, når jeg er lig med 7).