Нижче ми розглянемо програму, яка цикли через визначений діапазон. Наприклад, коли ми хочемо ввести числа в діапазон ("A1: A3"). Чи знаєте ви, що ви також можете переглядати динамічний діапазон?
Ситуація:
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. Спочатку ми оголошуємо два об’єкти Range. Ми називаємо об'єкти діапазону rng і клітиною.
Dim rng As Range, клітинка As Range
2. Ми ініціалізуємо об'єкт Range rng за допомогою Range ("A1: A3").
Встановити rng = Діапазон ("A1: A3")
3. Додайте цикл For Every Next.
Для кожної клітинки В rng
Наступна клітина
Примітка: тут rng і комірка вибираються випадковим чином, ви можете використовувати будь -які імена. Не забувайте посилатися на ці імена в решті коду.
4. Далі ми квадратуємо кожну клітинку в цьому діапазоні. Щоб досягти цього, додайте до циклу такий рядок коду:
cell.Value = cell.Value * cell.Value
Результат, коли ви натискаєте кнопку команди на аркуші:
5. Якщо ви хочете перевірити кожну клітинку в випадково вибраному діапазоні, просто замініть:
Встановити rng = Діапазон ("A1: A3")
з:
Встановити rng = Вибір
6. Тепер, наприклад, виберіть Діапазон ("A1: A2").
Результат, коли ви натискаєте кнопку команди на аркуші: