/ / Loop cez definovaný rozsah v programe Excel VBA

Loop cez definovaný rozsah v programe Excel VBA

Nižšie sa pozrieme na program, ktorý slučky cez definovaný rozsah, Napríklad, keď chceme zaradiť čísla v rozsahu ("A1: A3"). Vedeli ste, že môžete prechádzať aj cez dynamický rozsah?

situácie:

Loop cez definovaný rozsah v programe Excel VBA

Do pracovného hárka umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:

1. Najprv vyhlasujeme dva objekty Range. Teraz nazývame objekty Range rng a cell.

Dim rng As Range, cell As Range

2. Inicializujeme objekt Range rng s rozsahom ("A1: A3").

Set rng = Range("A1:A3")

3. Pridajte slučku For Each Next.

For Each cell In rng

Next cell

Poznámka: tu a náhodne vybrané rng a bunka môžete použiť akékoľvek mená. Nezabudnite sa na tieto mená odvolať vo zvyšku kódu.

4. Ďalej priradíme každú bunku v tomto rozmedzí. Ak to chcete dosiahnuť, pridajte nasledujúci riadok kódu do slučky:

cell.Value = cell.Value * cell.Value

Výsledok po kliknutí na príkazové tlačidlo na hárku:

Smyčka cez výsledok definovaného rozsahu

5. Ak chcete skontrolovať každú bunku v náhodne zvolenom rozsahu, jednoducho nahraďte:

Set rng = Range("A1:A3")

s:

Set rng = Selection

6. Teraz napríklad vyberte Rozsah ("A1: A2").

Loop through Selection v programe Excel VBA

Výsledok po kliknutí na príkazové tlačidlo na hárku:

Slučka výsledkom výberu

Tiež si prečítajte: