Spodaj si bomo ogledali program, ki zanke skozi določeno območje. Na primer, če želimo kvadratiti številke v razponu ("A1: A3"). Ali ste vedeli, da lahko preklapljate tudi skozi dinamični razpon?
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo dva predmeta Range. Objekte Range imenujemo rng in cell.
Dim rng As Range, celica As Range
2. Objekt rng inicializiramo z Range ("A1: A3").
Nastavi rng = območje ("A1: A3")
3. Dodajte zanko For Every Next.
Za vsako celico V rng
Naslednja celica
Opomba: rng in celica sta tukaj naključno izbrana, lahko uporabite poljubno ime. Ne pozabite se sklicevati na ta imena v preostali kodi.
4. Nato kvadrat vsake celice v tem razponu. Če želite to narediti, v zanko dodajte naslednjo kodno vrstico:
celica.Vrednost = celica.Vrednost * celica.Vrednost
Rezultat, ko kliknete ukazni gumb na listu:
5. Če želite preveriti vsako celico v naključno izbranem obsegu, preprosto zamenjajte:
Nastavi rng = obseg ("A1: A3")
z:
Nastavi rng = Izbor
6. Zdaj na primer izberite obseg ("A1: A2").
Rezultat, ko kliknete ukazni gumb na listu: