t= .Text= .Text= Sub
Для кнопки «Скасувати»
Private Sub CommandButton2_Click (). Hide
End Sub
Кнопка «Видалення даних»:
Малюнок 8. Видалення даних.
До кнопці «Видалити» прив'язаний наступний код:
Private Sub ComboBox1_Change (). Sheets ( Табель обліку робочого часу ). Select
Dim i As Integerj As Integera As Integerстрока As Integer
рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (1))=9While i lt;=рядок=i + 1Cells (i, 1)= Then=iDoIfb=10 To iComboBox1.Text=Cells (b, 2) .Value Then.Value=Cells (b, 3) .Value=Cells (b, 4) .Value=Cells (b, 5) IfbSubSub CommandButton1_Click ().HideComboBox1.Text=Empty Then
MsgBox Ви повинні вибрати прізвище робочого .Show=MsgBox ( Зараз відбудеться видалення raquo ;, vbOKCancel)
End Iff=vbOK Then
Sheets ( Табель обліку робочого часу ). Select
Dim i As Integerj As Integerстрока As Integer
рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (1))=11While i lt;=рядок=i + 1Cells (i, 1)= Then=iDoIfb=11 To iComboBox1.Text=Cells (b, 9) Then (b, 9) .Select.EntireRow.DeleteIfbIfSubSub CommandButton2_Click (). HideSubSub TextBox1_Change () IsNumeric (TextBox1.Text) And Len (TextBox1) lt; gt ; 0 Then
MsgBox Треба вводити тільки текстові дані! Raquo ;, vbOKOnly + vbInformation
TextBox1.Value= .SetFocusIfSubSub TextBox2_Change () IsNumeric (TextBox2.Text) And Len (TextBox2) lt; gt; 0 Then
MsgBox Треба вводити тільки текстові дані! Raquo ;, vbOKOnly + vbInformation
TextBox2.Value= .SetFocusIfSubSub TextBox3_Change () TextBox3.Value lt; 0 Then Числа не повинні бути негативні! Raquo ;, vbOKOnly + vbInformation.SetFocusIfNot IsNumeric (TextBox3.Text) And Len (TextBox3) lt; gt; 0 Then
MsgBox Вводити треба числові дані! raquo ;, vbOKOnly + vbInformation
TextBox3.Value= .SetFocusIfSubSub UserForm_Activate (). Text= .Text= .Text= .Text= SubSub ComboBox1_Enter (). Clear ( Табель обліку робочого часу ). Selecti As Integer, j As Integer, рядок As Integer
рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (2))=11While i lt;=рядок=i + 1Cells (i, 2)= Then=iDoIfa=11 To i.AddItem Cells (a, 2) a
End Sub
Код для кнопки «Скасувати»
Private Sub CommandButton2_Click (). Hide
End Sub
Кнопка «Пошук і зміна даних»:
Малюнок 9. Пошук і зміна даних
Програмний код:
Private Sub ComboBox1_Change (). Clear.Text= .Text=
For sss=10 To 5000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text Then.AddItem Sheets ( Табель обліку робочого часу ). Cells (sss, 2) .TextIfSubSub CommandButton1_Click () sss=10 To 8000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text And ListBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 2) .Text Then ( Табель обліку робочого часу ). Cells (sss, 5)=TextBox2.TextIf.Clear.Text= .Text= SubSub CommandButton2_Click (). HideSubSub ListBox1_Click () sss=10 To 8000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text And ListBox1.Text=Sheets ( Табель обліку робочого часу ).Cells (sss, 2) .Text Then.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 4) .TextIfSubSub TextBox1_Change () SubSub TextBox2_Change () SubSub UserForm_Activate ()
Sheets ( Табель обліку робочого часу ). Select
Range ( A10: H8000 ). Select.Sort Key1:=Range ( C9 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom
For ads=11 To 8000Sheets ( Табель обліку робочого часу ). Cells (ads, 3) .Text= Then Exit SubSheets ( Табель обліку робочого часу ). Cells (ads, 4) .Text=Sheets ( Табель обліку робочого часу ). Cells (ads + 1, 2) .Text Then GoTo 3.AddItem Sheets ( Табель обліку робочого часу ). Cells (ads, 3) .Text
3 NextSub
При натисканні кнопки «Меню головне» відбувається перехід на лист, де міститься головне меню.
До кнопці «Закрити» прив'язаний наступний код:
Private Sub CommandButton4_Click (). Hide
End Sub
...