Same as the SolverOK function, but also displays the Solver dialog box.

Before you use this function, you must establish a reference to the Solver add-in. In the Visual Basic Editor, with a module active, click References on the Tools menu, and then select the Solver.xlam check box under Available References. If Solver.xlam does not appear under Available References, click Browse and open Solver.xlam in the \office14\library\Solver subfolder.

 

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

SetCell   Optional Variant. Refers to a single cell on the active worksheet. Corresponds to the Set Objective Cell box in the Solver Parameters dialog box.


MaxMinVal   Optional Variant. Corresponds to the Max, Min, and Value options in the Solver Parameters dialog box.

MaxMinVal

Specifies

1

Maximize

2

Minimize

3

Match a specific value

 

ValueOf   Optional Variant. If MaxMinVal is 3, you must specify the value to which the target cell is matched.
 

ByChange   Required Variant. The cell or range of cells that will be changed so that you will obtain the desired result in the target cell. Corresponds to the By Changing Variable Cells box in the Solver Parameters dialog box.

 

Engine   Optional Variant. The Solving method that should be used to solve the problem: 1 for the Simplex LP method, 2 for the GRG Nonlinear method, or 3 for the Evolutionary method.  Corresponds to the Select a Solving Method dropdown list in the Solver Parameters dialog box.

 

EngineDesc   Optional Variant. An alternate way to specify the Solving method that should be used to solve the problem as a string: "Simplex LP", "GRG Nonlinear", or "Evolutionary".  If both Engine and EngineDesc are specified, EngineDesc  takes precedence. Corresponds to the Select a Solving Method dropdown list in the Solver Parameters dialog box.

Example

This example loads the previously calculated Solver model stored on Sheet1, resets all Solver options, and then displays the Solver Parameters dialog box. From this point on, you can use Solver manually.

Worksheets ("Sheet1"). Activate

SolverLoad LoadArea:=Range ("A33:A38")

SolverReset

SolverOKDialog SetCell:=Range ("TotalProfit")

SolverSolve UserFinish:=False