3. В переменную Дни записывается содержимое поля Дни (TextBox2.Text), преобразованное в число с плавающей точкой.

4. В переменную Суточные записывается содержимое поля Суточные (TextBox3.Text), преобразованное в число с плавающей точкой.

5. В переменную ЦенаБилета записывается содержимое поля Цена билета (TextBox4.Text), преобразованное в число с плавающей точкой.

6. В поле Общая сумма (TextBox5.Text) записывается результат расчета Дни*Суточные+ЦенаБилета*2, преобразованный в строку.

Инструментальные средства Excel не позволяют исполнить этот алгоритм без программирования. Решение подзадачи будет продолжено на этапе «Программирование».

Подзадача 3.4. - Работа кнопки Ок в ПФ

Словесное описание алгоритма:

1. Объявление переменных (Обозначим переменные: Дата - дата выезда в командировку, Фамилия — фамилия сотрудника, Организация - наименование организации, Дни - количество дней, Суточные -размер суточных. Цена - цена билета, Сумма - общая сумма расходов, Строка - номер первой пустой строки на листе «Командировки». Объявим переменные Дата, Фамилия, Организация, Дни, Суточные, Цена и Сумма как строковые, а переменную Строка как целое).

2. Присваивание переменной Дата содержимого поля Дата выезда (TextBoxl.Text).

3. Присваивание переменной Фамилия содержимого поля ввода поля со списком Фамилия И.О. (ComboBoxl.Text).

4. Присваивание переменной Организация содержимого поля ввода поля со списком Организация (ComboBox2.Text).

5. Присваивание переменным Дни, Суточные, Цена, Сумма содержимого из полей ввода соответственно TextBox2, TextBox3, TextBox4, TextBox5.

6. Поиск на листе «Командировки» первой пустой строки, присваивание переменной Строка ее номера.

7. Запись на лист «Командировки» в строку с номером Строка:

• в столбец А - значения переменной Дата;

• в столбец В - значения переменной Фамилия;

• в столбец С - значения переменной Организация;

• в столбец D - значения переменной Дни;

• в столбец Е - значения переменной Суточные;

• в столбец F - значения переменной Цена;

• в столбец G - значения переменной Сумма;

8. удаление ПФ с экрана.

Для решения подзадачи необходим этап «Программирование».

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

По нажатию на кнопку Отмена в ПФ эту форму необходимо убрать с экрана. Для этого необходимо создать программу.

Итак, для решения подзадач 3.3, 3.4 и 3.5 необходимо записать разработанные алгоритмы на языке программирования. Эта работа будет выполняться на этапе «Программирование».

Задача 4 - Меню

Разработку алгоритма для решения задачи «Меню» следует начать с проектирования меню, которое должно стать основой пользовательского интерфейса. Предположим, после запуска приложения на экране появится окно, показанное на рис. 31.

Вид этого окна зависит от требований заказчика. Спроектированное нами окно содержит надпись, сделанную с помощью объекта WordArt, и четыре кнопки.

Работа каждой кнопки - это отдельная подзадача.

Таким образом, в рамках задачи «Меню» решается пять подзадач

Для решения каждой из подзадач разработаем детальные алгоритмы.

Подзадача 4.1. Создание окна «Меню»

Словесное описание алгоритма:

1. Добавление листа Excel (команда Вставка-Лист) и переименование его в лист «Меню».

2. Выполнение надписи «Учет командировочных расходов» с помощью объекта WordArt.

3. Создание кнопок:

• Добавление панели инструментов «Элементы управления» (Вид - Панели инструментов - Элементы управления);

• переход в режим конструктора (для этого на панели элементов управления следует нажать на кнопку .0;

• вычерчивание кнопки на листе после указания на панели элементов элемента - Кнопка;

• изменение надписи на кнопке, контекстное меню для кнопки, команда Объект Command Button-Edit (Объект Кнопка - Изменить).

*Выполните три пункта разработанного алгоритма.

Для этой подзадачи этап «Программирование» пропускается.

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

После нажатия на кнопку Новый сотрудник на экране должна появиться встроенная форма для ввода информации о новом сотруднике.

Инструментальные средства Excel не позволяют решить подзадачу без программирования. Работа с этой подзадачей будет продолжена на этапе «Программирование»

Подзадача 4.3. Работа кнопки «Новая организация»

После нажатия на кнопку Новая организация на экране должна появиться встроенная форма для ввода данных на лист «Организации». Для решения подзадачи необходим этап «Программирование».

Подзадача 4.4. Работа кнопки «Новая командировка»

После нажатия на кнопку Новая командировка на экране должна появиться созданная нами пользовательская форма «Новая командировка» - UserForm1. Однако пользовательская форма не подготовлена для работы, так как в ней не были заполнены поля со списками.

В пользовательской форме UserForm 1 присутствуют два поля со списками - Список сотрудников (у нас - ComboBoxl) и Список организаций (у нас - ComboBox2). Алгоритмы для заполнения полей со списками могут быть разные. Приведем один из вариантов.

1. Объявление переменных (Обозначим NS - номер последней заполненной строки на листе «Сотрудники», N0 -номер последней заполненной строки на листе «Организации». Объявим переменные NS и N0 как целые. Объявим также две строковые переменные Д_сотр и Д_орг для запоминания диапазонов, содержащие фамилии сотрудников и наименования организаций).

2. Определение последней заполненной строки в столбце А на листе «Сотрудники» - NS.

3. Определение последней заполненной строки на листе «Организации» - N0.

4. Определение диапазона фамилий сотрудников (фамилии записаны в столбце А, начинаясь со второй строки и заканчиваясь строкой номер NS);

5. Определение диапазона наименований организаций (со второй по NO-ю строку столбца А);

6. Присваивание имени «Сотр» диапазону, содержащему фамилии сотрудников.

7. Присваивание имени «Орг» диапазону, содержащему наименования организаций,

8. В ПФ «Новая командировка» (UserForml) очистка всех полей для ввода: Дата выезда (TextBoxl), Количество дней (TextBox2), Суточные (TextBox3), Цена билета (TextBox4), Общая сумма (TextBox5), Фамилия И.О. (ComboBoxl), Организация (ComboBox2).

9. Указание источника строк для поля со списком Фамилия И.О (ComboBoxl) - «Сотр».

10. Указание источника строк для поля со списком Организация (ComboBox2) - «Орг».

11. Вывод ПФ на экран.

Работа с подзадачей будет продолжена на этапе «Программирование».

Подзадача 4,5. Работа кнопки «Выход»

После нажатия на кнопку Выход приложение должно закрыться.

Для этого необходимо создать программу.

Итак, для подзадач 4.2, 4.3, 4.4, 4.5 необходимо записать разработанные алгоритмы на языке программирования. Эта работа выполняется на этапе «Программирование».

Четвертый этап - Программирование.

Как было показано выше, при подготовке к решению первой и второй задач этап «Программирование» пропускается.

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

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

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

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

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

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

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

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

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

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

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

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

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

*Выполните следующие операции.

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

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

панель инструментов с кнопкой Остановить запись - . Теперь все производимые нами действия будут записываться до тех пор, пока не будет нажата эта кнопка.

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

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

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

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

команду Сервис-Макрос-Макросы.

Выделите макрос «Новый_сотрудник» и нажмите кнопку. Изменить. Это вызовет появление главного окна редактора VBA с текстом записанного макроса (см. рис.34).

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

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

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

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

* выполните следующие действия:

• выделите две строки программы в макросе и поместите их в буфер обмена;

• закройте окно редактора VBA;

• перейдите на лист «Меню» и вызовите контекстное меню для кнопки Новый сотрудник;

23