Ниже мы рассмотрим программу, которая проходит через определенный диапазон. Например, когда мы хотим возвести в квадрат числа в диапазоне («A1: A3»). Знаете ли вы, что вы также можете прокручивать динамический диапазон?
Ситуация:
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала мы объявляем два объекта Range. Мы называем объекты Range rng и cell.
Dim rng As Range, cell as Range
2. Мы инициализируем rng объекта Range с помощью Range ("A1: A3").
Установить rng = Range ("A1: A3")
3. Добавьте цикл For Each Next.
Для каждой ячейки In rng
Следующая ячейка
Примечание: здесь случайным образом выбираются rng и ячейка, вы можете использовать любые имена. Не забудьте ссылаться на эти имена в остальной части кода.
4. Затем мы возводим в квадрат каждую ячейку в этом диапазоне. Для этого добавьте в цикл следующую строку кода:
cell.Value = cell.Value * cell.Value
Результат при нажатии кнопки команды на листе:
5. Если вы хотите проверить каждую ячейку в случайно выбранном диапазоне, просто замените:
Установить rng = Range ("A1: A3")
с:
Установить rng = Выбор
6. Теперь, например, выберите Диапазон ("A1: A2").
Результат при нажатии кнопки команды на листе: