5 ПРИМЕР ВЫПОЛНЕНИЯ ЗАДАНИЯ

Задание

Автоматизировать расчет размеров платы за жилую площадь для 16– квартирного дома.

Порядок выполнения

1. Создать на листе 1 по образцу таблицу и заполнить столбцы данными: «Но- мер квартиры», «Жилая площадь», «Количество проживающих».

В отдельных ячейках зафиксировать данные: − цена 1 м2 – 200 р.; − величина удорожания – 20 %;

− курс рубля по отношению к доллару – 67 р./дол.

2. Данные из таблицы с листа 1 записать в массив и вывести на лист 2. 3. С помощью макроса рассчитать и вывести в таблицу на листе 2:

− размер квартплаты в рублях и долларах; − долю квартплаты по каждой квартире в общей стоимости.

При расчете учесть, что если размер жилой площади квартиры больше соци- альной нормы, то размер квартплаты увеличивается на величину удорожания. Раз- мер социальной нормы площади жилья определен федеральным стандартом и со- ставляет:

−18 м2 (общей площади жилья) на 1 члена семьи из трех и более человек; ·

−42 м2 для семьи из двух человек;

−33 м2 для одиноко проживающего человека.

4. С помощью макроса на лист 3 вывести:

37

−список квартир, в которых размер жилой площади меньше социальной нормы;

−максимальный размер квартплаты по дому и номер квартиры.

5 . Создать форму, позволяющую по номеру введенной квартиры отображать в окне формы следующую информацию:

−количество проживающих;

−размер жилой площади;

−размер квартплаты в рублях.

Форма должна содержать кнопки «Вывести данные», «Очистить», «Закрыть». Элементы формы отформатировать.

6. Создать лист «Управление» и на нем разместить:

−кнопки запуска макросов;

−кнопку запуска формы;

−кнопки перехода между листами.

Выполненное задание

Результаты выполнения показаны на рисунках 9–13. Коды макросов не пока-

заны.

Рисунок 9 – Лист «Панель управления»

38

Рисунок 10 – Лист «Исходные данные»

Рисунок 11 – Лист «Результаты расчета»

39

Рисунок 12 – Лист «Список»

Рисунок 13 – Окно формы с данными по квартире

40