Ниже мы рассмотрим программу, которая перебирает в определенном диапазоне.

Например, если мы хотим, чтобы квадрат числа в диапазоне ( «A1: A3»). Вы знаете, вы можете также цикл по ссылке: / VBA-примеры динамического диапазона [динамический диапазон]? Ситуация:

Loop through Defined Range in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, мы объявляем два объекта Range. Мы называем объекты Диапазон ГСЧ и клетки.

Dim rng As Range, cell As Range

  1. Мы инициализируем объект ГСЧ Range с Range ( «A1: A3»).

Set rng = Range("A1:A3")

  1. Добавьте для каждого следующего цикла.

For Each cell In rng

Next cell

Примечание: RNG и клетки случайным образом выбраны здесь, вы можете использовать любые имена.

Не забывайте ссылаться на эти имена в остальной части кода.

  1. Далее, квадрат каждой ячейки в этом диапазоне. Для достижения этой цели, добавьте следующую строку кода в цикле:

cell.Value = cell.Value * cell.Value

Результат при нажатии на кнопку управления на листе:

Loop through Defined Range Result

  1. Если вы хотите, чтобы проверить каждую ячейку в случайно выбранном диапазоне, просто замените:

Set rng = Range("A1:A3")

с:

Set rng = Selection

  1. Теперь, например, выберите диапазон ( «A1: A2»).

Loop through Selection in Excel VBA

Результат при нажатии на кнопку управления на листе:

Loop through Selection Result