Информация о запросах из стран: {список стран}
|
Сайт |
Текст запроса |
Дата запроса |
Страна |
Поисковая система |
Время на сайте, мин |
Количество посещённых страниц |
|
… |
… |
… |
Страна 1 |
… |
… |
… |
|
… |
… |
… |
… |
… |
… |
… |
|
… |
… |
… |
Страна 1 |
… |
… |
… |
|
Итого по {Страна 1}: |
… |
… | ||||
|
… |
… |
… |
… |
… |
… |
… |
|
… |
… |
… |
Страна n |
… |
… |
… |
|
… |
… |
… |
… |
… |
… |
… |
|
… |
… |
… |
Страна n |
… |
… |
… |
|
Итого по {Страна n}: |
… |
… | ||||
Количество отформатированных строк в итоговой таблице, не считая заголовка, шапки и итоговых строк, должно совпадать с количеством сформированных записей.
Записи должны быть отсортированы по странам, затем по сайтам и поисковым системам.
Сохранить таблицу в файле Страны.xls. Книга должна иметь один лист. Название листа – текущая дата.
Файл поместить в папку С:\Запросы\{Месяц}. При отсутствии папки – создать её.
Запрос на формирование списка запросов реализовать с помощью формы, которая имеет следующий вид:
Рис.1. Форма запроса
В поле со списком Месяцпользователь выбирает нужный ему месяц. На основе выбранного месяца открывается рабочая книга.
В списке (ListBox)Страныпользователь указывает страны (предусмотреть возможность выбора нескольких стран). Список содержит следующие элементы:Армения, Белоруссия, Казахстан, Россия, Украина. По умолчанию установить первый элемент списка.
Кнопку ОКсвязать с клавишей [Enter], кнопкуОтмена– с клавишей [Escape].
Предусмотреть обработку событий, связанных с различными состояниями исходных БД и конечного файла: закрыты, открыты, не существуют. При наличии конечного файла выдать запрос на его замену.
Программа должна находиться в файле Программа Запросы.xls.
При открытии файла с программой в стандартном интерфейсе Excelдолжна появляться панель инструментов с кнопкамиО программеиЗапросы. При щелчке по кнопкеО программена экране должна появляться форма с данными о разработчике программы. Вторая кнопка предназначена для вызова формы (рис.1).
При закрытии файла с программой привнесенный пользовательский интерфейс должен удаляться.
Оформить программу согласно требованиям, изложенным на лекциях.
Придумать свой вариант задания.
Листинг программы
Microsoft Excel Objects
ЭтаКнига
Private Sub Workbook_Open()
Dim OprogrButton, ZapButton As CommandBarButton
Dim MyBar As CommandBar
Set MyBar = Application.CommandBars.Add
With MyBar
.Name = "Панель Запросы"
.Visible = True
.Position = msoBarTop
End With
Set OprogrButton = MyBar.Controls.Add(Type:=msoControlButton)
With OprogrButton
.Style = msoButtonCaption
.Caption = "О программе"
.Enabled = True
.OnAction = "ФормаОПрограмме"
End With
Set ZapButton = MyBar.Controls.Add(Type:=msoControlButton)
With ZapButton
.Style = msoButtonCaption
.Caption = "Запросы"
.Enabled = True
.OnAction = "ФормаЗапросы"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Bar In Application.CommandBars
If Bar.Name = "Панель Запросы" Then
Bar.Delete
Exit For
End If
Next
End Sub