Лабораторная работа № 3. VBA. Работа с условными и безусловными операторами. Работа с циклами

1. Создайте процедуру “Налог”, которая добавляет и рассчитывает в таблице на листе “Результат” из предыдущей работы дополнительный столбец “Налог” (если “Прибыль” меньше 10000, то “Налог” равен 7%, от 10000 до 20000 – 10% и от 20000 и более – 13% от суммы прибыли).

2. На основе конструкции While Do…Loop разработайте процедуру “Макс” для нахождения максимального и “Мин” для нахождения минимального значения суммы налога.

3. Создайте процедуру “Наименование”, которая напротив ячеек с данными о максимальной и минимальной сумме налога помещала бы соответствующее наименование региона.

4. Организуйте заполнение столбца “Финансовый результат” с помощью процедуры “Заполнение_1”, используя цикл For…Next.

Лабораторная работа № 4. VBA. Ввод и вывод данных. Создание и редактирование форм.

1. В новом файле на листе “Товары” с помощью оператора Inputbox() организуйте ввод данных в таблицу (5-6 строк), состоящую из четырех столбцов “Код товара”, “Наименование”, “Цена за единицу” и “Количество” (по окончании ввода необходимо ввести ключевое слово (например, “финиш”) и выдать соответствующее подтверждающее сообщение).

2. Добавьте дополнительный столбец “Сумма” в таблицу и создайте форму “Расчет”, содержащую поля таблицы для добавления, исчисления суммы и помещающую полученный результат в соответствующую ячейку.

3. В таблицу добавьте дополнительный столбец “Вид оплаты”, принимающий значения 1, 2 или 0, в зависимости от выбранного на форме переключателя “Наличный”, “Карта” или “Безналичный”.

4. Создайте форму “Скидка” для ввода данных в новую таблицу на одноименном листе, состоящую из двух столбцов – “Вид оплаты” и “Процент скидки”. Вид оплаты необходимо выбирать из раскрывающегося списка.

5. На форму “Расчет” добавьте поле и кнопку для определения суммы скидки, исходя из данных таблицы на листе “Скидка”. Результаты расчета поместите в дополнительный столбец на листе “Товары”.