Función SolverOk

Define un modelo básico de Solver. Equivale a hacer clic en Solver en el grupoAnálisis de datos | y, a continuación, especificar opciones en el cuadro de diálogo Parámetros de Solver.

Nota:

El complemento de Solver no está habilitado de forma predeterminada. Para poder usar esta función, debe tener el complemento de Solver 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.

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

SetCell: variante opcional. Hace referencia a una sola celda de la hoja de cálculo activa. Corresponde al cuadro Establecer celda de destino del cuadro de diálogo Parámetros del solucionador . MaxMinVal: variante opcional. Corresponde a las opciones Max, Min y Value del cuadro de diálogo Parámetros de Solver .

MaxMinVal	Especifica
1	Maximizar
2	Minimizar
3	Coincidir con un valor específico

ValueOf: variante opcional. Si MaxMinVal es 3, debe especificar el valor con el que coincide la celda de destino.

ByChange opcional Variant. Celda o rango de celdas que se cambiarán para que obtenga el resultado deseado en la celda de destino. Corresponde al cuadro Al cambiar celdas del cuadro de diálogo Parámetros de Solver .

Engine: variante opcional. El método de resolución que se debería usar para resolver el problema es el siguiente: 2 para LP Simplex, 1 para GRG Nonlinear y 3 para Evolutionary. Corresponde a la lista desplegable Seleccionar un método de resolución en el cuadro de diálogo Parámetros de Solver .

EngineDesc opcional Variant. Forma alternativa de especificar el método de resolución que se debe usar para resolver problemas del tipo: "Simplex LP", "GRG Nonlinear" o "Evolutionary". Corresponde a la lista desplegable Seleccionar un método de resolución en el cuadro de diálogo Parámetros de Solver .

Ejemplo:

Este ejemplo usa las funciones de Solver para maximizar el beneficio bruto en un problema empresarial. La función SolverOK define un problema especificando los argumentos SetCell, MaxMinVal y ByChange .

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.