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

 

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

 

 

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

 

Private Sub CommandButton5_Click()

 

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

D = 4

End If

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

D = 11

End If

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

D = 18

End If

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

D = 25

End If

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

D = 32

End If

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

D = 39

End If

For L = D To D + 5

For I = 0 To 25

K = 2 * I + 4

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

Sheets("расписание").Cells(61 + (L - D + 1) * 2, 35) = Sheets("расписание").Cells(K, 2)

End If

Next I

Next L

 

End Sub

 

 

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

 

Private Sub CommandButton1_Click()

S = Sheets("справки").Cells(5, 4).Text

I = 0

For K = 3 To 30

If Sheets(S).Cells(K, 1).Text <> "" Then

I = I + 1

End If

Next K

Sheets("справки").Cells(5, 6).Value = I

 

 

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

 

Private Sub CommandButton2_Click()

K = 6

Sheets("справки").Cells(6, 10) = Sheets("расписание").Cells(4, 2).Text

Sheets("справки").Cells(6, 11).Value = 1

For I = 1 To 25

S = 4 + I * 2

If Sheets("расписание").Cells(S, 2) <> "" Then

If (Sheets("справки").Cells(K, 10).Text <> Sheets("расписание").Cells(S, 2).Text) Then

K = K + 1

Sheets("справки").Cells(K, 10) = Sheets("расписание").Cells(S, 2).Text

Sheets("справки").Cells(K, 11).Value = 1

Else

Sheets("справки").Cells(K, 11).Value = Sheets("справки").Cells(K, 11).Value + 1

End If

End If

Next I

 

End Sub

 

 

⇐ Предыдущая123456Следующая ⇒

Поделиться: