Требования к оформлению ДЗ 2 и 3

ДОМАШНЕЕ ЗАДАНИЕ №2 и №3

по курсу

«Макросы и приложения»

Вариант № 14-61

Студент группы: И8-12-1 Раевский Михаил

Преподаватель: Муратова С.Ю.

Москва 2014г.

 

Оглавление

Оглавление. 2

1. Постановка задачи. 3

1.1. ДЗ № 2 (Вариант № 14 - 51). 3

Постановка задачи

ДЗ № 2 (Вариант № 14 - 61)

1. В базе данных Excel Фитнес-клубы.xls хранятся данные о месте расположения и работе фитнес-клубов. БД хранится в папке E:\Фитнес и имеет следующую структуру:

Фрагмент БД:

Название клуба	Станция метро	Направление	Вид нагрузок	Начало тренировки	День недели
RiaSport	Пражская	Аэробный класс	Аэробика	10.00	Понедельник
RiaSport	Пражская	Силовой класс	Interval step	15.00	Понедельник
RiaSport	Пражская	Силовой класс	Interval step	18.00	Понедельник
СпорКлубГигант	Ясенево	Оздоровительный класс	Калланетик	12.00	Среда
RiaSport	Белорусская	Силовой класс	ABS+flex	16.00	Вторник
SportLand	Комсомольская	Аэробный класс	Аэробика	15.00	Четверг
RiaSport	Пражская	Аэробный класс	Аэробика	10.00	Среда
RiaSport	Пражская	Силовой класс	Interval step	15.00	Среда
RiaSport	Пражская	Силовой класс	Interval step	18.00	Среда
СпорКлубГигант	Ясенево	Аэробный класс	Степ	18.00	Понедельник
RiaSport	Беляево	Силовой класс	ABS+flex	15.00	Четверг
СпорКлубГигант	Марксистская	Оздоровительный класс	Пилатес	9.00	Пятница
RiaSport	Белорусская	Силовой класс	Interval step	14.00	Суббота
RiaSport	Перово	Аэробный класс	Аэробика	18.00	Воскресенье
СпорКлубГигант	Ясенево	Силовой класс	ABS+flex	15.00	Пятница
СпорКлубГигант	Пражская	Оздоровительный класс	Калланетик	10.00	Пятница
RiaSport	Белорусская	Силовой класс	Interval step	15.00	Понедельник
СпорКлубГигант	Комсомольская	Аэробный класс	Степ	18.00	Воскресенье
RiaSport	Выхино	Силовой класс	ABS+flex	10.00	Понедельник
СпорКлубГигант	Перово	Оздоровительный класс	Пилатес	18.00	Суббота
СпорКлубГигант	Ясенево	Аэробный класс	Степ	10.00	Пятница
RiaSport	Беляево	Силовой класс	Interval step	12.00	Понедельник
RiaSport	Перово	Аэробный класс	Степ	11.00	Среда
СпорКлубГигант	Красные ворота	Оздоровительный класс	Калланетик	12.00	Пятница
СпорКлубГигант	Фили	Аэробный класс	Степ	15.00	Понедельник
RiaSport	Аэропорт	Оздоровительный класс	Калланетик	9.00	Среда
SportLand	Борисово	Силовой класс	ABS+flex	10.00	Суббота
СпорКлубГигант	Борисово	Оздоровительный класс	Калланетик	18.00	Четверг
RiaSport	Люблино	Аэробный класс	Аэробика	9.00	Четверг
СпорКлубГигант	Пражская	Оздоровительный класс	Калланетик	10.00	Понедельник
SportLand	Борисово	Силовой класс	Interval step	15.00	Среда
SportLand	Белорусская	Оздоровительный класс	Пилатес	18.00	Пятница
СпорКлубГигант	Ясенево	Аэробный класс	Аэробика	9.00	Среда
SportLand	Аэропорт	Силовой класс	ABS+flex	10.00	Воскресенье
RiaSport	Тульская	Аэробный класс	Аэробика	18.00	Понедельник
SportLand	Фили	Аэробный класс	Степ	10.00	Воскресенье
СпорКлубГигант	Планерная	Оздоровительный класс	Пилатес	15.00	Четверг
RiaSport	Тульская	Аэробный класс	Степ	9.00	Понедельник
СпорКлубГигант	Аэропорт	Оздоровительный класс	Пилатес	18.00	Воскресенье
SportLand	Тульская	Силовой класс	ABS+flex	10.00	Четверг
RiaSport	Планерная	Оздоровительный класс	Пилатес	18.00	Понедельник
СпорКлубГигант	Люблино	Аэробный класс	Аэробика	10.00	Суббота
SportLand	Фили	Силовой класс	Interval step	9.00	Четверг
СпорКлубГигант	Планерная	Оздоровительный класс	Пилатес	10.00	Понедельник
SportLand	Люблино	Оздоровительный класс	Пилатес	18.00	Вторник
СпорКлубГигант	Тульская	Силовой класс	ABS+flex	9.00	Среда
SportLand	Люблино	Аэробный класс	Степ	15.00	Вторник
СпорКлубГигант	Беляево	Силовой класс	Interval step	9.00	Понедельник

 

2. Требуется (с помощью средств VBA) разработать программное обеспечение, позволяющее формировать расписание тренировок по заданным критериям отбора. Структура итоговой таблицы следующая:

Фитнес-клуб {Название клуба}, метро {Станция метро}

№	День недели	Начало тренировок	Направление	Вид нагрузок
	…	…	…	…

3. Количество отформатированных строк в итоговой таблице, не считая заголовка и шапки, должно совпадать с количеством отобранных записей.

4. Полученную таблицу сохранить в файле: { Название фитнес-клуба }.xls на листе с текущей датой. Книга должна иметь один лист.

5. Файл поместить в папку E:\Фитнес\ { Станция метро }. При отсутствии папки – создать её.

6. Запрос на создание искомого списка реализовать с помощью формы:

7. В списке Фитнес-клуб: пользователь указывает интересующий его клуб. Он формируется из значений одноименного столбца исходной БД. Список с клубами должен быть отсортирован по алфавиту. По умолчанию - первый элемент отсортированного списка.

8. Список Станция метро: формируется из названий станций, около которых расположен фитнес-клуб, выбранный пользователем. Список со станциями должен быть отсортирован по алфавиту. По умолчанию первый элемент списка – это название первой станции в отсортированном списке.

9. Кнопку ОК связать с клавишей [ Enter ], кнопку Отмена – с клавишей [ Escape ].

10. Программа должна находиться в файле Программа фитнес-клубы.xls.

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

12. Оформить программу согласно требованиям, изложенным на лекциях.

13. Придумать свой вариант задания.

ДЗ № 3

Модифицировать программу Программа фитнес-клубы.xls следующим образом:

14. При открытии файла с программой в стандартном интерфейсе Excel должна появляться панель инструментов Фитнес с кнопками О программе и Фитнес-клуб. При щелчке по кнопке О программе на экране должна появляться форма с данными о разработчике программы. Вторая кнопка предназначена для вызова формы, реализованной в ДЗ № 2.

15. При закрытии файла с программой привнесенный пользовательский интерфейс должен удаляться.

Требования к оформлению ДЗ 2 и 3

Отчет по ДЗ должен быть сдан в электронном и печатном виде и включать в себя:

1. Титульный лист (пустые строки недопустимы! Вспоминаем интервалы! J).

2. Оглавление.

3. Постановку задачи (задание, которое Вы получили от меня).

4. Листинг программы, напечатанный в редакторе VBA (или в редакторе Word: шрифт – Courier, 10 пунктов).

5. План тестирования программы.

6. Придуманное Вами задание.

7. Главы должны быть пронумерованы. Стиль заголовков – Заголовок 1. Если в главах имеются параграфы, то стиль заголовка должен соответствовать их уровню.

8. Электронная версия отчета должна быть оформлена согласно стандартам и принципам, изложенным в курсе «Офисные программные пакеты».

При невыполнении этих требований домашняя работа считается невыполненной и к защите не принимается!

Листинг программы

Эта книга:

ption Base 1

Dim ÊíèãàÎòêðûòà As Integer

Dim ÈìÿÔàéëà As String

Dim ÍîìåðÑòðîêè, j, i, k As Integer

Sub Workbook_BeforeClose(Cancel As Boolean)

For Each bar In Application.CommandBars

If (bar.Name = "ÍîâàÿÏàíåëü") Then

bar.Delete

Exit For

End If

Next

ÎòêðûòàËèÊíèãà Ôàéë2

If ÊíèãàÎòêðûòà = -1 Then

ActiveWorkbook.SaveAs Ôàéë2

Else

Ñîîáùåíèå = vbYesNo + vbQuestion

Îòâåò = MsgBox(("Ôàéë óæå ñóùåñòâóåò.Çàìåíèòü?"), Ñîîáùåíèå)

Select Case Îòâåò

Case vbNo

Exit Sub

End

Case vbYes

Kill Ôàéë2

ActiveWorkbook.SaveAs Ôàéë2

End

End Select

End If

End Sub

 

Sub Workbook_Open()

Call ÄîáàâèòüÏàíåëü

End Sub

Sub ÄîáàâèòüÏàíåëü()

Set Panel = Application.CommandBars.Add

With Panel

.Name = "ÍîâàÿÏàíåëü"

.Visible = True

.Position = msoBarTop

End With

Set FirstButton = Panel.Controls.Add(Type:=msoControlButton)

With FirstButton

.Style = msoButtonCaption

.Caption = "Î ïðîãðàììå"

.Enabled = True

.OnAction = "ShowAuthor"

End With

Set SecondButton = Panel.Controls.Add(Type:=msoControlButton)

With SecondButton

.Style = msoButtonCaption

.Caption = "Ôèòíåñ"

.Enabled = True

.OnAction = "Main"

End With

End Sub

 

 

Frm forma: