/ / Loop через визначений діапазон у Excel VBA

Цикл через визначений діапазон у Excel VBA

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

Ситуація:

Цикл через визначений діапазон у Excel VBA

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1. По-перше, ми оголошуємо два об'єкти діапазону. Ми називаємо об'єкти діапазону rng та cell.

Dim rng As Range, cell As Range

2. Ми ініціалізуємо об'єкт діапазону rng з діапазоном ("A1: A3").

Set rng = Range("A1:A3")

3. Додати цикл для кожен наступний.

For Each cell In rng

Next cell

Примітка. Тут вибираються випадкові вибірки rng і cell, ви можете використовувати будь-які імена. Не забудьте вказати ці назви в решті частини вашого коду.

4. Потім ми квадратуємо кожну клітинку в цьому діапазоні. Для цього додайте наступну кодову рядок до циклу:

cell.Value = cell.Value * cell.Value

Результат, коли ви натискаєте кнопку команди на аркуші:

Цикл через результат визначеного діапазону

5. Якщо ви хочете перевірити кожну комірку у випадково вибраному діапазоні, просто замініть:

Set rng = Range("A1:A3")

з:

Set rng = Selection

6. Тепер, наприклад, виберіть діапазон ("A1: A2").

Цикл через вибір в Excel VBA

Результат, коли ви натискаєте кнопку команди на аркуші:

Цикл через результат вибору

Також читайте: