Рисунок 41 - Активация маркера Label

Определил количество страховок по категориям. Выбран Name в области Dimensions и перенесен в Rows. В качестве типа графика выбрана горизонтальная столбчатая диаграмма. Выбран тип сортировки. Результат выполнения запроса представлен на рис. 42.

Рисунок 42 - Визуализация запроса

Определил количество оформленных страховок длякаждого отделения. Выбран Branch Code и Name of Branch в области Dimensions и перенесен в Rows. Выбран Calculation

в области Measures и перенесен в Colomns. Отформатирован цвет и размер шрифта у заголовков и подписей по координатным осям (рис.43). Изменен цвет у столбцов диаграммы с помощью маркера Color.

Рисунок 43 - Визуализация запроса

22

Какими отделения пользуются клиенты для оформлениястраховок.

Рисунок 46 - Результат выполнения запроса

Создание дашборда

Рисунок 47 - Разработка dashboard «Отделения и типы страховок»

Опубликовать дашборд нет возможности, так как доступ к Tableau Public на территории РФ ограничен

24

Получена запросами соединения таблица, содержащая все данные

Рисунок 48 - Таблица, с которой будет взаимодействовать форма

Кодкнопкиэкспортав Word:

Private Sub export_to_word_Click() Dim WordApp As Object

Dim strAddress As String 'Определяем размер таблицы

strAddress = ActiveCell.CurrentRegion.Address 'Копируем данные Excel ActiveSheet.Range(strAddress).Copy

Set WordApp = CreateObject("Word.Application") With WordApp

.Visible = True ' Запуск приложения Word

.Documents.Add ' Добавление нового документа

.Selection.Paste ' Вставка скопированной области

End With

End Sub

Кодкнопкиочисткифильтров

Private Sub clear_filter_Click() 'Снятие всех фильтров

ActiveSheet.ShowAllData

'Вывод сообщения о снятии условий фильтрации MsgBox "Сняли условия фильтрации"

End Sub

Кодкнопкипоискапоназваниюкомпании

Private Sub find_by_name_company_Click() 'Задание значений параметров автофильтра

Dim strAddress, surname As String 'Определяем размер таблицы

strAddress = ActiveCell.CurrentRegion.Address 'Просим ввести название компании

surname = InputBox("Input name company", "Ввод фильтра") Range(strAddress).AutoFilter Field:=11, _

Criteria1:=surname

'Вывод сообщения о задании условий на столбец MsgBox "Задан фильтр по клиенту"

End Sub

25

Рисунок 49 - Результат проверки наличия фильтров

Рисунок 50 - Выполнение снятия фильтров

26

Рисунок 51 - Установка фильтра по названию компании «ООО «АЛЬЯНС-ПЛЮС»»

Рисунок 52 - Результат поиска по названию компании

Код кнопки поиска в промежутке суммы комиссионных

Private Sub find_client_between_price_Click() Dim strAddress, summaBegin, summaEnd As String strAddress = ActiveCell.CurrentRegion.Address

summaBegin = InputBox("Input min sum", «Input filter") summaEnd = InputBox("Input max sum", "Input filter") Range(strAddress).AutoFilter Field:=5, _ Criteria1:=">=" & summaBegin, _

Operator:=xlAnd, _ Criteria2:="<=" & summaEnd End Sub

Рисунок 53 - Ввод максимальной суммы

27

Рисунок 54 - Ввод минимальной суммы

Рисунок 55 - Результат применения фильтра

Код фильтра по дате:

Private Sub find_deal_between_date_Click() Dim strAddress, dateBegin, dateEnd As String strAddress = ActiveCell.CurrentRegion.Address

dateBegin = InputBox("Input left limit", "Input filter") dateEnd = InputBox("Input right limit", "Input filter") Range(strAddress).AutoFilter Field:=6, _ Criteria1:=">=" & Format(dateBegin, "mm/dd/yyyy"), _ Operator:=xlAnd, _

Criteria2:="<=" & Format(dateEnd, "mm/dd/yyyy") End Sub

Рисунок 56 - Ввод левой границы

28

Рисунок 57 - Ввод правой границы

Рисунок 58 - Результат применения фильтра

29