Az alábbiakban egy olyan programot tekintünk meg, amely meghatározott tartományon keresztül hurkol. Például, ha a tartományban lévő számokat négyzetre szeretnénk helyezni ("A1: A3"). Tudta, hogy dinamikus tartományon is keresztül tud lépni?
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először két Range objektumot deklarálunk. A Range objektumokat rng -nek és cellának hívjuk.
Dim rng As Range, cell As Range
2. Inicializáljuk a Range objektum rng -t a Range ("A1: A3") segítségével.
Rng = tartomány beállítása ("A1: A3")
3. Adja hozzá a Minden egyes következő hurkot.
Minden cellához In rng
Következő cella
Megjegyzés: az rng és a cellát véletlenszerűen választjuk ki, bármilyen nevet használhat. Ne felejtse el hivatkozni ezekre a nevekre a kód többi részében.
4. Ezt követően négyzeteket négyzetelünk ebben a tartományban. Ennek eléréséhez adja hozzá a következő kód sort a hurokhoz:
cell.Value = cell.Value * cell.Value
Eredmény, ha rákattint a parancsikonra a lapon:
5. Ha véletlenszerűen kiválasztott tartomány minden celláját ellenőrizni szeretné, egyszerűen cserélje ki:
Rng = tartomány beállítása ("A1: A3")
val vel:
Set rng = Kiválasztás
6. Most például válassza a Tartomány ("A1: A2") lehetőséget.
Eredmény, ha rákattint a parancsikonra a lapon: