Работа кнопки Выход.

Работа кнопки Новая командировка.

Работа кнопки Новая организация.

Работа кнопки Новый сотрудник.

Работа кнопки Отмена в ПФ.

Работа кнопки Ок в ПФ.

Расчет суммы в ПФ.

При подготовке четвертой задачи нужно составить программы для четырех подзадач:

Программирование осуществляется в четком соответствии с детально разработанными алгоритмами.

В нашей задаче программирование целесообразно начать с подзадач четвертой задачи.

 

Подзадача 4.2 – Работа кнопки Новый сотрудник

Для создания программы вывода на экран встроенной формы используем MacroRecorder – транслятор, создающий программу (макрос) на языке VBA, которая является результатом перевода на язык VBA действий пользователя с момента запуска MacroRecorder до окончания записи макроса.

Активизируйте MacroRecorder с помощью команды Сервис-Макрос-Начать запись. Появится диалоговое окно «Запись макроса», см. рис. 20. Это диалоговое окно позволяет задать параметры макроса.

Рис.20. Диалоговое окно «Запись макроса»

 

По умолчанию макросам присваиваются имена Макрос1, Макрос2 и т.д. Чтобы легче было распознать макрос, лучше присвоить ему имя, поясняющее его назначение. Присвойте макросу имя Новый_сотрудник и нажмите кнопку Ок. Появится плавающая панель инструментов с кнопкой Остановить запись – . Теперь все производимые нами действия будут записываться до тех пор, пока не будет нажата эта кнопка.

1. Перейдите на лист «Сотрудники».

2. Вызовите встроенную форму (Данные-Форма);

3. Закройте встроенную форму.

4. Перейдите на лист «Меню»

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

Просмотрите записанную программу. Для этого выполните команду Сервис-Макрос-Макросы

Выделите макросНовый_сотрудник и нажмите кнопкуИзменить. Это вызовет появление главного окна редактора VBA c текстом записанного макроса, см. рис.21.

Рис.21. Главное окно редактора VBA

 

Таким образом, MacroRecorder записал нужную нам программу из трех строк:

Sheets(“Сотрудники”).Select – выбрать лист «Сотрудники».

ActiveSheet.ShowDataForm – вывести на экран встроенную форму.

Sheets(“Меню”).Select – выбрать лист «Меню».

Для того, чтобы эта программа выполнялась при нажатии на кнопку Новый сотрудник,назначьте макрос кнопке.

 

Подзадача 4.2 – Работа кнопки Новая организация

С помощью макрорекодера создайте макрос Новая_организация и назначьте этот макрос кнопке.

 

Подзадача 4.3 – Работа кнопки Новая командировка

Создайте макрос Новая_командировка и введите текст программы (комментарии набирать не обязательно):

Rem текст программы, выполняемой по нажатию

‘ на кнопку Новая командировка.

‘Объявление переменных:

‘NS – номер последней заполненой строки на листе «Сотрудники»,

‘NORG – номер последней заполненной строки на листе «Организации»

‘DS – диапазон, содержащий фамилии сотрудников,

‘DORG – диапазон, содержащий наименования организаций.