Nedenfor ser vi på et program som går gjennom et definert område. For eksempel når vi ønsker å kvadrere tallene i område ("A1: A3"). Visste du at du også kan gå gjennom et dynamisk område?
Situasjon:
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Først erklærer vi to Range -objekter. Vi kaller Range -objektene rng og cell.
Dim rng As Range, cell As Range
2. Vi initialiserer Range -objektet rng med Range ("A1: A3").
Sett rng = Range ("A1: A3")
3. Legg til sløyfen For hver neste.
For hver celle I rng
Neste celle
Merk: rng og celle velges tilfeldig her, du kan bruke alle navn. Husk å referere til disse navnene i resten av koden.
4. Deretter kvadrerer vi hver celle i dette området. For å oppnå dette, legg til følgende kodelinje i løkken:
cell.Value = cell.Value * cell.Value
Resultat når du klikker på kommandoknappen på arket:
5. Hvis du vil kontrollere hver celle i et tilfeldig valgt område, erstatter du ganske enkelt:
Sett rng = Range ("A1: A3")
med:
Sett rng = Valg
6. Velg nå for eksempel Range ("A1: A2").
Resultat når du klikker på kommandoknappen på arket: