5. 1 Запросы в ms Excel
5.1.1 Диаграмма №1
Построить диаграмму, которая отражает общее количество путевок, проданные фирмой в каждом месяце заданного диапазона. (Рис. 35).
Рисунок 35. Диаграмма №1
5.1.2 Диаграмма №2
Построить диаграмму, которая для каждого маршрута отражает уровень популярности по месяцам в заданном диапазоне дат. (Рис. 36).
Рисунок 36. Диаграмма №2
5.1.3 Диаграмма №3
Построить диаграмму, которая для определенного клиента отображает сумму его затрат на приобретение путевок по месяцам в заданном диапазоне дат. (Рис. 37).
Рисунок
37. Диаграмма №3
5.1.4 Диаграмма №4
Построить диаграмму, которая для каждого класса отеля отражает уровень популярности по месяцам в заданном интервале. (Рис. 38).
Рисунок 38. Диаграмма №4
5.2 Сводная диаграмма
Все ранее созданные диаграммы были сводными – на основе созданных сводных таблиц.
Создадим еще одну сводную диаграмму по общей прибыли по каждому маршруту и клиенту (Рис. 39).
Рисунок 39. Сводная диаграмма
6 Анализ и обработка данных средством VBA
В данной части работы мы сохраним несколько макросов для удобной сортировки списка заказов.
Программный код 1:
Sub Макрос1()
'
' Макрос1 Макрос
'
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=4, _
Criteria1:=">=1/1/2023", _
Operator:=1, _
Criteria2:="<=12/31/2023"
Пример выполнения (Рис. 40):
Рисунок 40. Выполнение макроса сортировки
Теперь настроим фильтр по дате возврата сегодня. Текущая дата тянется из даты системы.
Программный код 2:
Sub Макрос2()
'
' Макрос2 Макрос
'
'
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=2, Criteria1:= _
"2"
End Sub
Пример выполнения (Рис. 41):
Рисунок
41. Выполнение макроса сортировки
Наконец, сохраним макрос на очистку всех фильтров и сортировки.
Программный код 3:
Sub Макрос3()
'
' Макрос3 Макрос
'
'
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=2
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=4
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=5
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=6
ActiveSheet.ListObjects("Путевки").Range.AutoFilter Field:=7
End Sub
Из-за не исправимой на данный момент ошибки «1004» при выполнении строчки кода «Sheet(“SheetName”).ShowAllData» пришлось пользоваться таким методом сброса фильтров.
Пример выполнения (Рис. 42):
Рисунок 42. Выполнение макроса очистки фильтров и сортировки
Далее создадим на листе Заказы три фигуры и назначим на каждый из них ранее созданные макросы (Рис. 43).
Рисунок
43. Кнопки макросов
Выводы
В ходе выполнения курсового проекта мною были изучены возможности анализа данных и создания интерактивных отчетов на основе данных, взятых из внешних источников, средствами MS Excel.
Разработана база данных в MS Access по выбранной тематике, сконструированы сложные запросы к данным, осуществлена динамическая связь между приложениями MS Office, произведён анализ данных спроектированной базы данных средствами MS Excel, получены навыки анализа и обработки данных средствами VBA, построены сводные таблиц и диаграммы средствами MS Excel, получены навыки разработки и реализации макросов для автоматизации рутинных операций в MS Excel и MS Access.
Получены навыки создания и работы с формами MS Access, в частности, с главной кнопочной формой и формой авторизации, разграничивающей доступы в правах разным пользователям.
Получены навыки эффективно использовать средства бизнес–анализа с помощью инструментальных средств MS Excel и MS Access.
Визуализировать данные с помощью системы бизнес–аналитики Tableau возможности не было, так как компания приняла решение остановить продажу лицензий на российском рынке и объявила, что ранее приобретенные лицензии не будут продлены.