форму і має наступний код:
Private Sub CommandButton1_Click () UserForm12.Show
End Sub
Кнопка «Про програму» виводить форму містить інформацію про програму та її творця, май такий код:
Private Sub CommandButton3_Click (). Show
End Sub
Кнопка «Вихід» закриває дану форму:
Private Sub CommandButton2_Click () Sub
Як було сказано раніше, натисканням на кнопку «Почати роботу» здійснюється виклик на іншу користувальницької форми Ця форма дозволяє безпосередньо викликати форми «Список викладачів», «Список відряджень» і «Назад», натискаючи на однойменні кнопки. Кнопка «Назад» служить для закриття другої форми і повернення на головну, використовуючи код:
Private Sub CommandButton2_Click () UserForm21.Show
End Sub
2.1 ФОРМА «Список викладачів»
Ця форма містить в собі ListBox в який виводиться список викладачів з однойменного листа робочої книги. Дозволяє додавати, видаляти, змінювати список. А так само перейти до відправки у відрядження або повернутися на минулу форму. Всі ці дії виконуються однойменними кнопками «Додати працівника», «Видалити», «Відправити у відрядження», «Закрити».
Інформація про викладачів міститься на першому аркуші робочої книги виводиться в Listbox, що знаходиться на формі. Його заповнення і сортування списку за прізвищем відбуваються автоматично. Використовується наступний код:
Код форми: Private Sub UserForm_Initialize ()
відбувається завдання ширини стовпців в порядку черги і заповнення
ListBox1.ColumnWidths= 200; 90; 80; 60; 60; 80; 60; 60; 200 =Sheets ( Викладачі ). UsedRange.Rows.Count.RowSource= laquo ; A2: H + Trim (Str (i))
автоматичне сортування списку по першим стовпцю, з другого рядка
Range ( A: E ). Sort _:=Range ( A2 ), Order1:=xlAscending, _:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=_, DataOption1:=xlSortNormalSub
Розглянемо коди наступний кнопок і дій.
Код кнопки додати і подальший формі.
Цей код виводить однойменну форму містить TextBox для додавання в таблицю запису. Подібна система виведення форма обрана мною для того щоб основні вікна форми не були переповнені різними елементами.
виводиться форма додавання
Sub CommandButton4_Click () UserForm3.ShowSub
Дана форма має 5 TextBox і 2 CommandButton.
Код кнопки «Додати»:
Private Sub CommandButton1_Click () ( Викладачі ). Activate
Dim i As Integer=Sheets ( Викладачі ). UsedRange.Rows.Count + 1 ( Викладачі ). Cells (i, 1)=TextBox1.Value ( Викладачі ) .Cells (i, 2)=TextBox2.Value ( Викладачі ). Cells (i, 3)=TextBox3.Value ( Викладачі ). Cells (i, 4)=TextBox4.Value ( Викладачі raquo ;). Cells (i, 5)=TextBox5.Value
MsgBox ( Працівник доданий ). Value=
TextBox2.Value= .Value= .Value= .Value= Sub
Використовуючи присвоювання, після натискання на кнопку «Додати», введений текст поміщається в першу порожню рядок листа «Викладачі».
Код кнопки «Вихід».
Private Sub CommandButton2_Click () UserForm5.ShowSub
Закриває форму додавання і повертає нас на форму «Список викладачів».
Далі на формі «Список викладачів» є кнопка «Видалити».
Її код:
Private Sub CommandButton2_Click () (1) .Activaten As Integer n=0
n=MsgBox ( Дані видалятимуться amp; Chr (10) amp; Бажаєте продовжити? raquo ;, vbOKCancel, Видалення )
If n=1 Then=ListBox1.ListIndex.Rows (i + 2) .Delete ( Дані видалені ) ( Видалення скасовано ) If=Sheets ( Викладачі ). UsedRange.Rows.Count.RowSource= A2: H + Trim (Str (i)) UserForm3.ShowSub
При натисканні на цю кнопку для безпеки даних виводиться вікно з питанням про точності ваших намірів. При згоді дані вибраного рядка втечуть і список нижче виділеної рядки підніметься на рядок вище. Після чого відбудеться оновлення списку.
Кнопка «Змінити»
Змінює виділену рядок у Listbox
Її код:
Sub KP1_Click () i As Integer...
