Žemiau apžvelgsime programą, kuri kilpos per apibrėžtą diapazoną. Pvz., Kai norime kvadratą įterpti į diapazoną („A1: A3“). Ar žinojote, kad taip pat galite pereiti per dinaminį diapazoną?
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirmiausia deklaruojame du Range objektus. Range objektus vadiname rng ir cell.
Dim rng As Range, langelis As Range
2. Mes inicijuojame Range objektą rng su Range ("A1: A3").
Nustatyti rng = Diapazonas („A1: A3“)
3. Pridėkite ciklą „For For Next Next“.
Kiekvienai langeliui In rng
Kitas langelis
Pastaba: rng ir ląstelė čia pasirenkami atsitiktinai, galite naudoti bet kokius pavadinimus. Nepamirškite nurodyti šių pavadinimų likusioje kodo dalyje.
4. Toliau kvadratuojame kiekvieną šio diapazono langelį. Norėdami tai padaryti, pridėkite šią kodo eilutę prie kilpos:
cell.Value = ląstelė.Vertė * ląstelė.Vertybė
Rezultatas, kai lape spustelėsite komandų mygtuką:
5. Jei norite patikrinti kiekvieną atsitiktinai pasirinkto diapazono langelį, tiesiog pakeiskite:
Nustatyti rng = Diapazonas („A1: A3“)
su:
Nustatyti rng = Pasirinkimas
6. Dabar, pavyzdžiui, pasirinkite diapazoną („A1: A2“).
Rezultatas, kai lape spustelėsite komandų mygtuką:
