SolverOkDialog Function

Аналогично функции SolverOK , но также отображает диалоговое окно Решателя .

Примечание Надстройка "Решатель" не включена по умолчанию. Прежде чем использовать эту функцию, необходимо включить и установить надстройку Решателя. Сведения о том, как это сделать, см. в разделе Использование функций Решателя VBA. После установки надстройки "Поиск решения" необходимо установить ссылку на надстройку "Поиск решения". В редакторе Visual Basic с активным модулем щелкните Ссылки в меню Сервис, а затем выберите пункт Поиск решения в разделе Доступные ссылки. Если пункт поиск решения не отображается в разделе Доступные ссылки, нажмите кнопку Обзор и откройте элемент Solver.xlam во вложенной папке \Program Files\Microsoft Office\Office14\Library\SOLVER.

SolverOkDialog( SetCell, MaxMinVal, ValueOf, ByChange, Engine, EngineDesc)

SetCell Необязательный вариант Variant. Ссылается на одну ячейку активного листа. Соответствует поле Задать целевую ячейку в диалоговом окне Параметры решателя . MaxMinVal Необязательный вариант Variant. Соответствует параметрам Max, Min и Value в диалоговом окне Параметры решателя .

MaxMinVal	Указывает
1	Развернуть
2	Свернуть
3	Сопоставление определенного значения

ValueOf Необязательный вариант Variant. Если параметр MaxMinVal равен 3, необходимо указать значение, с которым сопоставляется целевая ячейка. ByChange Необязательный вариант Variant. Ячейка или диапазон ячеек, которые будут изменены, чтобы получить нужный результат в целевой ячейке. Соответствует окою Изменение ячеек в диалоговом окне Параметры решателя . Двигателя Необязательный вариант Variant. Метод Solving, который следует использовать для решения проблемы: 1 для метода Simplex LP, 2 для нелинейного метода GRG или 3 для метода Эволюции. Соответствует раскрывающемся списку Выбор метода решения в диалоговом окне Параметры решателя . ByChange Необязательный вариант Variant. Альтернативный способ указания метода Решения, который следует использовать для решения задачи в виде строки: "Simplex LP", "GRG Nonlinear" или "Эволюционный". Соответствует раскрывающемся списку Выбор метода решения в диалоговом окне Параметры решателя .

Пример

В этом примере загружается ранее вычисляемая модель решателя, сохраненная на Листе 1, сбрасываются все параметры решателя, а затем отображается диалоговое окно Параметры решателя . С этого момента вы можете использовать Решатель вручную.

Worksheets("Sheet1").Activate 
SolverLoad LoadArea:=Range("A33:A38") 
SolverReset 
SolverOKDialog SetCell:=Range("TotalProfit") 
SolverSolve UserFinish:=False

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.