ідрядження ). Cells (i, 9)=TextBox9.Value ( Відрядження додана )
текстові поля очищаються
ComboBox1.Value=
TextBox11.Value= .Value= .Value= .Value= .Value= .Value= raquo ; .Value= .Value= .Value= 10.Value=
End Sub
На робочому аркуші шукається перший порожній рядок в яку заносяться дані.
Для зручності зроблено дві кнопки виходу. Перша дозволяє повернутися знову на форму «Викладачі»
Її код:
Sub CommandButton4_Click () ( Викладачі ). SelectUserForm4.Show Sub
Друга дозволяє відразу перейти або ж повернутися на форму «Список відряджень». Залежно від форми з який була викликана дана форма.
Її код:
Sub CommandButton5_Click () ( Відрядження ). SelectUserForm4.Show Sub
2.2 ФОРМА «Список відряджень»
Ця форма містить в собі ListBox в який виводиться список викладачів з однойменного листа робочої книги. Дозволяє додавати, змінювати, видаляти, а також виводити на друк. Для цього використовуються відповідні кнопки «Відправити у відрядження», «Змінити», «Видалити», «Друк». Кнопки «Відправити у відрядження» і «Видалити» описані раніше. Тому поговоримо про кнопках «Змінити» і «Друк».
Код кнопки змінити
Код:
Sub CommandButton5_Click () i As Integer, j As Integer, s As String, a ()=ListBox1.List: i=ListBox1.ListIndex j=0 To 8
s=InputBox ( Стовпець amp; j + 1, Введіть нові дані raquo ;, a (i, j))
Sheets ( Відрядження ). Cells (i + 2, j + 1)=s=Sheets ( Відрядження ). UsedRange.Rows.Count.RowSource= A2: J raquo ; + Trim (Str (i))
End Sub
Кнопка «Друк» копіює трьох бланка для заповнення, тобто Лист1, Лист2, Ліст3. Заповнює їх, переміщує в нову книгу, а потім зберігає в робочу папку з поточною датою і часом. Після чого книга закривається.
Код кнопки «Друк»:
Private Sub CommandButton6_Click ()
Sheets ( Аркуш1 ). Select ( Аркуш1 ). Copy After:=Sheets (4) ( Лист1 (2) ). Range ( C14: I14 raquo ;)=TextBox1.Value ( Лист1 (2) ). Range ( B16: K16 )=TextBox7.Value ( Лист1 (2) ). Range ( B18: K18 ) =TextBox8.Value ( Лист1 (2) ). Range ( D20: K20 )=TextBox3.Value ( Лист1 (2) ). Range ( C24: k24 )=TextBox9.Value ( Лист1 (2) ). Range ( C30: E30 )=TextBox5.Value ( Лист1 (2) ). Range ( G30: I30 )=TextBox6.Value ( Лист1 (2) ). Range ( J32: K32 )=TextBox2.Value ( Аркуш2 ). Select ( Аркуш2 ). Copy After:=Sheets (5) ( Аркуш2 (2) ). Range ( A12: L12 )=TextBox1.Value ( Аркуш2 (2) ). Range ( A20: B20 )=TextBox7.Value ( Аркуш2 ( 2) ). Range ( C20: D20 )=TextBox8.Value ( Аркуш2 (2) ). Range ( E20 )=TextBox3.Value ( Аркуш2 (2) ) .Range ( F20 )=TextBox4.Value ( Аркуш2 (2) ). Range ( G20 )=TextBox5.Value ( Аркуш2 (2) ). Range ( H20 )=TextBox6.Value
виділяємо Ліст3, копіюємо і заповнюємо його даними.
Sheets ( Ліст3 ). Select ( Ліст3 ). Copy After:=Sheets (6) ( Ліст3 (2) ). Range ( A18: H18 raquo ;)=TextBox1.Value
Sheets ( Ліст3 (2) ). Range ( A20: J20 )=TextBox7.Value
Sheets ( Ліст3 (2) ). Range ( A22: J22 )=TextBox8.Value
Sheets ( Ліст3 (2) ). Range ( A24: J24 )=TextBox3.Value
Sheets ( Ліст3 (2) ). Range ( B32: D32 )=TextBox5.Value
Sheets ( Ліст3 (2) ). Range ( F32: H32 )=TextBox6.Value
Sheets ( Ліст3 (2) ). Range ( B34: J34 )=TextBox9.Value ( Ліст4 ). Select
Sheets ( Ліст4 ). Copy After:=Sheets (7) ( Ліст4 (2) ). Range ( G5 )=TextBox3.Value ( Ліст4 (2) ). Range ( A9 )=TextBox3.Value
виділяємо заповнені листи і переміщаємо їх у нову робочу книгу
Sheets (Array ( Лист1 (2) raquo ;, Аркуш2 (2) raquo ;, Ліст3 (2) raquo ;, Ліст4 (2) )). Select
Sheets (Array ( Лист1 (2) raquo ;, Аркуш2 (2) raquo ;, Ліст3 (2) raquo ;, Ліст4 (2) )). Move
вимикаємо висновок повідомлень користувачеві, зберігаємо книгу з ім'ям поточної дати, виводимо повідомлення про місце збереження.
Application.DisplayAlerts=False
ActiveWorkbook.SaveAs Filename:= C: Командировочні аркуші для друку amp; Format (Now, dd_mm_yyyy_hh_nn_ss ) amp; .xls raquo ;, FileFormat:=xlExcel8 _
, Password:= raquo ;, WriteResPassword:= raquo ;, R...
