Разработка программы по учету заявок клиентов туристического агентства Истлайн (стр. 3 из 4)
Первая строка листа «ТУР-1» предназначена для калькуляции валютной стоимости тура и пересчету суммы в рубли по текущему курсу. Для этого в ячейке В1 вводится текущая дата (команда Вставка/Функция/ТДАТА()), в ячейку С1 заносится значение текущего курса валюты, а в ячейку D1 формула калькуляции тура со ссылками на первые строки соответствующих справочников – туры, отели, транспорт, и ячейки, в которых отражены цены данных услуг.
=(Туры!F1+Отели!F1*Туры!I1+Авиа!I2)*’ТУР-1’!C1, т.е. это будет означать =(Цена тура в валюте+Суточная цена номера*Всего ночей+Цена авиабилетов туда+Цена авиабилетов обратно)*курс валюты.
Служебные данные листа «ТУР-1» отделяются от маски формы командой Окно/Разделить в четвертой строке, начиная с которой рисуется в масштабе 1:1 форма путевки «ТУР-1». Значения полей формы заполняются формулами (некоторые из них вводятся вручную, а другие с помощью команды Вставка/Функция). Формулы в путевки выделяются синим шрифтом (команда Формат/Ячейки/Шрифт):
| Наименование поля | Формула |
| Тур | =Туры!А1 |
| Начало тура | =Туры!В1 |
| Конец тура | =Туры!С1 |
| (день отправления) | =ЕСЛИ(ДЕНЬНЕД(B9;1)=1;"ВОСКР";ЕСЛИ(ДЕНЬНЕД(B9;1)=2;"ПОН";ЕСЛИ(ДЕНЬНЕД(B9;1)=3;"ВТОР";ЕСЛИ(ДЕНЬНЕД(B9;1)=4;"СРЕДА";ЕСЛИ(ДЕНЬНЕД(B9;1)=5;"ЧЕТВЕРГ";ЕСЛИ(ДЕНЬНЕД(B9;1)=6;"ПЯТНИЦА";ЕСЛИ(ДЕНЬНЕД(B9;1)=7;"СУББОТА"))))))) |
| (день прибытия) | = ЕСЛИ(ДЕНЬНЕД(B10;1)=1;"ВОСКР";ЕСЛИ(ДЕНЬНЕД(B10;1)=2;"ПОН";ЕСЛИ(ДЕНЬНЕД(B10;1)=3;"ВТОР";ЕСЛИ(ДЕНЬНЕД(B10;1)=4;"СРЕДА";ЕСЛИ(ДЕНЬНЕД(B10;1)=5;"ЧЕТВЕРГ";ЕСЛИ(ДЕНЬНЕД(B10;1)=6;"ПЯТНИЦА";ЕСЛИ(ДЕНЬНЕД(B10;1)=7;"СУББОТА"))))))) |
| ФОИ клиента | =Клиенты!А1 |
| Паспортные данные | =Клиенты!В1 |
| Адрес | =Клиенты!D1 |
| Телефон | =Клиенты!Е1 |
| Маршрут | =Туры!А1 |
| Отель | =Отели!А1 |
| Расположение отеля | Туры!D1 |
| Категория отеля | =Отели!С1 |
| Тип номера | =Отели!Е1 |
| Билеты туда: Компания | =Авиа!А1 |
| № рейса | =Авиа!В1 |
| Маршрут | =Авиа!С1 |
| Дата вылета | =Авиа!D4 |
| Время вылета | =Авиа!D1 |
| Время прилета | =Авиа!E1 |
| Билеты обратно: Компания | =Авиа!A2 |
| № рейса | =Авиа!B2 |
| Маршрут | =Авиа!C2 |
| Дата вылета | =Авиа!E4 |
| Время вылета | =Авиа!D2 |
| Время прилета | =Авиа!E2 |
| Курс валюты | =C1 |
| Стоимость по курсу | =D1 |
| Дата продажи | =ТДАТА() |
| Продавец | =Туры!M1 |
Примечание.В зависимости от структуры справочников ссылки на ячейки, содержащие требуемую информацию, могут иметь другие адреса. Логическая увязка формул в таблицах является самостоятельной задачей.
В третьей строке листа «ТУР-1» позиционируется управляющая кнопка «Просмотр и печать путевки». Макрос для этой кнопки записывается следующим образом:
1. Команда Сервис – Макрос – Начать запись
2. Дать имя макросу Просмотр и печать путевки
3. Команда Файл – предварительный просмотр
4. На панели инструментов нажать кнопку «печать» (если это необходимо)
5. Нажать на кнопку «Закрыть»
6. Перейти на лист «Заявки»
7. Команда Сервис – Макрос – остановить запись
После этого возвращаемся на лист «ТУР-1» и рисуем кнопку по центру на третьей строке рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Просмотр и печать путевки».
Проверяется работа макросов, т.е. при каждом нажатии на кнопку «Просмотр и печать путевки» путевка должна переходить в режим предварительного просмотра, если было записано, то выводится на печать после нажатия кнопки «Закрыть» и автоматический переход на лист «Заявки».
7. Лист «Заявки»
Лист «Заявки» предназначен для формирования базы данных реализованных путевок. Накопленные данные в дальнейшем могут использоваться для анализа и бизнес-планирования объемов реализации турфирмы.
В первой строке листа содержатся формулы со ссылками на информацию, выбранную из справочников по данному клиенту. В ячейку А1 записывается формула =Туры!А1, в ячейку В1 - =Клиенты!А1, в ячейку С1 - =Туры!В1, в D1 - =Туры!С1 и в ячейку Е1 - ='ТУР-1'!D1.
В третьей строке листа содержится «шапка» таблицы. Включает в себя: тур, клиент, начало тура, конец, тура и стоимость.
Во второй строке позиционируются две кнопки «Внести в базу» и «Оформить новую».
Кнопка «Внести в базу» реализует макрос вставки новой строки в базу данных заявок с последующим копированием значений, вычисленных по формулам первой строки листа – копирования в режиме «Специальная вставка». После копирования автоматически выполняется сортировка таблицы по видам туров и подводятся итоги по каждому туру. Макрос записывается следующим образом:
1. Команда Сервис – Макрос – Начать запись
2. Дать имя макросу Внести в базу
3. Поставить курсор в ячейку А5
4. Команда Вставка – Строки
5. Выделить первую строку
6. Команда Правка – Копировать
7. Перейти в А
8. Команда Правка – Специальная вставка
9. Пометить пункт Значения – ОК
10. Выполнить команду Данные – Сортировка (сортировать по полю Тур, по возрастанию) – ОК
11. Выполнить команду Данные – Итого (подвести итоги суммарной стоимости по каждому туру) – ОК
12. Команда Сервис – Макрос – Остановить запись
После этого рисуем кнопку в правом верхнем углу на второй строке рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Внести в базу».
Проверяется работа макросов, т.е. при каждом нажатии на кнопку «Внести в базу» вносятся данные о выбранном клиенте в базу данных (таблицу), рассчитывается стоимость его тура и подводятся общие итоги.
Кнопка «Оформить новую» завершает цикл работы с клиентом и возвращает программу на стартовый лист «Заставка». Макрос записывается следующим образом:
1. Команда Сервис – Макрос – Начать запись
2. Дать имя макросу Оформить_новую
3. Перейти на лист «Заставка»
4. Выполнить команду Сервис – Макрос – Остановить запись
После этого рисуем кнопку в левом верхнем углу на второй строке рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Оформить новую».
Проверяется работа макросов, т.е. при каждом нажатии на кнопку «Оформить новую» автоматически переходим на лист «Заставка».
Глава II. Алгоритм работы программы «Истлайн»
1. Описание как пользоваться программой (по пунктам)
Подробная инструкция по применению программы по учету заявок клиентов для туристического агентства «Истлайн».
1. Открыть книгу программы Excel под именем «Истлайн».
2. Открывается первый лист книги «Заставка» (содержит в себе названия турагентства, логотип фирмы, имя разработчика программы).
3. Нажать на кнопку «ОФОРМЛЕНИЕ ЗАЯВКИ».
4. Автоматический переход на лист «Туры».
5. Активизировать кнопку «начала тура» в таблице.
6. Выбрать нужную дату (указанную в заявке клиента).
7. Активизировать кнопку «регион» в таблице.
8. Выбрать указанный в заявке регион.
9. Далее выбирать нужные параметры, указанные в заявке клиента.
10. Затем «подсвечивается» выбранный тур (с помощью «мыши»).
11. Нажать на кнопку «Выбрать тур».
12. Автоматический переход на лист «Отели».
13. Активизировать кнопку «название отеля» в таблице.
14. Выбрать указанный в заявке отель.
15. Затем «подсвечивается» строка с нужным типом номера (указанным в заявке).
16. Нажать на кнопку «Выбрать отель».
17. Автоматический переход на лист «Авиа».
18. Активизировать кнопку «маршрут».
19. Сначала выбрать интересующий маршрут «туда».
20. «Подсветить» строку с помощью «мыши» с нужной Авиакомпанией (по желанию клиента).
21. Активизировать кнопку «маршрут».
22. Нажать на кнопку «рейс туда».
23. Затем выбрать обратный маршрут.
24. «Подсветить» строку «мышью» с нужной Авиакомпанией.
25. Нажать на кнопку «рейс обратно».
26. Автоматический переход на лист «Клиенты».
27. Найти в таблице данных нужного Вам клиента.
28. «Подсветить» строку с данными интересующего Вас клиента «мышью».
29. Нажать на кнопку «Выбрать клиента».
30. Автоматический переход на лист «ТУР-1».
31. На листе «ТУР-1» содержится форма путевки с указанными в заявке клиента требованиями и данными об этом клиенте, а также названия принимающей стороны и расчет стоимости тура.
32. Нужно поменять в первой строке листа курс валюты на текущую дату.
33. Нажать на кнопку «Просмотр и печать».
34. Проверить еще раз все параметры (во избежание ошибок).