Пример 3

Пример 1.

В столбце A заданы целые числа. Определить их сумму, Если количество заполненных строк заранее не известно.

i = 1 Do While Cells(i, 1) <> "" S = S + Cells(i, 1) i = i + 1 Loop	' Начальное значение счетчика строк. 'Повтор до первой пустой ячейки.   'Приращение счетчика строк.
Пример 2. Для примера 1 предусмотреть досрочный выход из цикла при достижении суммы, превышающей SK.	i = 1 Do While Cells(i, 1) <> "" S = S + Cells(i, 1) i = i + 1 if S >Sk then Exit Do Loop

Имеются таблицы продаж и ценник (рис. 11.13). Рассчитать стоимость по каждой продаже, если число строк в таблицах заранее не известно.

Рис. 11.13. Фрагмент рабочего листа Excel.

Один из вариантов макроса имеет вид:

i = 2 While Cells(i, 1) <> "" price = 0: j = 2 Do While Cells(j, 7) <> "" IfCells(i, 1) = Cells(j, 7) Then price = Cells(j, 8) Exit Do End If j = j + 1 Loop If price = 0 Then Cells(i, 4) = "Цены нет!" Else Cells(i, 4) = Cells(i, 3) * price End If i = i + 1 Wend

'В первой строке заголовок. 'Цикл до первой пустой строки. 'Перец поиском цены переменная=0. ' Цикл до первой пустой строки. 'Проверка на совпадение названий. 'Присвоить переменной значение. 'Досрочный выход из цикла. 'Конец проверки товара. 'Счетчик строк в ценнике. 'Конец цикла «ценник». 'Проверка на наличие цены. 'Сообщение об ошибке.   'Расчет стоимости. Конец проверки наличия цены. 'Счетчик строк в продажах. ' Конец цикла продаж.

В циклах While счетчики итераций не предусмотрены, создавайте их самостоятельно, если не планируете получить «вечный цикл»!

Команда Until – предназначена для организации циклов, в которых ведется повторение набора команд, пока не выполнится некоторое условие.

Синтаксис команды:

Do Until <условие>

<набор команд>

[ Exit Do]

Дата добавления: 2015-04-24