SolverDelete Function

  • Статья

Удаляет существующее ограничение. Эквивалентно щелчку Решателя в группеАнализданных | и последующему нажатию кнопки Удалить в диалоговом окне Параметры решателя.

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

SolverDelete( CellRef, Relation, FormulaText)

CellRefОбязательный вариант. Ссылка на ячейку или диапазон ячеек, образующих левую часть ограничения. ОтношениюОбязательное целое число. Арифметическое отношение между левой и правой сторонами ограничения. Если выбрано значение 4, 5 или 6, CellRef должно ссылаться на ячейки переменных решения, а FormulaText не следует указывать.

Relation Арифметическое отношение
1 <=
2 =
3 >=
4 Ячейки, на которые ссылается CellRef , должны иметь конечные значения, которые являются целыми числами.
5 Ячейки, на которые ссылается CellRef, должны иметь конечные значения 0 (ноль) или 1.
6 Ячейки, на которые ссылается CellRef , должны иметь конечные значения, которые являются разными и целыми числами.

FormulaText Необязательный вариант Variant. Правая часть ограничения.

Пример

В этом примере загружается ранее вычисленная модель решателя, хранящейся на Листе 1, удаляется одно из ограничений, а затем модель снова решается.

Worksheets("Sheet1").Activate 
SolverLoad loadArea:=Range("A33:A38") 
SolverDelete cellRef:=Range("C4:E6"), _ 
 relation:=4 
SolverSolve userFinish:=False

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

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