Hieronder zullen we kijken naar een programma dat: doorloopt een gedefinieerd bereik. Als we bijvoorbeeld de getallen in Range("A1:A3") willen kwadrateren. Wist je dat je ook een dynamisch bereik kunt doorlopen?
Situatie:
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Eerst declareren we twee Range-objecten. We noemen de Range-objecten rng en cel.
Dim rng As Range, cel As Range
2. We initialiseren het Range-object rng met Range ("A1:A3").
Stel rng = Bereik ("A1:A3") in
3. Voeg de For Each Next-lus toe.
Voor elke cel In rng
Volgende cel
Opmerking: rng en cel worden hier willekeurig gekozen, u kunt alle namen gebruiken. Vergeet niet om naar deze namen te verwijzen in de rest van uw code.
4. Vervolgens kwadrateren we elke cel in dit bereik. Om dit te bereiken, voegt u de volgende coderegel toe aan de lus:
cel.Waarde = cel.Waarde * cel.Waarde
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
5. Als u elke cel in een willekeurig geselecteerd bereik wilt controleren, vervangt u eenvoudig:
Stel rng = Bereik ("A1:A3") in
met:
Stel rng = Selectie in
6. Selecteer nu bijvoorbeeld Range("A1:A2").
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
