2.5.2 Текст программы, связанной с кнопкой «Учителя по классу»

Private Sub CommandButton2_Click()

For P = 61 To 76

Sheets("расписание").Cells(P, 10) = ""

Next P

A = 1

L = 0

P = 61

For I = 0 To 23

S = I * 2 + 4

A = 1

For K = 4 To 44

If (StrConv(Sheets("расписание").Cells(60, 12).Text, vbLowerCase) = StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase)) And (A = 1) Then

Sheets("расписание").Cells(P, 10) = Sheets("расписание").Cells(S, 1).Text

P = P + 1

A = 0

End If

Next K

Next I

End Sub

2.5.3 Текст программы, связанной с кнопкой «Кабинет по дате»

Private Sub CommandButton3_Click()

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "понедельник" Then

D = 4

End If

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "вторник" Then

D = 11

End If

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "среда" Then

D = 18

End If

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "четверг" Then

D = 25

End If

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "пятница" Then

D = 32

End If

If StrConv(Sheets("расписание").Cells(60, 17).Text, vbLowerCase) = "суббота" Then

D = 39

End If

For L = D To (D + 5)

If Sheets("расписание").Cells(2, L).Value = Sheets("расписание").Cells(60, 22).Value Then

For I = 0 To 23

S = I * 2 + 4

If StrConv(Sheets("расписание").Cells(60, 20).Text, vbLowerCase) = StrConv(Sheets("расписание").Cells(S, L).Text, vbLowerCase) Then

Sheets("расписание").Cells(63, 17) = Sheets("расписание").Cells(S + 1, L).Text

End If

Next I

End If

Next L

End Sub

4. Текст программы, связанной с кнопкой «Обучаемые учителем классы»

Private Sub CommandButton4_Click()

For P = 61 To 70

Sheets("расписание").Cells(P, 29) = "--"

Next P

For I = 0 To 23

S = I * 2 + 4

If StrConv(Sheets("расписание").Cells(S, 1).Text, vbLowerCase) = StrConv(Sheets("расписание").Cells(60, 25).Text, vbLowerCase) Then

Sheets("расписание").Cells(61, 25) = Sheets("расписание").Cells(S, 2)

For K = 4 To 44

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "10а" Then

Sheets("расписание").Cells(61, 29) = "10а"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "10б" Then

Sheets("расписание").Cells(62, 29) = "10б"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "10в" Then

Sheets("расписание").Cells(63, 29) = "10в"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "10г" Then

Sheets("расписание").Cells(64, 29) = "10г"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "10д" Then

Sheets("расписание").Cells(65, 29) = "10д"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "11а" Then

Sheets("расписание").Cells(66, 29) = "11а"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "11б" Then

Sheets("расписание").Cells(67, 29) = "11б"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "11в" Then

Sheets("расписание").Cells(68, 29) = "11в"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "11г" Then

Sheets("расписание").Cells(69, 29) = "11г"

End If

If StrConv(Sheets("расписание").Cells(S, K).Text, vbLowerCase) = "11д" Then

Sheets("расписание").Cells(70, 29) = "11д"

End If

Next K

End If

Next I

End Sub