Scenarios: = True
Cells (NumStr, NumCol). Value = "0"
Cells (NumStr, NumCol). Select
With Selection.Interior
. ColorIndex = 0
. Pattern = xlSolid
End With
Max1 = CInt (L2.Text) - CInt (L1.Text) + 1
porog1 = CInt (Max1/2)
Cells (row7, col7). Value = Symma
If Symma = 0 Then
Cells (row7, col7). Select
With Selection.Interior
. ColorIndex = 7
. Pattern = xlSolid
End With
ElseIf Symma = Max1 Then
Cells (row7, col7). Select
With Selection.Interior
. ColorIndex = 7
. Pattern = xlSolid
End With
ElseIf Symma <= porog1 Then
Cells (row7, col7). Select
With Selection.Interior
. ColorIndex = 8
. Pattern = xlSolid
End With
ElseIf Symma> porog1 And Symma
Cells (row7, col7). Select
With Selection.Interior
. ColorIndex = 15
. Pattern = xlSolid
End With
End If
End Sub
Private Sub CommandButton1_Click ()
'Очищення області аркуша зі старими даними
Range ("a5: AZ100"). Select
Selection.ClearContents
Range ("a1"). Select
'Прибираємо з екрану інформаційне вікно
T1.Visible = False
'Підрахунок кількості навчальний днів у тижня
N_Days = 0
While Worksheets (2). Cells (N_Days + 2, 4). Value <> ""
N_Days = N_Days + 1
Wend
'Підрахунок кількості занять на Протягом дня
N_Times = 0
While Worksheets (2). Cells (N_Times + 2, 5). Value <> ""
N_Times = N_Times + 1
Wend
'Підрахунок кількості аудиторій
N_Rooms = 0
While Worksheets (2). Cells (N_Rooms + 2, 1). Value <> ""
N_Rooms = N_Rooms + 1
Wend
'Розрахунок кількості занять на Протягом тижня
DaysTimes = N_Days * N_Times
For i = 1 To DaysTimes
For j = 1 To N_Rooms
Cells (6 + j, i + 1) = 0
Next
Next
'Підрахунок числа заявників
N_Boss = 0
While Worksheets (2). Cells (N_Boss + 2, 6). Value <> ""
N_Boss = N_Boss + 1
Wend
Range ("b7: AZ100"). Select ' Заливка білим кольором області виведення
With Selection.Interior
. ColorIndex = 0
. Pattern = xlSolid
End With
'Підрахунок кількості рядків на 1-му аркуші
N = 0
While Worksheets (1). Cells (N + 4, 1). Value <> ""
N = N + 1
Wend
'Виведення інформації починаємо з сьомий рядки
stroka = 7
For i = 1 To N_Rooms 'Заповнення стовпця аудиторій
Cells (stroka, 1). Value = Worksheets (2). Cells (i + 1, 1). Value
stroka = stroka + 1
Next
St = 1 'Заповнення днів і початку занять
For i = 1 To N_Days
For j = 1 To N_Times
St = St + 1
Cells (5, St). Value = Worksheets (2). Cells (i + 1, 4). Value
Cells (6, St). Value = Worksheets (2). Cells (j + 1, 5). Value
Next
Next
N_Ayd = 0 'Підрахунок аудітоій занесених на цей лист
While Cells (N_Ayd + 7, 1). Value <> "" p> N_Ayd = N_Ayd + 1
Wend
For j = CInt (L1.Text) To CInt (L2.Text) 'Цикл за вказаними тижнях
For i = 4 To N + 3 'Цикл по рядках першого листа
If CStr (Worksheets (1). Cells (i, 7). Value) = _
"так" Then 'Якщо заявка обслужена
Nayd = Worksheets (1). Cells (i, 8). Value
stroka = 0
For m = 1 To N_Rooms
If CStr (Nayd) = CStr (Cells (m + 6, 1). Value) Then
stroka = m + 6
Exit For
End If
Next
'Якщо не знайдено аудиторія вказана у рядку першою аркуші
If stroka = 0 Then
inform_text = "Помилка в даних у рядку "+ CStr (i)
MsgBox (inform_text)
'Worksheets (1). Cells (i, 1). Activate
Range ("A1"). Select
Exit Sub
End If
For m = 1 To DaysTimes
If CStr (Worksheets (1). Cells (i, 4). Value) = CStr (Cells (5, 1 + m). Value) _
And CStr (Worksheets (1). Cells (i, 5). Value) = CStr (Cells (6, 1 + m). Value) Then
stolbec = 1 + m
Exit For
End If
Next
'Частковий для обліку групових занять
If Worksheets (1). Cells (i, j + 11). Value = "*" And Cells (stroka, stolbec). Value <1000 Then
Cells (stroka, stolbec) = Cells (stroka, stolbec) + 1
Cells (stroka, stolbec) = Cells (stroka, stolbec) + 1000
End If
End If
Next
For ii = 1 To DaysTimes
For jj = 1 To N_Rooms
a = CInt (Cells (jj + 6, ii + 1). Value)
If a> = 1000 Then
Cells (jj + 6, ii + 1). Value = Cells (jj + 6, ii + ...
