N_Boss = N_Boss + 1
Wend
Range ("b7: AZ100"). Select
With Selection.Interior 'Заливка білим кольором області виведення
. ColorIndex = 0
. Pattern = xlSolid
End With
For i = 1 To N_Boss
Cells (2, 2 + i * 2). Select
With Selection.Interior 'Встановлення позначень кольорів
. ColorIndex = colors (i) 'заявників
. Pattern = xlSolid
End With
'Встановлення підписів заявників для відповідних кольорів
Cells (1, 2 + i * 2). Value = Worksheets (2). Cells (i + 1, 6). Value
Next
'Підрахунок кількості рядків з завком на 1-му аркуші
N = 0
While Worksheets (1). Cells (N + 4, 1). Value <> ""
N = N + 1
Wend
stroka = 7 'Дані на аркуші розміщуються починаючи з сьомого рядка
For i = 1 To N_Ayd 'Встановлення підписів аудиторій
Cells (stroka, 1). Value = _
Worksheets (2). Cells (i + 1, 1). Value
stroka = stroka + 1
Next
St = 1
For i = 1 To N_Day 'Встановлення підписів занять
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
For i = 1 To DaysTimes
For j = 1 To N_Ayd
Cells (6 + j, i + 1) = 0 'Ініціалізація осередків
Next
Next
For i = 4 To N + 3 'Цикл по рядках заявок
If CStr (Worksheets (1). Cells (i, 7). Value) = "так" Then
'Виконання умови з обслуговування заявки
stroka = 0
For ia = 1 To N_Ayd
If CStr (Worksheets (1). Cells (i, 8). Value) = _
CStr (Cells (ia + 6, 1). Value) Then
stroka = ia + 6
Exit For
End If
Next
If stroka> 0 And _
CStr (Worksheets (1). Cells (i, CInt (L1.Text) + 11). Value) = _
"*" Then
'Якщо є рядок з вказаною аудиторією
For m = 1 To DaysTimes
'Знаходження стовпця на аркуші для приміщення заявки
If CStr (Worksheets (1). Cells (i, 4). Value) = _
CStr (Cells (5, 1 + m). Value) Then
If CStr (Worksheets (1). Cells (i, 5). Value) = _
CStr (Cells (6, 1 + m). Value) Then
stolbec = 1 + m
Exit For
End If
End If
Next
nomer = 1
For iy = 1 To N_Boss 'Визначення заявника в заявці
If CStr (Worksheets (1). Cells (i, 2). Value) _
= CStr (Worksheets (2). Cells (iy + 1, 6). Value) Then
nomer = iy
Exit For
End If
Next
Cells (stroka, stolbec). Value = _ p> Cells (stroka, stolbec). Value + _
Worksheets (1). Cells (i, 6). Value
Cells (stroka, stolbec). Select
With Selection.Interior
. ColorIndex = colors (nomer) 'Установка заливки
. Pattern = xlSolid 'для комірки
End With
End If
End If
Next
Range ("a5"). Select
End Sub
Private Sub Worksheet_Activate ()
N_Ned = 0
While Worksheets (2). Cells (N_Ned + 2, 3). Value <> ""
N_Ned = N_Ned + 1
Wend
В
L1.Clear
For i = 1 To N_Ned
L1.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
If L1.ListCount> 0 And Sav1
L1.ListIndex = Sav1
End If
End Sub
Private Sub Worksheet_Deactivate ()
Sav1 = L1.ListIndex
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Обчислення рядки і стовпці виділеної комірки
stroka = ActiveCell.Row
stolbec = ActiveCell.Column
If stolbec <> 1 Then
'Інформаційне вікно мабуть тільки при виділенні першої колонки
Inf1.Visible = False
ElseIf stroka> 6 Then
Inf1.Visible = True
Inf1.Text = "Місткість" + _
Str (Worksheets (2). Cells (stroka - 5, 2)) + "чол"
End If
End Sub
В
Процедури листа звіт 3
Private Sub Com_2_Click ()
'Номери рядка і стовпчика виділеної заявки
NumStr = ActiveCell.Row
NumCol = ActiveCell.Column
If NumStr <7 Or NumCol <2 Then
Exit Sub
End If
Vrem = CStr (Cells (6, NumCol)) 'Обчислення часу та дня часу заняття
Den = CStr (Cells (5, NumCol))
aud = CStr (Cells (NumStr, 1))
ColZ = 0 'Підрахунок заявок у виділеній комірці
N = 0 'Підрахунок кількості заявок на першому аркуші
While Worksheets (1). Cells (N + 4, 1). Value <> ""
N = N + 1
Wend
For i = 1 To N 'Цикл за кількістю заявок
Day1 = ...
