SolverSave Function

Сохраняет спецификации проблемы Средства решения на листе.

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

SolverSave( SaveArea)

SaveAreaОбязательный вариант. Диапазон ячеек, в которых должна сохраняться модель решателя. Если это диапазон из одной ячейки, решатель использует столько ячеек, сколько нужно для сохранения модели, в столбце, начинающемся с указанной ячейки. Если это многоэлементный диапазон, средство поиска использует только ячейки в этом диапазоне, даже если модель не может быть полностью сохранена. Диапазон, представленный аргументом SaveArea , может находиться на любом листе, но необходимо указать лист, если он не является активным. Например, сохраняет модель на Листе 2, SolverSave("Sheet2!A1:A3") даже если Лист 2 не является активным листом.

Пример

В этом примере используются функции Решателя для максимизации валовой прибыли при решении бизнес-задачи. Функция SolverSave сохраняет текущую проблему в диапазоне на активном листе.

Worksheets("Sheet1").Activate 
SolverReset 
SolverOptions Precision:=0.001 
SolverOK SetCell:=Range("TotalProfit"), _ 
 MaxMinVal:=1, _ 
 ByChange:=Range("C4:E6") 
SolverAdd CellRef:=Range("F4:F6"), _ 
 Relation:=1, _ 
 FormulaText:=100 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=3, _ 
 FormulaText:=0 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=4 
SolverSolve UserFinish:=False 
SolverSave SaveArea:=Range("A33")

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

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