Níže se podíváme na program, který prochází definovaným rozsahem. Například když chceme umocnit čísla v rozsahu („A1: A3“). Věděli jste, že můžete také procházet dynamickým rozsahem?
Situace:
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujeme dva objekty Range. Objekty Range nazýváme rng a buňka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Range rng pomocí Range ("A1: A3").
Nastavit rng = rozsah ("A1: A3")
3. Přidejte smyčku For Every Next.
Pro každou buňku v rng
Další buňka
Poznámka: zde jsou náhodně vybrány rng a buňka, můžete použít libovolná jména. Ve zbytku kódu se na tyto názvy podívejte.
4. Dále zarovnáme každou buňku v tomto rozsahu. Chcete -li toho dosáhnout, přidejte do smyčky následující řádek kódu:
cell.Value = cell.Value * cell.Value
Výsledek po kliknutí na příkazové tlačítko na listu:
5. Pokud chcete zkontrolovat každou buňku v náhodně vybraném rozsahu, jednoduše nahraďte:
Nastavit rng = rozsah ("A1: A3")
s:
Nastavit rng = výběr
6. Nyní například vyberte Rozsah („A1: A2“).
Výsledek po kliknutí na příkazové tlačítko na listu: