Función SolverAdd

Agrega una restricción al problema actual. Equivale a hacer clic en Solver en el grupoAnálisis de datos | y, a continuación, hacer clic en Agregar en el cuadro de diálogo Parámetros de Solver.

Nota El complemento Solver no está habilitado de forma predeterminada. Para poder usar esta función, el complemento Solver debe estar habilitado e instalado. Para obtener información sobre cómo hacer eso, consulte Uso de las funciones de Solver VBA. Una vez instalado el complemento de Solver, debe establecer una referencia al complemento de Solver. En el Editor de Visual Basic, con un módulo activo, haga clic en Referencias en el menú Herramientas y, después, seleccione Solucionador en Referencias disponibles. Si Solver no aparece en Referencias disponibles, haga clic en Examinar y, a continuación, abra Solver.xlam en la subcarpeta \Archivos de programa\Microsoft Office\Office14\Library\SOLVER.

SolverAdd( CellRef, Relation, FormulaText)

CellRef necesaria Variant. Una referencia a una celda o un rango de celdas que forma el lado izquierdo de una restricción. Relation Required Integer. La relación aritmética entre los lados izquierdo y derecho de la restricción. Si elige 4, 5 o 6, CellRef debe hacer referencia a las celdas de variables de decisión y no se debe especificar FormulaText .

Relation	Relación aritmética
1	<=
2	=
3	>=
4	Las celdas a las que hace referencia CellRef deben tener valores finales que sean enteros.
5	Las celdas a las que hace referencia CellRef deben tener valores finales de 0 (cero) o 1.
6	Las celdas a las que hace referencia CellRef deben tener valores finales que sean todos diferentes y enteros.

FormulaText opcional Variant. El lado derecho de la restricción.

Comentarios

Una vez agregadas las restricciones, puede manipularlas con las funciones SolverChange y SolverDelete .

Ejemplo:

Este ejemplo usa las funciones de Solver para maximizar el beneficio bruto en un problema empresarial. La función SolverAdd se usa para agregar tres restricciones al problema actual.

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")

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.