Пример 5.3

Напишем функцию пользователя, которая в заданном диапазоне ячеек вычисляет количество значений, попадающих в интервал [ a;b ].

В данном случае мы перебираем элементы «по строкам» и предполагаем, что исходный диапазон – это таблица. Можно написать еще один вариант этой же функции, в котором просто рассматриваются все ячейки, входящие в диапазон. Для таблицы просмотр элементов будет выполняться в том же порядке, что и в предыдущем случае.

Цикл For Each… Next

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

For Each Переменная In ИмяКоллекции

[ Инструкции ]

[ Exit For ]

[ Инструкции ]

Next [ Переменная ]

Переменная цикла может иметь тип Variant, Object или тип конкретного объекта. Для досрочного выхода их цикла используется инструкция Exit For. Цикл выполняется для каждого элемента коллекции. Имя переменной после Next рекомендуется указывать в тех случаях, когда используются вложенные циклы.

Приведем решение предыдущей задачи с помощью этой разновидности цикла.