Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Інформаційно-аналітична система &Зарплата&

Реферат Інформаційно-аналітична система &Зарплата&





Not IsEmpty (pr) X=pr.Offset (1, 0) pr=name Then.Select.EntireRow.DeleteIfpr=X

ComboBox1= = .Hide: End Sub

Програмний код для кнопки CommandButton2 (Скасувати):

Private Sub CommandButton2_Click (). Hide

End Sub

При натисканні кнопки «Табель обліку» і «Меню» відбувається перехід на ці листи.



5. Лист «Зведена таблиця і Діаграма»


Малюнок 15. Зведена таблиця


На аркуші «Зведена таблиця» розташована зведена таблиця, яка побудована на основі головної таблиці листа «Табель обліку робочого часу».

Зведена таблиця - це допоміжна таблиця за допомогою якої можна аналізувати і об'єднувати великі обсяги даних, швидко проводити загальні та проміжні підсумки, узагальнювати тільки необхідні е дані і змінювати їх форму представлення.

На аркуші також присутні кнопки Діаграма і Меню для переходу на лист «Меню» і «Діаграма» для переходу на лист «Діаграмма1».


Малюнок 16. Діаграма.



На аркуші розташована діаграма, в яскравій формі відображає інформацію про робітників заводу та зарплаті.


6. Розширений фільтр


Малюнок 17. Розширений фільтр


Програмний код для кнопки Фільтрація: Розширений ()

'Розширений Макрос

'Макрос записаний 20.04.2013 ( B2 ). Select.FormulaR1C1=InputBox ( Введіть назву спеціальності )

Range(laquo;D11raquo;).Select(laquo;D11raquo;).Select(laquo;A11:H51raquo;).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=_ ( B1: B2 ), Unique:=FalseSub

Програмний код для кнопки Скасування фільтрації: ОменаФільтраціі ()

'ОменаФільтраціі Макрос.ShowAllDataSub


7. Лист Підсумки


Малюнок 18. Підсумки по цеху


Програмний код для кнопок Підсумки і Скасування Підсумків:

Sub Підсумки ()

'Підсумки Макрос ( C1 ). Select.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array (8), _:=True, PageBreaks:=False, SummaryBelowData :=True

End SubОтменаІтоговв ()

'ОтменаІтоговв Макрос

Range ( C1 ). Select.RemoveSubtotalSub


8. Лист Відомість


При натисканні на кнопку відомість, розташовану на користувальницької формі на аркуші «МЕНЮ», з'являється форма відомість


Малюнок 19. Вибір спеціальності для створення відомості.


На формі розташовані два елементи: ComboBox1 і CommandButton1. Елемент ComboBox1 дозволяє вибрати зі списку назва спеціальності робітника, а при натисканні на кнопку CommandButton1 створюється відомість на окремому аркуші.


Малюнок 20. Відомість.


Програмний код:

Private Sub CommandButton1_Click ()

Application.ScreenUpdating=Falseh As Byte

If ComboBox1= Then=MsgBox ( Для виведення відомості необхідно виділити зі списку спеціальність raquo ;, vbYes + vbQuestion, Відомість )

End Ifigr (2000, 7) As String_sel=Trim (ComboBox1.Text)=1=10 ( Просто ). ActivateWhile Not IsEmpty (Cells (j, 3) .Value) cur_sel= Trim (Cells (j, 3) .Value) Then (i, 1)=Cells (j, 1) .Value (i, 2)=Cells (j, 2) .Value (i, 3)=Cells (j, 4) .Value (i, 4)=Cells (j, 5) .Value (i, 5)=Cells (j, 6) .Value (i, 6)=Cells (j, 7) .Value=i + 1If =j + 1 ( Виручка ). Activate (1, 4) .Value=cur_sel ( A3: I2000 ). Value= j=1 To i (j + 2, 1) .Value=igr (j, 1) (j + 2, 2) .Value=igr (j, 2) (j + 2, 3) .Value=igr (j, 3) (j + 2, 4) .Value=igr (j, 4) (j + 2, 5) .Value=igr (j, 5) (j + 2, 6) .Value=igr (j , 6) j ( Виручка ). Range ( g3 ). Activate.FormulaR1C1==SUM (RC [- 1], R [1] C [- 1]: R [196] C [- 1])

ComboBox1=laquo;raquo;(laquo;Выручкаraquo;).Range(laquo;h3raquo;).Activate(laquo;H3raquo;).Select.FormulaR1C1 = Laquo;=AVERAGE (RC [- 4]: R [196] C [- 4])raquo;(laquo;Выручкаraquo;).Range(laquo;i3raquo;).Activate(laquo;I3raquo;).Select.FormulaR1C1 = Laquo;=AVERAGE (RC [- 3]: R [1967] C [- 3]) .HideSubSub UserForm_Activate () pr As Object, X As Object.ComboBox1.Clear.Sheets ( Просто ). Selectpr =ActiveSheet.Range ( c10 ) While Not IsEmpty (pr) X=pr.Offset (1, 0) .AddItem prpr=XSub



...


Назад | сторінка 4 з 6 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Кругова діаграма прийняття рішень (павутинна діаграма)
  • Реферат на тему: Загальні відомості про готів. Готське лист
  • Реферат на тему: Microsoft Excel - засіб для створення списків і баз даних на робочому аркуш ...
  • Реферат на тему: Електронна таблиця
  • Реферат на тему: Таблиця Excel