SolverSolve, functie
Met deze functie wordt het zoeken naar een oplossing gestart. Deze functie komt overeen met het klikken op Oplosser in het dialoogvenster Parameters Oplosser.
Voordat u deze functie gebruikt, moet u een verwijzing naar de invoegmacro Oplosser instellen. Zorg ervoor dat er een Visual Basic-module actief is, klik op Verwijzingen in het menu Extra en schakel vervolgens het selectievakje Oplosser.xlam onder Beschikbare verwijzingen in. Als Oplosser.xlam niet wordt weergegeven onder Beschikbare verwijzingen, klikt u op Bladeren en opent u Oplosser.xlam in de submap \office12\library\Oplosser.
SolverSolve(UserFinish, ShowRef)
UserFinish Variant, optioneel. Is True als de resultaten moeten worden opgehaald zonder het dialoogvenster Oplosser weer te geven en False als het dialoogvenster wel moet worden weergegeven. De standaardwaarde is False.
ShowRef Variant, optioneel. Dit argument wordt alleen gebruikt als True is opgegeven bij het argument StepThru van de functie SolverOptions. U kunt bij het argument ShowRef de naam van een macro opgeven in de vorm van een tekenreeks. Deze macro wordt aangeroepen als Oplosser pauzeert bij een tussenoplossing.
Voorbeeld
In dit voorbeeld worden de Solver-functies gebruikt om de bruto winst te maximaliseren in een bedrijfsprobleem. Met de functie SolverSolve wordt het zoeken naar een oplossing gestart.
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")
© 2006 Microsoft Corporation. Alle rechten voorbehouden.