/ / Smyčka přes definovaný rozsah v aplikaci Excel VBA

Smyčka přes definovaný rozsah v aplikaci Excel VBA

Níže se podíváme na program, který smyčky přes definovaný rozsah. Například pokud chceme umístit čísla v rozsahu ("A1: A3"). Věděli jste, že můžete také procházet dynamickým rozsahem?

Situace:

Smyčka přes definovaný rozsah v aplikaci Excel VBA

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

1. Nejprve deklarujeme dva objekty Range. Nazýváme objekty řady rng a buňky.

Dim rng As Range, cell As Range

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

Set rng = Range("A1:A3")

3. Přidejte smyčku pro každou další smyčku.

For Each cell In rng

Next cell

Poznámka: Zde jsou náhodně vybrána rng a buňka, můžete použít libovolná jména. Nezapomínejte na tyto názvy ve zbytku kódu.

4. Dále rozdělíme každou buňku v tomto rozsahu. Chcete-li to dosáhnout, přidejte do smyčky následující kódový řádek:

cell.Value = cell.Value * cell.Value

Výsledek po klepnutí na příkazové tlačítko na listu:

Smyčka prostřednictvím výsledku definovaného rozsahu

5. Pokud chcete zkontrolovat každou buňku v náhodně vybraném rozsahu, jednoduše nahraďte:

Set rng = Range("A1:A3")

s:

Set rng = Selection

6. Nyní například vyberte Rozsah ("A1: A2").

Loop Through Selection v aplikaci Excel VBA

Výsledek po klepnutí na příkazové tlačítko na listu:

Loop Výběrový výsledek

Také si přečtěte: