Вопрос №21. VBA. Циклы. Примеры

Операторы циклов.
цикл со счетчиком
For Счётчик цикла=НачальноеЗначение

To
КонечноеЗначение [Step Шаг]

Операторы
[Exit For]
Next [счетчик цикла]

Цикл-это группа операторов, которые прогрмамма многократно выполняет

В вба существует два основных типов цикла:
-циклы со счетчиком
-циклы с условием

Step(шаг) -число, задающее шаг цикла,т.е. значение на которое увеличивается или уменьшается значение счетчика на каждом шаге. это число может быть отрицательным(в этом случае шаг будет уменьшаться), если слово step отсутствует, то значение шага равно 1.
Exit For -оператор досрочного выхода из цикла необязательный
Next -окончание цикла

Пример 1. Просуммировать четные числа натурального ряда до50 включительно, сумму плместить в ячейку рабочего листа excel

Sub sum()
Dim f As Integer, sum As Integer sum=0
For f=2 To 50 Step 2
sum=sum+f
Next
Range("A1").Value=sum
End sub

Главной особенностью циклов с условием является условие, которое может принимать значение истины или лжи.
В вба есть 2 основных типа циклов с условием:
-Do While...Loop (цикл с предусловием)
-Do Until..Loop (цикл с постусловием)

Цикл с предусловием
Do While/Until выражение
Операторы
[Exit do]
Loop
Цикл с постусловием
Вo
операторы
[Exit Do]
Loop While/Until выражение

В первом случае условие задается в операторе начала цикла, во втором - в операторе конца цикла

Do, Loop - ключевые слова, обозначающие начало и конец цикла
While, Until -ключевые слова определяющие тип цикла

Цикл Do While выполняется до тех пор, пока условие имеет значение истинf
Цикл Do Until выполняется до тех пор, пока условие имеет значение ложь

Exit do -принудительный выход из цикла

Пример 2. Написать программу, суммирующую на рабочем листе Excel. Выпуск продукции значения ежедневных прибылей из столбца D и помещающую результат в отдельную ячейку с поясняющей надписью, как показано на рисунке.

	B	C	D	E	F	G
	Выпуск молока, проданного за месяц 2004	Итоговая прибыль
	Дата изготовления продукции	Изготовлено продукции	Прибыль от реализации продукции	Расход молока
	02.03.04			345,42
	…	…	…	…
	15.03.04			3231,9

Для решения данной задачи необходимо определить первый номер пустой строки в столбце D, предполагая, что количество записей в столбце неизвестно

Значение суммы ячеек столбца D, сохраним переменной Sum, которую будем использовать для указания адреса ячеек, увеличивая каждый раз на единицу.

Sub total()
i=3
Sum=0
Do while Cells (I,4).Value<>””

Sum=Sum+Cells(i,4)

Loop

Cells(1,7).Value=”Итоговая прибыль”

Cells(2,7).Value=Sum

End Sub

Объявили переменную для номера строки (i=3). Первоначальное значение суммы=0. Выполняется цикл, пока не встретится пустая ячейка в столбце D.

Суммируются ячейки столбца D. Увеличиваем переменную смещением строк для изменения адресов ячеек.