/ / Лооп кроз дефинисан опсег у Екцелу ВБА

Лооп кроз дефинисан опсег у Екцел ВБА

У наставку ћемо погледати програм који је петље кроз одређени опсег. На пример, када желимо квадрати бројеве у опсегу ("А1: А3"). Да ли сте знали да можете такође кренути кроз динамички опсег?

Ситуација:

Лооп кроз дефинисан опсег у Екцел ВБА

Поставите командно дугме на свој радни лист и додајте следеће линије кода:

1. Прво, објављујемо два опсег објекта. Ми зовемо објекте Ранге и рнг.

Dim rng As Range, cell As Range

2. Иницијализирамо опсег објекта рнг са опсегом ("А1: А3").

Set rng = Range("A1:A3")

3. Додајте петље за сваку наредну наредну.

For Each cell In rng

Next cell

Напомена: рнг и целл су случајно изабрани овде, можете користити било која имена. Не заборавите да се позовете на ова имена у остатку вашег кода.

4. Затим квадратићемо сваку ћелију у овом опсегу. Да бисте то постигли, додајте следећу линију кода у петљу:

cell.Value = cell.Value * cell.Value

Резултат када кликнете на командно дугме на листу:

Лооп кроз резултат дефинисаног опсега

5. Ако желите да проверите сваку ћелију у насумично одабраном опсегу, једноставно замените:

Set rng = Range("A1:A3")

са:

Set rng = Selection

6. Сада, на пример, изаберите опсег ("А1: А2").

Лооп кроз селекцију у Екцелу ВБА

Резултат када кликнете на командно дугме на листу:

Корак кроз резултат селекције

Такође прочитајте: