Función SolverOkDialog

Equivalente a la función SolverOK, pero también presenta el cuadro de diálogo Solver.

Nota El complemento 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.

SolverOkDialog( 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 al 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 opcional Variant. El método de resolución que se debe usar para resolver el problema: 1 para el método Simplex LP Nonlinear, 2 para el método GRG Nonlinear, o 3 para el método Evolutionary. Corresponde a la lista desplegable Seleccionar un método de resolución en el cuadro de diálogo Parámetros de Solver . ByChange 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

En este ejemplo se carga el modelo de Solver calculado anteriormente y almacenado en Sheet1, se restablecen todas las opciones de Solver y, a continuación, se muestra el cuadro de diálogo Parámetros de Solver. A partir de este punto, Solver puede emplearse manualmente.

Worksheets("Sheet1").Activate 
SolverLoad LoadArea:=Range("A33:A38") 
SolverReset 
SolverOKDialog SetCell:=Range("TotalProfit") 
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.