/ / Bucle prin intervalul definit în Excel VBA

Bucle prin intervalul definit în Excel VBA

Mai jos ne vom uita la un program care buclele printr-o gamă definită. De exemplu, când vrem să pătrundem numerele din interval ("A1: A3"). Știați că puteți trece și printr-o gamă dinamică?

Situatie:

Bucle prin intervalul definit în Excel VBA

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

1. În primul rând, declarăm două obiecte Range. Noi numim obiectele Range rng și cell.

Dim rng As Range, cell As Range

2. Inițializăm Rng obiectul Range cu Range ("A1: A3").

Set rng = Range("A1:A3")

3. Adăugați buclă pentru fiecare următor.

For Each cell In rng

Next cell

Notă: rng și celula sunt alese aleatoriu aici, puteți utiliza orice nume. Nu uitați să vă referiți la aceste nume în restul codului.

4. Apoi, am pătrat fiecare celulă în acest interval. Pentru a realiza acest lucru, adăugați următoarea linie de cod la bucla:

cell.Value = cell.Value * cell.Value

Rezultat când faceți clic pe butonul de comandă de pe foaie:

Curățați prin Rezultatul determinat

5. Dacă doriți să verificați fiecare celulă într-un interval selectat aleator, înlocuiți pur și simplu:

Set rng = Range("A1:A3")

cu:

Set rng = Selection

6. Acum, de exemplu, selectați Range ("A1: A2").

Bucle prin selecție în Excel VBA

Rezultat când faceți clic pe butonul de comandă de pe foaie:

Bucle prin Rezultatul selecției

De asemenea, citiți: