U nastavku ćemo pogledati program koji petlje kroz definirani raspon. Na primjer, kada želimo uokviriti brojeve u rasponu ("A1: A3"). Jeste li znali da se možete kretati i kroz dinamički raspon?
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklariramo dva Range objekta. Objekte Range nazivamo rng i cell.
Dim rng As Range, cell As Range
2. Inicijaliziramo objekt Range rng s Range ("A1: A3").
Postavi rng = raspon ("A1: A3")
3. Dodajte petlju Za svaku sljedeću.
Za svaku ćeliju U rng
Sljedeća ćelija
Napomena: ovdje su nasumično odabrani rng i ćelija, možete koristiti bilo koja imena. Ne zaboravite se pozivati na ta imena u ostatku koda.
4. Zatim kvadrat svake stanice u ovom rasponu. Da biste to postigli, dodajte sljedeću liniju koda u petlju:
ćelija.Vrijednost = ćelija.Vrijednost * ćelija.Vrijednost
Rezultat kada pritisnete naredbeni gumb na listu:
5. Ako želite provjeriti svaku ćeliju u slučajno odabranom rasponu, jednostavno zamijenite:
Postavi rng = raspon ("A1: A3")
s:
Postavite rng = Odabir
6. Sada, na primjer, odaberite Raspon ("A1: A2").
Rezultat kada pritisnete naredbeni gumb na listu: