Бази даних в Excel, Access з викликами на VBA
Бази даних в Excel, Access з викликами на VBA
2
Зміст
Завдання
Рішення
Висновок
Список використаної літератури
Варіант №2
Завдання
Створити базу даних „Звіт про співробітників фірми”.
Кількість записів - не менш 20.
Для розв'язання задачі необхідно:
- Сформувати вихідну таблицю та роздрукувати її.
- Визначити суму окладів по відділам фірми.
- Знайти відділ з максимальною кількістю співробітників.
- Відсортувати таблицю за ПІБ.
- Знайти ПІБ співробітників з мінімальним окладом.
- Визначити загальну суму окладів по фірмі.
Рішення
Таблиця „Звіт про співробітників фірми” у режимі даних середовища MS Excel наведена на рис.1.
Рис.1.
Додавання проміжних і остаточних підсумків виконується після сортування вихідної бази по обраному полю. Виконаємо сортування вихідної бази по полю "Назва відділу" і додамо проміжні і загальний підсумки. Для додавання підсумків відкриємо вікно діалогу "Проміжні підсумки". Для цього виконуємо команди меню Данные/Итоги. У вікні діалогу задамо поле, у якому буде відслідковуватися зміна значень (наприклад поле " Назва відділу "). Потім вкажемо в рядку "Операция" той вид операції, що потрібний для виконання завдання (Сумма, Кількість і т.д.). У списку вікна діалогу "Додати підсумки по" укажемо, яких ще полях бази даних необхідно виконати аналогічні дії. Вікно діалогу з установленими параметрами наведено на Рис.2.
Рис.2.
Результат встановлення проміжних підсумків зображений на рис.3.
Рис.3.
Додамо ще один рівень підсумків за кількістю співробітників відділу, та розрахуємо максимальну кількість чоловік у відділі (рис.4)
Рис.4.
Відсортуємо таблицю за ПІБ (меню Данные/Сортировка...) Рис.5.
Для звичайного сортування бази даних по одному полю ( по зростанню чи по убуванню) необхідно скористатися пунктом меню Данные Сортировка чи піктограмами на графічному меню.
Сортування по зростанню Сортування по убуванню
При цьому курсор повинний бути встановлений у поле, що будемо сортувати. Для сортування по зростанню по полю "ПІБ" установимо курсор на комірку у цьому полі і виберемо напрямок сортування "по зростанню".
Рис.5.
Результат сортування зображений на рис.6.
Рис.6.
Знайдемо ПІБ співробітників з мінімальним окладом (рис.7).
Рис.7.
До комірки Е32 занесено формулу =БИЗВЛЕЧЬ(A2:G26;E2;G31:G32). Критерій зображений у діапазоні G31:G32.
Експортуємо таблицю з середовища MS Excel до середовища MS Access (рис.8)
Рис.8.
Таблиця „Звіт” у режимі Конструктора середовища MS Access зображена на рис.9.
Рис.9.
Таблиця „Звіт” у режимі Таблиці середовища MS Access зображена на рис.10.
Рис.10.
Запит на вибірку „Сума окладів по відділам” у режимі Конструктора наведений на рисунку 11.
Рис.11.
Запит на вибірку „Сума окладів по відділам” у режимі Таблиці наведений на рисунку 12.
Рис.12.
Запит на вибірку „Сума окладів по фірмі” у режимі Конструктора наведений на рисунку 13.
Рис.13.
Запит на вибірку „Сума окладів по фірмі” у режимі Таблиці наведений на рисунку 14.
Рис.14.
Запит на вибірку „Максимальна кількість у відділі” у режимі Конструктора наведений на рисунку 15.
Рис.15.
Запит на вибірку „Максимальна кількість у відділі” у режимі Таблиці наведений на рисунку 16.
Рис.16.
Запит на вибірку „Сортування” у режимі Конструктора наведений на рисунку 17.
Рис.17.
Запит на вибірку „Сортування” у режимі Таблиці наведений на рисунку 18.
Рис.18
Запит на вибірку „Співробітник з мінімальним окладом” у режимі Конструктора наведений на рисунку 19.
Рис.19.
Запит на вибірку „Співробітник з мінімальним окладом” у режимі Таблиці наведений на рисунку 20.
Рис.20.
Алгоритм програми на VBA, що реалізований на другому аркушу книги MS Excel “ZVBA” зображений на наступному рисунку 21.
2
Рис.21.
Інтерфейс програми на VBA зображений на наступному рисунку 22.
Рис.22.
Пароль на вхід до робочої книги 12345.
Програмний код на VBA наведений у лістингу 1
Лістинг 1
Private Sub CommandButton1_Click()
Worksheets("ZVBA").Cells(9, 8).Formula = "=Sum(G2:G9)"
Worksheets("ZVBA").Cells(16, 8).Formula = "=Sum(G10:G16)"
Worksheets("ZVBA").Cells(21, 8).Formula = "=Sum(G17:G21)"
Worksheets("ZVBA").Cells(22, 8).Formula = "=Sum(H2:H21)"
End Sub
Private Sub CommandButton2_Click()
Worksheets("ZVBA").Range("A2:G21").Sort _
Key1:=Worksheets("ZVBA").Range("E1")
End Sub
Private Sub CommandButton3_Click()
Worksheets("ZVBA").Range("A2:G21").Sort _
Key1:=Worksheets("ZVBA").Range("A1")
End Sub
Private Sub CommandButton4_Click()
Set myRange = Worksheets("ZVBA").Range("C2:C9")
a = Application.WorksheetFunction.Count(myRange)
MsgBox a
End Sub
Private Sub CommandButton5_Click()
Worksheets("ZVBA").Range("A2:G21").Sort _
Key1:=Worksheets("ZVBA").Range("G1")
a = Cells(2, 5)
MsgBox a
End Sub
Private Sub CommandButton6_Click()
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
Висновок
За допомогою введення формул з математичними, статистичними функціями та функціями для роботи з базами даних у відповідні комірки, та виконання команд меню у середовищі MS Excel були виконані пункти завдання. За допомогою запитів на вибірку у середовищі MS Access також були виконані пункти завдання. За допомогою кодів та макросів мови VBA для елементів управління - розроблених кнопок для меню також були виконані пункти завдання.
Список використаної літератури
1. Харитонова И.А., Михеева В.Д. Microsoft Access 2000: Разработка приложений. - СПб.: БХВ, 2000. - 832 с.
2. Робинсон С. Microsoft Access 2000: - СПб.: Издательский дом Питер, 2002. - 512 с.
3. Вейскас Дж. Эффективная работа с Microsoft Access 2000: СПб.: Питер-Пресс, 2002. - 1040 с.
4. Дженнингс Р. Использование Microsoft Access 2000: Специальное издание. - Издательский дом «Вильямс», 2002. - 1152 с.
5. Справка Microsoft Access 2002.//Корпорация Microsoft (Microsoft Corporation), - 2001.
6. Справка Microsoft Excel 2002.//Корпорация Microsoft (Microsoft Corporation), - 2001.
7. Руденко В.Д., Макарчук О.М., Патланжоглу М.О. Практичний курс інформатики. /За ред. Мадзігона В.М.-К.: Фенікс, 1997.-307 с.
8. Ситник В.Ф. та ін. Основи інформаційних систем - К.:КНЕУ, 2001
9. Береза А.М. Основи створення інформаційних систем - К.:КНЕУ, 2001
10. Информационные системы в экономике. Под редакцией профессора В.В.Дика - М.: Финансы и статистика, 1996
11. Смирнова Г.Н, Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем - М.: Финансы и статистика, 2003
|