SolverOkDialog-Funktion
Wie die SolverOK-Funktion, zeigt jedoch zusätzlich das Dialogfeld Solver an.
Hinweis Das Solver-Add-In ist standardmäßig nicht aktiviert. Bevor Sie diese Funktion verwenden können, muss das Solver-Add-In aktiviert und installiert werden. Informationen hierzu finden Sie unter Verwenden der Solver VBA-Funktionen. Nach der Installation des Solver-Add-Ins müssen Sie einen Verweis auf das Solver-Add-In erstellen. Klicken Sie im Visual Basic-Editor mit einem aktiven Modul auf Verweise im Menü Extras, und wählen Sie dann Solver unter Verfügbare Verweise aus. Wenn Solver nicht unter Verfügbare Verweise angezeigt wird, klicken Sie auf Durchsuchen, und öffnen Sie dann "Solver.xlam" im Unterordner "\Programme\Microsoft Office\Office14\Library\SOLVER".
SolverOkDialog( SetCell, MaxMinVal, ValueOf, ByChange, Engine, EngineDesc)
SetCell Optionaler Variant -Wert. Bezieht sich auf eine einzelne Zelle des aktiven Arbeitsblatts. Entspricht dem Feld Zielzelle festlegen im Dialogfeld Solver-Parameter. MaxMinVal Optionaler Variant -Wert. Entspricht den Optionen Max, Min und Wert im Dialogfeld Solver-Parameter.
MaxMinVal | Steht für |
---|---|
1 | Maximieren |
2 | Minimieren |
3 | Vergleichen mit einem bestimmten Wert |
ValueOf Optional Variant. Wenn MaxMinVal 3 ist, müssen Sie den Wert angeben, mit dem die Zielzelle abgeglichen wird. ByChange Optionaler Variant -Wert. Die Zelle oder der Zellbereich, der so geändert wird, dass Sie das gewünschte Ergebnis in der Zielzelle erhalten. Entspricht dem Feld Veränderbare Zellen im Dialogfeld Solver-Parameter. Engine Optionaler Variant -Wert. Die Lösungsmethode, die zum Lösen des Problems verwendet werden soll: 1 für die Methode Simplex LP, 2 für die Methode GRG Nonlinear oder 3 für die Methode Evolutionary. Entspricht der Dropdownliste Lösungsmethode auswählen im Dialogfeld Solver-Parameter. ByChange Optionaler Variant -Wert. Ein alternatives Verfahren zum Angeben der Lösungsmethode, die zum Lösen des Problems verwendet werden soll, als Zeichenfolge: "Simplex LP", "GRG Nonlinear" oder "Evolutionary". Entspricht der Dropdownliste Lösungsmethode auswählen im Dialogfeld Solver-Parameter.
Beispiel
In diesem Beispiel wird das zuvor berechnete und in Sheet1 gespeicherte Solvermodell geladen, alle Solveroptionen werden zurückgesetzt und das Dialogfeld Solver-Parameter wird angezeigt. Von diesem Punkt an kann Solver manuell eingesetzt werden.
Worksheets("Sheet1").Activate
SolverLoad LoadArea:=Range("A33:A38")
SolverReset
SolverOKDialog SetCell:=Range("TotalProfit")
SolverSolve UserFinish:=False
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für