Задание 8. Ведение складского учета с помощью visual basic для приложения (VBA)

Для внесения изменений в соответствии с выбранным заказом необходимо значения ячеек с соответствующих листов (“Телефон”, “Автомагнитола” и т.д.) занести с нарастающим итогом в ячейки на листе “Складской учет” с аналогичным названием товара.

Для этого в лист «Стоимость заказа» необходимо:

Ø внести дополнение, т.е. создать кнопку «Подтвердить заказ» с помощью Панели инструментов – Формы;

Ø в диалоговом окне «Назначить макрос объекту» введите имя макроса «Подтвердить_заказ» и нажмите кнопку Создать (рис.22).

Рис.22.Окно VBA

Для написания требования макроса необходимо использовать следующие функции VBA:

Sub Подтвердить_Заказ() – начало процедуры (макроса);

ActiveSheet.Name – функция возвращает название активного листа;

Worksheets(Имя_Листа).Activate – процедура активизирует указанный лист (Имя_Листа);

Cells(Строка, Столбец).Value – изменяет значение в ячейке по адресу (Строка, Столбец) на активном листе;

Cells(Строка, Столбец) - функция возвращает значение ячейки активного листа по адресу (Строка, Столбец);

If – оператор Если;

Then – оператор тогда;

End If – закрывает оператор Если;

For – оператор цикла

Next – указавыет на окончание блока цикла, и изменяет значение счетчика на величину, равную шагу (по умолчанию на 1);

End Sub – окончание процедуры (макроса).

Рис.23.Написание макроса для рабочего листа “Телефон”

Выполните самостоятельно написание макроса для остальных рабочих листов, аналогично рабочему листу “Телефон”.

Дата добавления: 2015-08-27