/ / Loop през определения диапазон в Excel VBA

Loop през дефиниран диапазон в Excel VBA

По-долу ще разгледаме програма, която цикли през определен диапазон, Например, когато искаме да квадрат номерата в обхват ("A1: A3"). Знаете ли, че можете да пресечете динамичен диапазон?

Ситуация:

Loop през дефиниран диапазон в Excel VBA

Поставете командния бутон на работния лист и добавете следните кодови редове:

1. Първо, декларираме два Range обекти. Наричаме Range обектите rng и cell.

Dim rng As Range, cell As Range

2. Инициализираме Range object rng с Range ("A1: A3").

Set rng = Range("A1:A3")

3. Добавете цикъла "За всеки следващ".

For Each cell In rng

Next cell

Забележка: rng и клетката са избрани произволно тук, можете да използвате имена. Не забравяйте да препратите към тези имена в останалата част от кода си.

4. След това ние квадрат всяка клетка в този диапазон. За да постигнете това, добавете следния код:

cell.Value = cell.Value * cell.Value

Резултат, когато кликнете върху командния бутон на листа:

Около резултата от зададения обхват

5. Ако искате да проверите всяка клетка в произволно избран диапазон, просто заменете:

Set rng = Range("A1:A3")

с:

Set rng = Selection

6. Сега например, изберете Range ("A1: A2").

Отидете през Избор в Excel VBA

Резултат, когато кликнете върху командния бутон на листа:

Получете резултат от селекцията

Също така се чете: