Nedenfor ser vi på et program, der sløjfer gennem et defineret område. For eksempel når vi ønsker at kvadrere tallene i område ("A1: A3"). Vidste du, at du også kan gå igennem et dynamisk område?
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi to Range -objekter. Vi kalder Range -objekterne rng og cell.
Dim rng As Range, cell As Range
2. Vi initialiserer Range -objektet rng med Range ("A1: A3").
Indstil rng = Range ("A1: A3")
3. Tilføj sløjfen For hver næste.
For hver celle I rng
Næste celle
Bemærk: rng og celle vælges tilfældigt her, du kan bruge alle navne. Husk at henvise til disse navne i resten af din kode.
4. Derefter kvadrerer vi hver celle i dette område. For at opnå dette skal du tilføje følgende kodelinje til sløjfen:
cell.Value = cell.Value * cell.Value
Resultat, når du klikker på kommandoknappen på arket:
5. Hvis du vil kontrollere hver celle i et tilfældigt valgt område, skal du blot erstatte:
Indstil rng = Range ("A1: A3")
med:
Indstil rng = Valg
6. Vælg nu f.eks. Område ("A1: A2").
Resultat, når du klikker på kommandoknappen på arket: