Ďalej sa pozrieme na program, ktorý slučky cez definovaný rozsah. Napríklad, keď chceme čísla umocniť na druhú v poli („A1: A3“). Vedeli ste, že môžete tiež prechádzať dynamickým rozsahom?
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme dva objekty Range. Objekty Range nazývame rng a bunka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Range rng s rozsahom („A1: A3“).
Nastaviť rng = rozsah ("A1: A3")
3. Pridajte slučku For Every Next.
Pre každú bunku V rng
Ďalšia bunka
Poznámka: rng a bunka sa vyberajú náhodne, môžete použiť akékoľvek názvy. Na tieto názvy sa vo zvyšku kódu odvolávajte.
4. Ďalej každú bunku v tomto rozsahu dáme do štvorca. Aby ste to dosiahli, pridajte do slučky nasledujúci riadok kódu:
cell.Value = cell.Value * cell.Value
Výsledok po kliknutí na príkazové tlačidlo na hárku:
5. Ak chcete skontrolovať každú bunku v náhodne vybranom rozsahu, jednoducho nahraďte:
Nastaviť rng = rozsah ("A1: A3")
s:
Nastaviť rng = výber
6. Teraz napríklad zvoľte Rozsah („A1: A2“).
Výsledok po kliknutí na príkazové tlačidlo na hárku: