У наставку ћемо погледати програм који петље кроз дефинисани опсег. На пример, када желимо да квадратимо бројеве у опсегу ("А1: А3"). Да ли сте знали да такође можете да се крећете кроз динамички опсег?
Ситуација:
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларирамо два Ранге објекта. Објекте Ранге називамо рнг и ћелија.
Дим рнг Ас Ранге, целл Ас Ранге
2. Иницијализујемо Ранге објекат рнг са Ранге ("А1: А3").
Постави рнг = опсег ("А1: А3")
3. Додајте петљу За сваку следећу.
За сваку ћелију У рнг
Следећа ћелија
Напомена: овде су насумично изабрани рнг и ћелија, можете користити било која имена. Не заборавите да се у остатку кода позивате на та имена.
4. Затим квадрат сваке ћелије у овом опсегу. Да бисте то постигли, додајте следећу линију кода у петљу:
целл.Валуе = целл.Валуе * целл.Валуе
Резултат је када притиснете командно дугме на листу:
5. Ако желите да проверите сваку ћелију у случајно изабраном опсегу, једноставно замените:
Постави рнг = опсег ("А1: А3")
са:
Сет рнг = Селецтион
6. Сада, на пример, изаберите Опсег ("А1: А2").
Резултат је када притиснете командно дугме на листу: