
- •Звіт із індивідуального завдання з дисципліни Програмні оболонки і пакети(4 семестр) Тема: “Створення програмної оболонки інформаційної системи обліку в Microsoft Excel vba”
- •1. Редактор „visual basic"
- •2.Уведення vba- коду, Оператори vba
- •3. Оператори управління программою
- •4. Основні поняття про об’єкти Excel 2003
- •5. Cтворення бази даних (бд)
- •6. Розроблення форми користувача
- •Першою створено процедуру активізації форми :
- •7. Кнопки для перегляду записів бд
- •Кнопка "Наступний запис"
- •Кнопка "Останній запис"
- •Кнопка "Перший запис"
- •Кнопка "Попередній запис"
- •8. Кнопки для редагування записів бд
- •Кнопка "Доповнити"
- •Кнопка "Редагувати"
- •Кнопка "Зберегти"
- •Кнопка "Відмінити"
- •Кнопка "Вихід"
- •Кнопка "Видалити"
- •Кнопка "Архівація"
- •Кнопка "Конвертація валют"
- •Кнопка "Сортування"
- •Кнопка "Змінити мову"
- •Поле "Назва міста"
- •Поле “Сезон“
- •Форма “Конвертація валют”
- •Кнопка "у гривні"
- •Кнопка “у валюту”
- •Поле”Назва валюти”
- •Висновок
- •Список використаної літератури
5. Cтворення бази даних (бд)
Умова задачі
Розробити книгу у MS Excel 2003 і скласти програму на мові Excel VBA для обліку діяльності туристичного бюро відповідно до міста та сезону.
1. Розробити електронні таблиці у середовищі MS Excel 2003: «Облік діяльності туристичного бюро» (30 записів), яка складається з наступних полів: № п/п, Дата,Прізвище клієнта, Назва міста, Кількість днів, Сезон (дата), Кількість путівок, Вид путівки, Вартість, Остаточна вартість (вид путівки); «Довідник міст»(5 записів), яка складається з наступних полів: назва міста, ціна за 1 день, ціна проїзду; «Довідник сезонів» (5 записів), яка складається з наступних полів: назва сезону, коефіцієнт.
а) ввести текстові і числові дані;
б) записати потрібні формули;
в) встановити зв'язок між основною таблицею і довідниками;
г) виконати форматування таблиць.
Рис 3.Облік діяльності туристичного бюро
Рис 4.Довідник міст та довідник сезонів
Значення полів “Прізвище клієнта”;“Назва міста”;“Вид путівки” вводяться за допомогою списків,що випадають.Значення поля “Сезон” залежить від поля “Дата”:
“Сезон”=ЕСЛИ(МЕСЯЦ(M4)<3;"Зимовий";ЕСЛИ(МЕСЯЦ(M4)<5;"Весняний";ЕСЛИ(МЕСЯЦ(M4)<=8;"Літній";"Осінній")))
Поле “Кількість путівок ” заповнюється довільними значеннями , поле
“Вартість ” розраховується як добуток значень полів “Назва міста” , “Кількість днів”,“Сезон” і відповідно через функцію ВПР довідників “Довідник міст” та “Довідник сезонів”, поле “ Остаточна вартість ” розраховується як добуток значень поля “Вид путівки ” та значення поля “Вартість ”.
“Вартість”=P4*R4*ВПР($O$4:$O$32;$A$3:$C$8;2;0)*
ВПР($Q$4:$Q$32;$F$3:$G$7;2;0)
“Остаточна вартість ”=ЕСЛИ(S4="гаряча";T4-(T4*0,2);T4*1)+ЕСЛИ(S4="пільгова";T4-(T4*0,3))
6. Розроблення форми користувача
Після створення Бази Даних розроблена форма користувача, надані властивості всім об'єктам управління, записані ідентифікатори (змінні). Для того, щоб форма стала корисною, слід написати деякий код. Спочатку необхідно створити процедуру початкового відображення форми, а потім додаткові процедури, котрі реагують на події, що виникають під час відображення форми: клацання „мишкою" по кнопках елементів управління, введення даних у відповідні елементи управління тощо.
Першою створено процедуру активізації форми :
Private Sub UserForm_ActivateQ
“ Довідник міст” Адреса 1 -го значення
Range("A4").Select
“Цикл з умовою”
Do While ActiveCell.Value <> ""
nazvmist.AddItem ActiveCell.Value
zina1d.Text = ActiveCell.Offset(0, 1).Value
zinapr.Text = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Select
Loop
“ Довідник Сезонів”
Range("F4").Select Адреса 1 -го значення
“Цикл з умовою”
Do While ActiveCell.Value <> ""
sezon.AddItem ActiveCell.Value
coef.Text = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Loop
“Облік діяльності туристичного бюро”
Range("L4").Select
nomerpp.Text = ActiveCell.Value
datazam.Text = ActiveCell.Offset(0, 1).Value
prizv.Text = ActiveCell.Offset(0, 2).Value
nazvmist.Text = ActiveCell.Offset(0, 3).Value
kld.Text = ActiveCell.Offset(0, 4).Value
sezon.Text = ActiveCell.Offset(0, 5).Value
klp.Text = ActiveCell.Offset(0, 6).Value
vidput.Text = ActiveCell.Offset(0, 7).Value
vart.Text = ActiveCell.Offset(0, 8).Value
ostvart.Text = ActiveCell.Offset(0, 9).Value
“Блокування доступу до полів ”
nomerpp.Locked = False
datazam.Locked = False
prizv.Locked = False
nazvmist.Locked = False
kld.Locked = False
sezon.Locked = False
klp.Locked = False
vidput.Locked = False
vart.Locked = False
ostvart.Locked = False
“Активність кнопок ”
persh.Enabled = True
popered.Enabled = True
nastup.Enabled = True
ostan.Enabled = True
vidminyty.Enabled = True
vidal.Enabled = True
zminmov.Enabled = True
sort.Enabled = True
vihid.Enabled = True
dopovnyty.Enabled = True
zberegty.Enabled = True
redag.Enabled = True
End Sub
Для виконання початкового відображення форми натиснути F5 або
Кнопку Run/Sub яка знаходится на панелі інструментів.
Об’єкт управління |
Ідентифікатор |
Сортування |
Sort |
Змінити мову |
Zminmov |
Перший |
Persh |
Попередній |
Popered |
Наступний |
Nastup |
Останній |
Ostan |
Редагувати |
Redag |
Доповнити |
Dopovnyty |
Зберегти |
Zberegty |
Відмінити |
Vidminyty |
Видалити |
Vidal |
Архівація |
archiv |
Конвертація валют |
Kurs |
Вихід |
Vihid |
Назва міста |
Nazvmist |
Сезон |
Sezon |
У гривні |
Grn |
У валюту |
Uval |
До форми |
Doform |
Ціна за 1 день |
Zina1d |
Ціна проїзду |
Zinapr |
Коефіцієнт |
Coef |
Таблиця 7. Умовні позначення елементів управління
Рисунок 5.Форма користувача