ься назви заявників і відповідні їм кольору. Для виведення цієї інформації іспользуютс я перша і друга рядки листа:
For i = 1 Те 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
Наступний фрагмент дозволяє встановити в п'ятій і шостій рядках підпису час початку занять:
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 (i = 1, 5). Value
Next
Next
На цьому підготовча частина для формування звіту завершена, і далі заповнення звіту в циклі проглядаються всі заявки. Якщо заявка обслужена (для неї підібрана аудиторія) і на зазначеній тижня заняття за заявкою проводиться, то далі вона аналізується. В іншому випадку іншого звіту вона не розглядається. p> У наступному фрагменті виробляється обчислення номера рядка, де вона а бути відображена:
Stroke = 0
For I = +1 To nom
If N_Ayd = CStr (Cells (i + 6, 1). Value) Then
Stroke = i + 6
Exit For
End if
Next
Аналогічно обчислюється значення стовпця на аркуші АФ , де необхідно відобразити віддану заявку:
For m = 1 To DaysTimes
If CStr (Workssheets (1). Cells (i, 4). Value) _
= CStr (Cells (5, 1 + m). Value) Then
If CStr (Workssheets (1). Cells (i, 5). Value) _
= CStr (Cells (6, 1 + m). Value) Then
Stolbec = 1 + m
Exit For
End If
End If
Next
Таким чином, ми визначили комірку на аркуші, де слід відобразити інформацію по даній заявці.
Наступна дія - зафарбування осередку кольором того факультету, до якого дана заявка належить:
Name_Boss = CStr (Worksheets (1). Cells (i, 2). Value)
For nomer = 1 To N_Boss
If Name_Boss = CStr (Worksheets (2). Cells (nomer + 1, 6). Value) Then
Exit For
End If
Next
Cells (stroka, stolbec). Select With Selection.Interior
. ColorIndex = colors (nomer)
. Pattern = xlSolid End With
Тепер залишилося в вибраній комірці вказати кількість студентів, що займаються в аудиторії. Програмно це реалізується за допомогою одного рядка:
Cells (stroka, stolbec). Value = Cells (stroka, stolbec). Value + p> Worksheets (1). Cells (i, 6). Value
Ми говорили, що на цьому аркуші можна подивитися інформацію про вмести-мости аудиторії. Для цього розроблена наступна зумовлена ​​процедура, яка виконується при виділенні тієї чи іншої аудиторії. У ре-док необхідна інформація виводиться у вікно для повідомлень (лістинг 21).
Лістинг 21 . Зумовлена ​​ процедура selection З ha т ge
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Обчислення рядка і стовпчика виділеної комірки
Stroka = ActiveCell.Row
Stolbec = ActiveCell.Column
If Stolbec <> 1 Then
' Інформаційне вікно мабуть тільки при виділенні першого стовпця
Infl.Visible = False
Elself Stroka> 6 Then
Infl.Visible = True
Infl.Text = "Місткість" + _
Str (Worksheets (2). Cells (Stroka - 5, 2)) + "чол"
End If
End Sub
В
Звіт по ресурсів фонду аудиторій
Важливим представляється відповідь на питання: який вільний ресурс аудиторій в певному інтервалі навчальних тижнів? Відповідь на нього можна отримати на дев'ятому аркуші книги Microsoft Excel, який називається Звіт 3 . По горизонталі на цьому аркуші в п'ятій і шостій рядках виводяться дні та час початку занять (фактично в цих рядках перераховані всі заняття протягом тижня), а в першому стовпці вказані всі аудиторії, якими володіє навчальний заклад. У цьому плані початок складання звіту нічим не відрізняється від попереднього.
Однак тепер у зведеній таблиці виводиться кількість занять в аудиторіях у вказаному інтервалі тижнів. При цьому різна завантаженість (різну кількість занять у вибраному інтервалі) додатково виділяється різними квітами. На аркуші реалізовані градації кольору залежно від завантаженості:
в–Ў максимальна завантаженість;
в–Ў завантаженість вище середньої;
в–Ў завантаженість нижче середньої;
в–Ў в вибраному інтервалі тижнів немає занять.
У цьому випадку користувачеві часто досить поглянути на звіт, щоб визначити, чи є аудиторії, скажімо для організації додаткової навчальної програми.
Крім колірної і числової інформації в комірках можна отримати детальнішу інформацію. Наприкл...
