3. Лист «Сортування»
Малюнок 10. Сортування даних.
На цьому листі здійснюється сортування за зростанням: по № п/п, по ПІБ, по цеху, і за фахом, аналогічно і по зменшенням.
На аркуші розташовані дві кнопки: Меню і Сортувати. При натисканні кнопки Сортування виходить вікно:
Малюнок 11. Сортування даних
Програмний код:
Private Sub CommandButton1_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( A9 ), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( A9 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton2_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( B8 ), Order1:=xlAscending, Header :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( B8 ), Order1:=xlDescending, Header :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton3_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( C8 ), Order1: =xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( C8 ), Order1: =xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton4_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( D8 ), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( D8 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton5_Click ()
UserForm2.HideSub
Також на аркуші «Сортування» розташована кнопка «Меню» - це перехід на головне меню, до якої прив'язаний наступний програмний код :
Sub Переходнатітульнийссортіровкі ()
'Переходнатітульнийссортіровкі Макрос ( Титульний лист ). SelectSub
4. Лист «Тарифи»
Малюнок 12. Зведена таблиця
На аркуші розташована таблиця, що складається з двох стовпців: «спеціальність» і «ціна робочого часу», а також на аркуші є кнопки «додавання», «видалення», «табель обліку» і «кнопка меню », для переходу на лист« Головне меню »
При натисканні на кнопку Додати відкривається форма «Додавання».
Малюнок 13. Додавання спеціальності
Форма складається з двох елементів Label1 і Label2, з двох текстових полів TextBox1, TextBox2 і двох кнопок CommandButton1 з властивістю Caption, якому присвоєно значення «Додати», і CommandButton2 з властивістю Caption, якому присвоєно значення «Закрити ».
Програмний код для кнопки «Додати»:
Private Sub CommandButton1_Click () поточна As Objectследующая As ObjectTextBox1= Or Text2= Then ( Введені не всі дані )
Exit SubIf.Sheets ( Тарифи ). Selectтекущая=ActiveSheet.Range ( A12 ) While Not IsEmpty (поточна)
Set наступна=текущая.Offset (0, 1) поточна=наступна
Loop
текущая.Value=TextBox1.Text
текущая.Offset (0, 1) .Value=TextBox2.Text.Text= .Text= Sub
Для кнопки ЗакритьSub CommandButton2_Click (). HideSub
Форма «Видалення»
Малюнок 14. Видалення спеціальності
Форма складається з одного елемента ComboBox і двох кнопок CommandButton
Програмний код для кнопки CommandButton1 (Видалення):
Dim h As ByteY As Byte
h=MsgBox ( Ви дійсно хочете видалити цю спеціальність? raquo ;, vbYesNo + vbQuestion, Видалення )
If h=vbYes Then Else GoTo e
name=ComboBox1ComboBox1= Then=MsgBox ( Видалення неможливо, так як не виділений об'єкт raquo ;, vbYes + vbQuestion, Видалення )
If Y=vbYes Then GoTo 12 Else GoTo eIf.Sheets ( Тарифи ). Activatepr=ActiveSheet.Range ( C11 ) While Not IsEmpty (pr) X=pr.Offset ( 1, 0) pr=name Then.Select.EntireRow.DeleteIfpr=X.Sheets ( Тарифи ). Activatepr=ActiveSheet.Range ( A6 ) While...