Разработка программы по учету заявок клиентов туристического агентства «Истлайн»

     Вторая  строка листа используется для позиционирования управляющей кнопки выбора номера в отеле тура и перехода на лист «Авиа». Для этого записывается следующий макрос:

1. Выбирается нужный тип номера  отеля
2. Вся выбранная строка выделяется
3. Команда Сервис – Макрос – Начать запись
4. Дать имя макросу Выбор отеля
5. Команда Правка – Копировать
6. Выделить ячейку А1
7. Команда Правка – Вставить
8. Перейти на лист «Авиа»
9. Команда Сервис – Макрос – Остановить запись

           После этого возвращаемся на лист «Отели» и рисуем кнопку в левом верхним углу рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Выбор отеля».

           Проверяется работа макроса, т.е. при каждом нажатии  на кнопку «Выбрать отель» должен копироваться тот отель с выбранным типом номера, который будет выделен, в первую строку листа и автоматический переход на лист «Авиа». 
 
 
 
 

       

     4. Лист «Авиа»

     На  листе «Авиа» размещается информация о расписании движения самолетов, авиакомпаниях, номерах рейсов, типах мест, маршруты, цены на авиабилеты, тип самолетов, о времени отправления.

     В четвертой строке таблице отражается справочная информация выбранного клиентом тура, а именно страна и регион. Эта информация необходима для правильного подбора рейса туда и обратно. Для этого в ячейку А5 заносится формула со ссылкой на лист туры (=Туры!А1), в ячейку С5 (=Туры!D1), в ячейку D4 (=Туры!В1), и в ячейку Е4 (Туры!С1). В результате в ячейке А5 листа «Авиа» появится название тура, а в ячейках D4 и Е4 – даты начала и окончания тура.

     Для того чтобы правильно подобрать  рейс самолета, нужно знать дни  недели, соответствующие началу и концу тура. Для этого, в ячейки D5 и Е5 заносятся формулы ДЕНЬНЕД(D4;1) и ДЕНЬНЕД(Е4;1). Эти формулы можно найти Вставка/Функции.

     В строку-«шапка» заносится следующая  информация: номер рейса, наименование авиакомпании, маршрут, отправление, прибытие, дни отправления, тип места, цена, описание рейса и тип самолета.

     В справочник заносится информация по каждому рейсу (прямому и обратному), соответственно пунктам назначения, срокам начала и окончания туров, указанным в справочнике листа «Туры». Информация подбирается из действующих расписания авиакомпаний.

     Во  всей строке-«шапке» устанавливается  автофильтр (команда Данные/Фильтр/Автофильтр). Для выбора сначала активизируется кнопка с указанием маршрута, а затем «мышью» «подсвечивается» строка с выбранным типом места. По выбранным данным подбирается авиарейс сначала «туда», а затем «оттуда».

     Треть строка используется для позиционирования двух управляющих кнопок выбора рейса  «рейс туда» и «рейс обратно». Для этого нужно записать два макроса. Сначала записывается макрос для кнопки «рейс туда»:

1. Выбирается нужный рейс
2. Вся выбранная строка выделяется
3. Команда Сервис – Макрос – Начать запись
4. Дать имя макросу Выбор рейса туда
5. Команда Правка – Копировать
6. Выделить ячейку А1
7. Команда Правка – Вставить
8. Команда Сервис – Макрос – Остановить запись

 
 
 

Макрос для  второй кнопке «рейс обратно» записывается следующим образом:

1. Выбирается нужный рейс
2. Вся выбранная строка выделяется
3. Команда Сервис – Макрос – Начать запись
4. Дать имя макросу Выбор рейса обратно
5. Команда Правка – Копировать
6. Выделить ячейку А2
7. Команда Правка – Вставить
8. Перейти на лист «Клиенты»
9. Команда Сервис – Макрос – Остановить запись

           После этого возвращаемся на лист «Авиа» и рисуем 2 кнопки в правом верхним углу рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданных макросов: для кнопки «рейс туда» выбирается им макроса «Выбор рейса туда», а для кнопки «рейс обратно» -  «Выбор рейса обратно».

           Проверяется работа макросов, т.е. при каждом нажатии  на кнопку «рейс туда» должен копироваться рейс, который был выбран, в первую строку листа «Авиа», а при каждом нажатии на кнопку «рейс обратно» должен копироваться обратный рейс, который был выбран, во вторую строку листа «Авиа» и автоматический переход на лист «Клиенты». 
 
 
 
 
 
 

       

           5. Лист «Клиенты»

           На листе «Клиенты» содержится информация о клиентах: именах, датах рождения, адресах, телефонах и паспортных данных.

           В третьей строке листа располагается «шапка»  справочника данных о клиентах: фамилия  и имя, паспорт, дата рождения, адрес, телефон.

           Справочник заполняется  данными о 20 клиентах в произвольном порядке. По окончанию ввода выделяется весь диапазон записей, начиная с  четвертой строки, и выполняется  сортировка таблицы по возрастанию  командой Данные/Сортировка.

           В этой таблице в  строке-«шапке» фильтр не будет устанавливаться, поскольку поиск в отсортированной  таблице ведется прокруткой строк. Но для того, чтобы «шапка» и  управляющая кнопка постоянно присутствовали на экране, три верхних строки закрепляются с помощью команды Окно/Закрепить области.

           Во второй строке располагается управляющая кнопка выбора данных из справочника и перехода на следующий лист «ТУР-1». Перед тем, как нарисовать кнопку «Выбрать клиента» записывается макрос:

1. Выбирается нужный клиент
2. Вся выбранная строка выделяется
3. Команда Сервис – Макрос – Начать запись
4. Дать имя макросу Выбор клиента
5. Команда Правка – Копировать
6. Выделить ячейку А1
7. Команда Правка – Вставить
8. Перейти на лист «ТУР-1»
9. Команда Сервис – Макрос – Остановить запись

           После этого возвращаемся на лист «Клиенты» и рисуем кнопку в левом верхним углу рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Выбор клиента».

           Проверяется работа макросов, т.е. при каждом нажатии  на кнопку «Выбрать клиента» должны копироваться данные о выбранном клиенте в первую строку листа «Клиенты» и автоматический переход на лист «ТУР-1». 
 
 
 

 
 
 
 

6. Лист «ТУР-1»

           Лист «ТУР-1» содержит маску типовой формы путевки ТУР-1, оформленную средствами Excel в полном соответствии с установленными требованиями. Данные формы заполняются автоматически для каждого клиента, а затем распечатываются.

           Первая строка листа  «ТУР-1» предназначена для калькуляции валютной стоимости тура и пересчету суммы в рубли по текущему курсу. Для этого в ячейке В1 вводится текущая дата (команда Вставка/Функция/ТДАТА()),  в ячейку С1 заносится значение текущего курса валюты, а в ячейку D1 формула калькуляции тура со ссылками на первые строки соответствующих справочников – туры, отели, транспорт, и ячейки, в которых отражены цены данных услуг.

           =(Туры!F1+Отели!F1*Туры!I1+Авиа!I2)*’ТУР-1’!C1, т.е. это будет означать =(Цена тура в валюте+Суточная цена номера*Всего ночей+Цена авиабилетов туда+Цена авиабилетов обратно)*курс валюты.

           Служебные данные листа  «ТУР-1» отделяются от маски формы командой Окно/Разделить в четвертой строке, начиная с которой рисуется в масштабе 1:1 форма путевки «ТУР-1». Значения полей формы заполняются формулами (некоторые из них вводятся вручную, а другие с помощью команды Вставка/Функция). Формулы в путевки выделяются синим шрифтом (команда Формат/Ячейки/Шрифт):

Примечание. В зависимости от структуры справочников ссылки на ячейки, содержащие требуемую информацию, могут иметь другие адреса. Логическая увязка формул в таблицах является самостоятельной задачей. 

           В третьей строке листа «ТУР-1» позиционируется управляющая кнопка «Просмотр и печать путевки». Макрос для этой кнопки записывается следующим образом:

           1. Команда Сервис – Макрос – Начать запись

       2. Дать имя макросу Просмотр и печать путевки

       3. Команда Файл – предварительный просмотр

       4. На панели инструментов нажать кнопку «печать» (если это необходимо)

       5. Нажать на кнопку «Закрыть»

       6. Перейти на лист «Заявки»

       7. Команда Сервис – Макрос – остановить запись

           После этого возвращаемся на лист «ТУР-1» и рисуем кнопку по центру на третьей строке рабочего листа, появится диалоговое окно «Назначить макрос объекту», в нем выбирается имя созданного макроса «Просмотр и печать путевки».

           Проверяется работа макросов, т.е. при каждом нажатии  на кнопку «Просмотр и печать путевки» путевка должна переходить в режим предварительного просмотра, если было записано, то выводится на печать после нажатия кнопки «Закрыть» и автоматический переход на лист «Заявки». 
 

             

7. Лист «Заявки»

            Лист «Заявки» предназначен для формирования базы данных реализованных путевок. Накопленные данные в дальнейшем могут использоваться для анализа и бизнес-планирования объемов реализации турфирмы.

            В первой строке листа  содержатся формулы со ссылками на информацию, выбранную из справочников по данному клиенту. В ячейку А1 записывается формула =Туры!А1, в ячейку В1 - =Клиенты!А1, в ячейку С1 - =Туры!В1, в D1 - =Туры!С1 и в ячейку Е1 - ='ТУР-1'!D1.

            В третьей строке листа содержится «шапка» таблицы. Включает в себя: тур, клиент, начало тура, конец, тура и стоимость.