2015-10-16
385
Значения аргумента задать таким образом, чтобы получить не менее 10 значений, а значения вычислялось по разным условиям (ветвям). Для вычислений использовать функцию if
.
Использование оператора Do…Loop.
Оператор Do…Loop.
Основная форма выполнения циклических действий с неизвестным числом повторений в VB.
3. Формат записи с пред условием (в строке Do):
Do [{While | Until} условие на (продолжение|выход) ]
[ повторяющиеся действия ] [Exit Do] [ повторяющиеся действия ]
Loop
4. Формат записи с пост условием (в строке Loop):
Do [ повторяющиеся действия ] [Exit Do] [ повторяющиеся действия ]
Loop [{While | Until} условие на (продолжение|выход)
Примеч.: Do –делать, While – пока, Until – до, Loop – петля, Exit - выход.
 Пример:.1) Do While X<10
X=X+1
Loop
2) Do Until X=10
X=X+1
|
Loop
Создать макрос, который производит умножение содержимого группы ячеек на фиксированное значение.
4.1. Перейдите в окно MS Excel. Сделайте текущим Лист2.
4.2. Заполните столбец А на 10 строк любыми числами.
4.3. 
Заполните ячейку В1 числом 5.
4.4. 
Вызовите окно VBA.
|
|
|
4.5. В нем отражается код Листа1. Вызовите окно кода другого листа: в окне Project щелкните двойным щелчком Лист2.
4.6. Создайте процедуру Умножение (), в которой реализуйте следующий алгоритм. Разберитесь с каждой строкой.
4.7. В окне MSExcel разместите кнопку *, которой назначьте макрос Умножение (). Проверьте работу макроса.
4.8. При выполнении программа заполнила в столбце С не 10 строк, а 11. Все правильно, т.к. проверка в строке Loop указала, что Пока Х меньше или равно 10 – продолжать, вот при X = 10 она продолжила работу. В окне кода удалите равно. Переключитесь на Лист2 сотрите значения в столбце С. Проверьте работу кнопки.
4.9. В окне кода замените форму условия, т.е. в строке Loop условие замените на Until X=10 (т.е. продолжать до 10).
4.10. Проверьте результат работы кнопки.
4.11. Самостоятельно поэкспериментируйте с другими значениями и способами организации предусловия.
5. Процедура While…Wend.
5.1. Активизируйте Лист 3.
5.2. Заполните столбец А как п.3.2.
5.3. Организуем цикл, подобный макросу Умножение (). Для чего в окне VBA выделите и скопируйте в буфер текст Умножение (). Откройте окно кода Лист3 и вставьте из буфера процедуру.
5.4. Измените Do..Loop на While…Wend.
While X < 10
X = X + 1
Cells(X, 3) = Range("B1") * Cells(X, 1)
Wend
.
