Función SolverChange

Cambia una restricción ya existente. Equivale a hacer clic en Solver en el grupoAnálisis de datos | y, a continuación, hacer clic en Cambiar 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.

SolverChange( 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 o 5, CellRef debe hacer referencia a celdas ajustables (que cambian) 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

Si CellRef y Relation no coinciden con una restricción existente, debe usar las funciones SolverDelete y SolverAdd para cambiar la restricción.

Ejemplo:

En este ejemplo se carga el modelo de Solver calculado anteriormente y almacenado en Sheet1, cambia una de las restricciones y, a continuación, se vuelve a resolver el modelo.

Worksheets("Sheet1").Activate 
SolverLoad loadArea:=Range("A33:A38") 
SolverChange cellRef:=Range("F4:F6"), _ 
 relation:=1, _ 
 formulaText:=200 
SolverSolve userFinish:=False

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.