Gennemløb et definerede område

Nedenfor ser vi på et program der gennemløber et defineret område. Vi vil for eksempel vil kvadrere tallene i området ”A1:A3”.

Situation:

Placer en kommandoknap i dit regneark og tilføj følgende kode:

1. Først deklarerer vi to Range objekter. Vi kalder Range objekterne for rng og cell.

Dim rng As Range, cell As Range

2. Vi initialiserer Range objektet rng med området “A1:A3”

Set rng = Range("A1:A3")

3. Tilføj en For Each Next løkke

For Each cell In rng
  
Next cell

Bemærk rng og cell er tilfældig valgt, du kan bruge andre navne. Husk at refererer til disse navne i resten af din kode.

4. Derefter kvadrerer vi hver celle i dette område. For at gøre dette tilføjes følgende kodelinje til løkken:

cell.Value = cell.Value * cell.Value

Resultatet når du klikker på kommandoknappen i dit ark:

5. Hvis du vil undersøge celler i et tilfældigt valgt område, foretager du følgende erstatning:

Set rng = Range("A1:A3")

med

Set rng = Selection

6. Her er for eksempel valgt området A1:A2.

Resultatet når du klikker på kommandoknappen i arket: