/ / Loop per apibrėžtą diapazoną Excel VBA

"Excel" VBA per apibrėžtą diapazoną

Žemiau apžvelgsime programą, kuri kilpos per nustatytą diapazoną. Pavyzdžiui, kai mes norime kvadruoti numerius Range ("A1: A3"). Ar žinojote, kad taip pat galite skleisti dinaminį diapazoną?

Padėtis:

"Excel" VBA per apibrėžtą diapazoną

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:

1. Pirma, mes deklaruojame du Range objektus. Mes vadiname Range objektus rng ir langelį.

Dim rng As Range, cell As Range

2. Inicializuojame "Range object rng" su Range ("A1: A3").

Set rng = Range("A1:A3")

3. Pridėkite "Už kiekvieną kitą" kilpą.

For Each cell In rng

Next cell

Pastaba: čia atsitiktine tvarka pasirenkami rng ir ląstelės, galite naudoti bet kokius pavadinimus. Nepamirškite nurodyti šių pavadinimų likusioje jūsų kodo dalyje.

4. Kitas, mes kvadratinė kiekviena ląstelė šiame diapazone. Norėdami tai pasiekti, pridėkite prie šios kilpos kodo eilutę:

cell.Value = cell.Value * cell.Value

Rezultatas spustelėjus komandą mygtuką ant lapo:

Loop per apibrėžtą diapazoną rezultatas

5. Jei norite patikrinti kiekvieną langelį atsitiktinai pasirinktame diapazone, tiesiog pakeiskite:

Set rng = Range("A1:A3")

su:

Set rng = Selection

6. Dabar, pavyzdžiui, pasirinkite diapazoną ("A1: A2").

Loop through Selection in Excel VBA

Rezultatas spustelėjus komandą mygtuką ant lapo:

Loop per pasirinkimo rezultatą

Taip pat perskaitykite: