Самоучитель VBA


         

Dim Смены_1, Смены_2, Смены_3 As


/p> ' Переменные уровня модуля

Dim Имя As String

Dim Надписи(1 То 2, 1 То 7) As Object

Private Sub CommandButtonl_Click()

Dim Смены_1, Смены_2, Смены_3 As Integer

Смены_1 = 0

Смены_2 = 0

Смены_3 = 0

For i = 1 То 2

For j = 1 То 7

If Надписи(i, j).Caption = Label1.Caption Then Смены_1 = Смены_1 + 1

If Надписи(i, j).Caption = Label2.Caption Then Смены_2 = Смены_2 + 1

If Надписи(i, j).Caption = Label3.Caption Then Смены_3 = Смены_3 + 1

Next j

Next i

TextBoxl.Text = CStr(Смены_1)

TextBox2.Text = CStr(Смены_2)

TextBoxS.Text = CStr(Смены_3)

End Sub

'

Private Sub CommandButton2_Click()

UserForml.Hide End Sub

' Процедуры считывания имени дежурного из группы Компаньоны

'

Private Sub Labell_Click ()

Имя = Label1.Caption Действие True, False, False

End Sub

'

Private Sub Label2_Click() Имя = Label2.Caption Действие False, True, False

End Sub

'

Private Sub Label3_Click()

Имя = Labels.Caption

Действие False, False, True

End Sub

'

Private Sub Label4_Click()

Имя = Label4.Caption Действие False, False, False

End Sub

'

' Процедуры ввода имени дежурного

'

Private Sub Label5_Click() Labels.Caption = Имя

End Sub

'

Private Sub Label6_Click0 Label6.Caption = Имя

End Sub

Private Sub Label7_Click() Label7.Caption = Имя

End Sub

Private Sub Label8_Click() Labels.Caption = Имя

End Sub

Private Sub Label9_Click() Label9.Caption = Имя

End Sub

Private Sub Labell0_Click() Labell0.Caption = Имя

End Sub

Private Sub Labelll_Click() Labelll.Caption = Имя

End Sub '

Private Sub Labell2_Click() Labell2.Caption = Имя

End Sub '

Private Sub Labell3__Click ()

Labell3.Caption = Имя

End Sub

'

Private Sub Labell4_Click() Labell4.Caption = Имя

End Sub

'

Private Sub Labell5_Click() Label15.Caption = Имя

End Sub

'

Private Sub Labell6_Click() Labell6.Caption = Имя

End Sub

'

Private Sub Labell7_Click() Labell7 .Caption = Имя

End Sub

Private Sub Labell8_Click() LabellS.Caption = Имя

End Sub


Содержание  Назад  Вперед