ustify"> 'діалоговому окнеChoice As Integer
9.2 Код процедури Main
Процедура Main виконує в додатку керуючі функції і призначена кнопці, розташованої на аркуші Опис. Для виконання розрахунків процедура Main викликає інші процедури. Структура процедури описується в коментарях. p align="justify"> Sub Main ()
'Запускається при натисканні на кнопці аркуша Опис
'Відображається діалогове вікно Параметри програми; подальші
'дії залежать від значення змінної Choice
OptionsForm.Show
If Choice = 1 Then
'Відображається діалогове вікно Вхідні дані моделі, в якому
'вводяться параметри моделі
InputsForm.Show
'Отримання рішення і висновок звіту
Call RunSolver CreateReport
'Аналіз чутливості Sensitivity
'Активізація листа Діаграма, його відображення і виведення
'інформаційного повідомлення
Application.ScreenUpdating = True
With Sheets ("Діаграма")
. Visible = True
. Activate With
MsgBox "Незвичайна поведінка діаграми викликане" _
& "існуванням декількох оптимальних" _
& "рішень для поточної моделі.", _
vbInformation, "Оптимальне рішення" If Sub
9.3 Код процедури RunSolver
Процедура RunSolver відображає і активізує лист Модель, а після цього запускає надбудову Пошук рішення. Зверніть увагу, що надбудова Пошук рішення вже налаштована (на етапі розробки програми), тому для її запуску достатньо виконати функцію SolverSolve. Також упевніться, що перевірка існування рішення не виконується, так як завжди існує можливість запросити достатню кількість працівників, щоб забезпечити денну потребу - просто це буде більше коштувати для роботодавця. p align="justify"> Sub RunSolver (). ScreenUpdating = False Worksheets ("Модель")
. Visible = True
. Activate Withuserfinish: = True Sub
9.4 Код процедури CreateReport
Дана процедура відображає і активізує лист Звіт, очищає осередку від значень, отриманих при попередньому запуску програми, і копіює позитивні значення з аркуша Модель у відповідні комірки (під осередком С10) листа Звіт.
Sub CreateReport () i As Integer, Counter As Integer. ScreenUpdating = False
'Відображення та активізація лист...
