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
...