Mai jos vom analiza un program care parcurge într-un interval definit. De exemplu, atunci când vrem să pătrăm numerele din Range („A1: A3”). Știați că puteți parcurge și un interval dinamic?
Situatie:
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. În primul rând, declarăm două obiecte Range. Numim obiectele Range rng și celulă.
Dim rng As Range, celulă As Range
2. Inițializăm obiectul Range rng cu Range („A1: A3”).
Setați rng = Range („A1: A3”)
3. Adăugați bucla For Each Next.
Pentru fiecare celulă din rng
Următoarea celulă
Notă: rng și celulă sunt alese la întâmplare aici, puteți folosi orice nume. Nu uitați să consultați aceste nume în restul codului.
4. Apoi, pătrăm fiecare celulă din acest interval. Pentru a realiza acest lucru, adăugați următoarea linie de cod la buclă:
cell.Value = celula.Valoare * celula.Valoare
Rezultatul când faceți clic pe butonul de comandă de pe foaie:
5. Dacă doriți să verificați fiecare celulă dintr-un interval selectat aleatoriu, pur și simplu înlocuiți:
Setați rng = Range („A1: A3”)
cu:
Set rng = Selection
6. Acum, de exemplu, selectați Range („A1: A2”).
Rezultatul când faceți clic pe butonul de comandă de pe foaie: