а Звіт
With Worksheets ("Звіт")
. Visible = True
. Activate With
'Очищення даних, отриманих при попередньому запуску
With Range ("CIO") (. Offset (1, 0),. Offset (1, 1) _
. End (xlDown)). ClearContents
End With
'Передача даних з аркуша Модель на лист Звіт
Counter = 0 Range ("C10") i = 1 Те 21Range ("Assignments"). Cells (i)> 0 Then = Counter + 1
'Збереження днів тижня та кількості співробітників
. Offset (Counter, 0) = _ ("Assignments"). Cells (i). Offset (0, -2)
. Offset (Counter, 1) = _ ("Assignments"). Cells (i) If
Next
End With ("Al"). Select Sub
9.5 Алгоритм процедури виведення звіту (CreateReport)
В
Малюнок 9.1 - Алгоритм процедури виведення звіту
9.6 Код процедури Sensitivity
Процедура Sensitivity відображає і активізує лист Модель, а також запускає надбудову Пошук рішення 11 разів для отримання рівномірно розподілених значень максимальної кількості працівників з несуміжними вихідними днями. Результат зберігається в комірках, розташованих під осередком Аа1 (листа Модель). Так як з цими осередками пов'язана діаграма, при зміні значень, вона буде оновлена ​​автоматично. p align="justify"> Public Sub Sensitivity () i As Integer. ScreenUpdating = False
'Відображає і активізує лист Модель
With Worksheets ("Модель")
. Visible = True
. Activate With
'Аналіз 11 завдань пошуку максимальної кількості
'співробітників
For i = 1 То 11
Range ("MaxPct") = (i - 1) * 0.1 ("Assignments") = 0 userfinish: = True
'Збереження результату в масиві, з яким пов'язана вже
'побудована діаграма
With Range ("AA1")
. Offset (i, 1) = Range ("Nonconsec")
. Offset (i, 2) = Range ("TotalWorkers") With Sub
9.7 Алгоритм процедури аналізу чутливості (Sensitivity)
В
Малюнок 9.2 - Алгоритм процедури аналізу чутливості
9.8 Код процедури GoToExplanation
Процедура GoToExplanation призначена для спрощення навігації по листам. Вона пов'язана з відповідними кнопками на аркушах Модель, Звіт та Діаграма. p align="justify"> Public Sub GoToExplanation ()
'Запускається при натисканні на кнопці на б...
