Курсова робота
з дисципліни «Інформатика»
На тему: «Інформаційно-аналітична система Зарплата»
1. Титульний лист
При відкритті робочої книги з'являється повідомлення Microsoft Excel і автоматично ховається панель інструментів.
Малюнок 1. Титульний лист
Програмний код для цього процесу наступний:
Private Sub Workbook_Open () ( Меню ). Activate
MsgBox ( Вас вітає інформаційно - аналітична система Зарплата !!! ) Sub
При натисканні кнопки «Меню» на титульному аркуші з'являється повідомлення про запит користувача:
Малюнок 2 Знайомство
При натисканні кнопки «ОК» на запиті про користувачі, переходимо на лист «Головне меню», де розташовані кнопки переходу на всі аркуші додатка, а так само кнопки «Про автора» і кнопка «Вихід з Excel »:
Малюнок 3. Головне меню
Для кнопок переходу на всі аркуші додатка створені такі програмні коди: перехід1 ()
перехід1 Макрос ( Табель обліку робочого часу ). Select ( Ви перейшли на лист Табель обліку робочого часу! ) Sub
Кнопки Тарифи, Зведена таблиця, Діаграма, Відомість, Підсумки, Форми, Розширений фільтр, Функції аналогічні однойменній кнопці, розглянутої вище.
При натисканні на кнопки «Про автора» з'являється користувацька форма, де розташована інформація про розробника даної інформаційно-аналітичної системи «Зарплата».
Малюнок 4. Відомості про автора
До кнопці Про автора прив'язаний наступний програмний код:
Private Sub CommandButton1_Click (). Hide
End Sub
До кнопці «Вихід з Excel» прив'язаний наступний код: Вихід ()
'Вихід Макрос
Dim txtСообщеніе As String, txtЗагловок As String
Dim Кнопки As Integer, Результат As Integer
txtСообщеніе= Ви дійсно хочете вийти з Excel Тема= До побачення!
Кнопки=vbYesNo + vbQuestion + vbfaultButton2
Результат=MsgBox (txtСообщеніе, Кнопки, txtЗаголовок)
If Результат=vbYes Then.Quit
Else Вихід не відбудуться raquo ;, vbOKOnly, Знову привіт! If
End Sub
2. Лист «Табель обліку робочого часу»
Малюнок 5. Табель обліку робочого часу.
зарплата інформаційний аналітичний робочий
На аркуші розташована інформація про робітників заводу. Вказані їх П.І.Б., найменування цеху, спеціальність, кількість відпрацьованих днів, зарплата, утримання та сума до видачі.
На аркуші «Табель обліку робочого часу» розташовані кнопки «Середньомісячний заробіток» і «Скасувати».
Макроси для кнопок: Среднемячний_заработок ()
'Среднемячний_заработок Макрос ( I10 ). Select
ActiveCell.FormulaR1C1==AVERAGE (RC [- 3]: R [39] C [- 3]) .ScrollRow=9.ScrollRow=6.ScrollRow=5.ScrollRow= 4.ScrollRow=3.ScrollRow=2.ScrollRow=1SubОтмена_среднемесячного ()
'Отмена_среднемесячного Макрос
Range ( I10 ). Select
Selection.ClearContents
End Sub
Так само на аркуші «Табель обліку робочого часу» розташована одна кнопка «Дії над даними», при натисканні якої виходить вікно:
Малюнок 6. Дії над даними
При натисканні кнопки «Додавання даних»:
Малюнок 7. Додавання даних в табель обліку робочого часу.
Програмний код для кнопки « Додати»: Sub CommandButton1_Click () поточна As Objectследующая As ObjectTextBox1= Or Text2= Or TextBox3= Or TextBox4= Then ( Введені не всі дані ) SubIf.Sheets ( Табель обліку робочого часу ). Selectтекущая=ActiveSheet.Range ( A50 ) While Not IsEmpty (поточна) наступна=текущая.Offset (1, 0) поточна=наступна
текущая.Value=TextBox5.Text
текущая.Offset (0, 1) .Value=TextBox1.Text
текущая.Offset (0, 2) .Value=TextBox2.Text
текущая.Offset (0, 3) .Value=TextBox3.Text.Text= .Tex...
