Nedan kommer vi att titta på ett program som går igenom ett definierat område. Till exempel när vi vill kvadrera siffrorna i intervallet ("A1: A3"). Visste du att du också kan gå igenom ett dynamiskt område?
Situation:
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först deklarerar vi två Range -objekt. Vi kallar Range -objekt rng och cell.
Dim rng As Range, cell As Range
2. Vi initierar Range -objektet rng med Range ("A1: A3").
Ställ in rng = Range ("A1: A3")
3. Lägg till slingan För varje nästa.
För varje cell I rng
Nästa cell
Notera: rng och cell väljs slumpmässigt här, du kan använda alla namn. Kom ihåg att hänvisa till dessa namn i resten av din kod.
4. Därefter kvadrerar vi varje cell i detta område. För att uppnå detta, lägg till följande kodrad i slingan:
cell.Value = cell.Value * cell.Value
Resultat när du klickar på kommandoknappen på arket:
5. Om du vill kontrollera varje cell i ett slumpmässigt valt område, ersätt helt enkelt:
Ställ in rng = Range ("A1: A3")
med:
Ställ in rng = Selection
6. Välj till exempel Område ("A1: A2").
Resultat när du klickar på kommandoknappen på arket: