12. Программный код vba и элементы управления

    1. Программные коды процедур

Лист 6 (МИФ)

Private Sub CommandButton1_Click() UserForm1.Show End Sub

Private Sub CommandButton2_Click() Call ЗаданиеФильтра End Sub

Private Sub ЗаданиеФильтра() Range("Таблица").Select Selection.AutoFilter End Sub

Private Sub CommandButton3_Click() Call ЗаданиеФильтра_минимум End Sub

Sub ЗаданиеФильтра_минимум() Range("Таблица").AutoFilter Field:=5, _ Criteria1:="5", _ Operator:=xlBottom10Items MsgBox "Отфильтровали 5 дешёвых стрижек" End Sub

Private Sub CommandButton4_Click() Call ФильтрацияПоМесяцуГода End Sub

Sub ФильтрацияПоМесяцуГода() Range("Таблица").AutoFilter Field:=3, _ Criteria1:=xlFilterAllDatesInPeriodDecember, _ Operator:=xlFilterDynamic MsgBox "Отфильтровали декабрьские услуги" End Sub

UserForm1

Private Sub CommandButton1_Click() 'Завершение работы End End Sub

Private Sub CommandButton2_Click() 'Объявление переменных Dim Lrow As Long 'Формулы расчета значений переменных Lrow = Worksheets("МИФ").Cells(Worksheets("МИФ").Rows.Count, 1).End(xlUp).Row + 1 'Присвоение значений объектам на листе 1 Sheets("МИФ").Cells(Lrow, 1).Value = CSng(TextBox1.Value) Sheets("МИФ").Cells(Lrow, 2).Value = TextBox2.Value Sheets("МИФ").Cells(Lrow, 3).Value = CDate(TextBox3.Value) Sheets("МИФ").Cells(Lrow, 4).Value = TextBox4.Value Sheets("МИФ").Cells(Lrow, 5).Value = TextBox5.Value TextBox1.Value = "": TextBox2.Value = "" TextBox3.Value = "": TextBox4.Value = "" TextBox5.Value = "" End Sub

Private Sub CommandButton3_Click() With ListBox1 .AddItem "Андеркат" .AddItem "Асимметричный боб" .AddItem "Гарсон" .AddItem "Канадка" .AddItem "Каре" .AddItem "Каскад" .AddItem "Кнот" .AddItem "Кудрявый боб" .AddItem "Пикси и сессон" .AddItem "Полька" End With End Sub

Private Sub CommandButton4_Click() Select Case ListBox1.ListIndex Case 0: TextBox4.Text = "Андеркат" Case 1: TextBox4.Text = "Асимметричный боб" Case 2: TextBox4.Text = "Гарсон" Case 3: TextBox4.Text = "Канадка" Case 4: TextBox4.Text = "Каре" Case 5: TextBox4.Text = "Каскад" Case 6: TextBox4.Text = "Кнот" Case 7: TextBox4.Text = "Кудрявый боб" Case 8: TextBox4.Text = "Пикси и сессон" Case 9: TextBox4.Text = "Полька" End Select End Sub