1.2 Составление штатного расписания больницы. Создание простых макросов

1. Заполнена таблица (таб. 1.2.1). Основным считается оклад санитарки. Коэффициенты назначаются следующим образом:

   • медсестра должна получать в 1,5 раза больше санитарки;

   • врач – в 3 раза больше санитарки;

   • заведующий отделением – на $30 больше, чем врач;

   • заведующий аптекой – в 2 раза больше санитарки;

   • заведующий хозяйством – на $40 больше медсестры;

   • главный врач – в 4 раза больше санитарки;

   • заведующий больницей – на $20 больше главного врача.

Оклад находится по формуле: Оклад=А*(Оклад санитарки)+В.

Таблица 1.2.1 – Штатное расписание больницы

Должность	Количество сотрудников	Коэффициенты оклада		Оклад	Итого
		А	В
Санитарка	7	0	0	133,11	931,76
Медсестра	9	1,5	0	199,66	1796,96
Врач	11	3	0	399,32	4392,57
Заведующий аптекой	1	2	0	266,22	266,22
Заведующий отделением	3	3	30	429,32	1287,97
Главный врач	1	4	0	532,43	532,43
Заведующий хозяйством	1	1,5	40	239,66	239,66
Заведующий больницей	1	4	20	552,43	552,43
					10000,00

2. Подбор оклада санитарки произведен при помощи функции «Подбор параметра»: Сервис | Подбор параметра (рис. 1.2.1).

Рисунок 1.2.1 – Диалоговое окно «Подбор параметра»

В поле Установить в ячейке введен адрес ячейки, где вычисляется зарплата всех сотрудников больницы ($F$12). В поле Значение введено значение месячного фонда (10000). В поле Изменяя значение ячейки введен адрес ячейки с окладом санитарки ($E$4).

3. Данная таблица скопирована на второй лист. Чтобы записать макрос выбрана команда Сервис | Макрос | Начать запись. В диалоговом окне Запись макроса (рис 1.2.2) задано имя макроса «Staff», в поле Сохранить в: Эта книга. После нажатия кнопки ОК все действия над ячейками записываются.

Рисунок 1.2.2 – Диалоговое окно «Запись макроса»

4. Проведена операция «Подбор параметра».

5. Остановлена запись макроса.

6. Для просмотра макроса выполнено Сервис | Макрос | Макросы |, выбран записанный макрос «Staff» и нажат кнопка Изменить. Открывается окно редактора VBA с текстом макроса.

Записанный макрос имеет следующий вид:

Sub Staff()

Range("F12").GoalSeek Goal:=10000, ChangingCell:=Range("E4")

End Sub

В данном окне можно редактировать макрос.

7. Размещена кнопка на рабочем листе, для этого вынесена панель инструментов Формы при помощи Сервис | Настройка | Панель инструментов | Формы. На панели выбрана форма Кнопка и расположена на листе щелчком мыши. Одновременно с этим открывается диалоговое окно Назначить макрос объекту (рис. 1.2.3) и в поле Имя макроса выбрано имя данного макроса «Staff».