2 1 3 Можно указать ограничение явно, используя кнопку Добавить или установить флажок 4
Рис. 10.30. Установка параметров инструмента Поиск решения
Нажать кнопку Найти решение (рис. 10.30).
5. В окне Результаты поиска решения выбрать Сохранить найденное решение (рис. 10.31) и нажать кнопку ОК.
Рис. 10.31. Сохранение результатов поиска решения
Решение задачи представлено на рис. 10.32.
Рис10.32. Результат вычислений
Теория
Целевая ячейка, в которой должен получиться желаемый результат, может быть только одна.
Варианты оптимизации: максимальное возможное значение, минимальное возможное значение или конкретное значение. Если требуется получить конкретное значение, то его следует указать в поле ввода.
Изменяемых ячеек может быть несколько: отдельные ячейки или диапазоны. Собственно, именно в них Excel перебирает варианты с тем, чтобы получить в целевой ячейке заданное значение.
Ограничения задаются с помощью кнопки Добавить. Задание ограничений, пожалуй, не менее важный и сложный этап, чем построение формул. Именно ограничения обеспечивают получение правильного результата. Ограничения можно задавать как для отдельных ячеек, так и для диапазонов. Помимо всем понятных знаков =, >=, <=, при задании ограничений можно использовать варианты цел (целое), бин (бинарное или двоичное, т.е. 0 или 1), раз (все разные) (рис. 10.33).
Рис. 10.33. Варианты задания ограничений
В данном задании ограничение только одно: коэффициент должен быть положительным. Это ограничение можно задать по-разному: либо установить явно, воспользовавшись кнопкой Добавить, либо поставить флажок Сделать переменные без ограничений неотрицательными.
После нажатия кнопки Найти решение можно видеть в таблице полученный результат. При этом на экране появляется диалоговое окно Результаты поиска решения.
При любых изменениях исходных данных для получения нового результата Поиск решения придется запускать снова.
Задание 10.8.
Мебельное производство (максимизация прибыли): фирма производит две модели А и В сборных книжных полок.
Их производство ограничено наличием сырья (высококачественных досок) и временем машинной обработки.
Для каждого изделия модели А требуется 3 м² досок, а для изделия модели В – 5 м². Фирма может получить от своих поставщиков до 1700 м² досок в неделю.
Для каждого изделия модели А требуется 12 мин машинного времени, а для изделия модели В – 30 мин в неделю можно использовать 160 ч машинного времени.
Сколько изделий каждой модели следует выпускать фирме в неделю для достижения максимальной прибыли, если каждое изделие модели А приносит 60 тыс. руб. прибыли, а каждое изделие модели В – 110 тыс. руб. прибыли?
Рекомендации по выполнению:
1. Создать лист 4 и переименовать его в Поиск решения-Мебель.
2. Создать таблицу с исходными данными и формулами. Расположение ячеек на листе может быть абсолютно произвольным, например, как на рис. 10.34.
Рис. 10.34. Вид таблицы с исходными данными и формулами3. Запустить Поиск решения и в диалоговом окне установить необходимые параметры (рис. 10.35):
целевая ячейка В12 содержит формулу для расчёта прибыли:
=СУММПРОИЗВ(B5:C5;B9:C9).
Формулы для подсчета: суммарного количества досок ячейка В15: =СУММПРОИЗВ(B3:C3;B9:C9), машинного времени – ячейка В16: =СУММПРОИЗВ(B4:C4;B9:C9);
выполнить Данные (Анализ) → Поиск решения и установить параметры поиска решения (рис. 10.35):
Оптимизировать целевую функцию: – $B$12;
Параметр оптимизации До: – Максимум;
Изменяемые ячейки переменных: – $B$9:$C$9;
В соответствии с ограничениями:
Найденные значения должны быть целыми, неотрицательными; общее количество сырья не должно превышать 1700 м² (ссылка на ячейку D15); общее количество машинного времени не должно превышать 160 ч (ссылка на ячейку D16).
Здесь вместо ссылок на ячейки D15 и D16 можно было указать числа, но при использовании ссылок какие-либо изменения ограничений можно производить прямо в таблице.
Рис. 10.35. Установка параметров инструмента Поиск решения
Нажать кнопку Найти решение и после подтверждения получить результат рис. 10.36.
Рис.10.36. Результат Поиск решения
Но даже если правильно создали формулы и задали ограничения, результат может оказаться неожиданным. В таких случаях можно попробовать настроить параметры Поиска решения. Для этого в окне Поиск решения нажать кнопку Параметры (рис. 10.37).
Рис. 10.37. Настройка параметров окна Поиск решения
Первый из выделенных параметров отвечает за точность вычислений. Уменьшая его, можно добиться более точного результата, в нашем случае – целых значений. Второй из выделенных параметров даёт ответ на вопрос: как вообще могли получиться дробные результаты при ограничении целое? Оказывается Поиск решения это ограничение может игнорировать в соответствии с установленным флажком.
Задание 10.9.
В соответствии с имеющимися данными по объемам производства и реализации продукции предприятия определить ежегодные и среднегодовой темпы роста и представить динамику производства в графическом виде. При этом обеспечить ввод данных по следующему году с помощью диалогового окна Добавление данных, полученного в редакторе Visual Basic c помощью Формы.
Создать таблицу «Динамика производства и реализации продукции» (рис. 10.38). Используя данные таблицы построить диаграмму.
Рис. 10.38. Динамика производства и реализации продукции
Рекомендации по выполнению:
1. Создайте книгу и сохраните ее в своей папке под именем Лабораторная работа 11.
Создайте на листе 1 таблицу (рис. 11.1).
2. В ячейку C4 вводим формулу: =B4/B3. Аналогичные формулы ввести в ячейки C5, E4 и E5.
3. В ячейку C6 можно ввести формулу: =СРГЕОМ(C4:C5). Однако при добавлении новой строки для ввода данных следующего года в этой формуле придется изменить ссылку С5 на С6. Для того, чтобы не изменять диапазон данных при добавлении строк, целесообразно в ячейке C6 записать вместо приведенной выше следующую формулу: =СРГЕОМ(C4:СМЕЩ(C6;-1;0)).
В этом случае независимо от количества строк диапазон данных будет располагаться от ячейки С3 до ячейки, лежащей на одну строку выше ячейки с данной формулой. Аналогичную формулу занести в ячейку E6.
4. В ячейках C4:C6 и E4:E6 установить процентный формат числа (рис. 10.39).
Рис. 10.39. Динамика производства и реализации продукции
5. Стандартными средствами построить гистограмму, данные для которой расположены в ячейках столбцов B и D. Вид рабочего листа при этом показан на рис. 10.40.
Рис. 10.40. Вид рабочего листа, содержащего таблицу и диаграмму
6. Добавить данные следующего года в таблицу:
перейти в ячейку A6;
вставить новую строку в таблицу (Главная (Ячейки) → Вставить → Вставить строки на лист);
выделить ячейки A5:E5 и скопировать их во вставленную строку;
внести новые исходные данные за следующий год в ячейки А6:С6;
выделить диаграмму и указать для нее новый диапазон данных.
Задание 10.10.
Создать Макрос, автоматически добавляющий строку в таблицу и данные в диаграмму.
Рекомендации по выполнению:
1. Вернуть таблице и диаграмме вид представленный на рисунке 11.2.
2. Записать Макрос в режиме протоколирования. Для этого:
выполнить команду меню Разработчик (Код) → Запись макроса, задать имя макроса – Макрос-Продукция. Выполнить описанную в задании 11.1 пункта 6 последовательность действий;
остановить запись Макроса можно с помощью команды Разработчик (Код) → Остановить запись;
выполнить команду Разработчик (Код) → Visual Basic;
в окне Project - VBAProject раскрываем пункт Modules двойным щелчком мыши на пункте Module1 открываем код полученного макроса Макрос-Продукция (комментарии к коду, записанные после апострофа, добавлены дополнительно и могут не набираться);
проверить операторы макроса с предложенными в таблице 10.1 и при необходимость внести изменения.
Таблица 10.1
Листинг макрос Макрос_Продукция
Sub Макрос_Продукция() |
‘Название макроса |
' |
|
' Макрос_Продукция Макрос |
|
' |
|
|
|
' |
|
Range("A6").Select |
‘Выделение ячейки A6 |
Selection.EntireRow.Insert |
‘Вставка строки |
Range("A5:E5").Select |
‘Выделение диапазона A5:E5 |
Selection.AutoFill Destination:=ActiveCell.Range("A1:E2"), Type:= _ xlFillDefault |
‘Копирование |
|
|
ActiveCell.Range("A5:E6").Select |
‘Выделение диапазона A5:E6 |
Range("A6").Select |
‘Переход в ячейку A6 |
ActiveCell.FormulaR1C1 = "2015" |
‘Ввод года |
Range("B6").Select |
‘Переход в ячейку B6 |
ActiveCell.FormulaR1C1 = "15500" |
‘Ввод данных |
Range("D6").Select |
‘Переход в ячейку D6 |
ActiveCell.FormulaR1C1 = "15100" |
‘Ввод данных |
Range("D7").Select |
‘Переход в ячейку D7 |
ActiveSheet.ChartObjects("Диаграмма 2").Activate |
‘Переход на диаграмму |
ActiveChart.SeriesCollection(1).Values = "=Лист1!$B$3:$B$6" |
‘Ввод диапазона для первого ряда данных |
ActiveChart.SeriesCollection(2).Values = "=Лист1!$D$3:$D$6" |
‘Ввод диапазона для второго ряда данных |
ActiveChart.SeriesCollection(2).XValues = "=Лист1!$A$3:$A$6" |
‘Ввод диапазона для легенды данных |
End Sub |
‘Конец макроса |
3. Проверить работоспособность созданного макроса. Для этого:
закрыть редактор VBA.
выполнить команду Разработчик (Код) → Макросы;
из списка выбрать имя созданного Макроса – Макрос_Продукция и нажать кнопку Выполнить. В результате в таблице должна добавиться строка, а на диаграмме – данные.
Созданный макрос добавляет данные только в шестую строку повторяя данные 5 строки.