Dieses Tutorial zeigt Ihnen, wie Sie Goal Seek in VBA verwenden
Goal Seek ist eines der in Excel verfügbaren Was-wäre-wenn-Analysetools, mit dem Sie verschiedene Werte auf Formeln anwenden und die Ergebnisse vergleichen können.
Syntax der Zielsuche
Die Funktion GoalSeek hat 2 Argumente - das Ziel (die Zelle, die Sie ändern möchten) und ChangingCell (die Zelle, die geändert werden muss). Die Funktion gibt True oder False zurück - True, wenn das Ziel gefunden wird, und False, wenn das Ziel nicht gefunden wird.
Verwenden der Zielsuche in VBA
Betrachten Sie das folgende Arbeitsblatt unten.
Um die monatlich erforderliche Rückzahlung durch Änderung der Laufzeit in Monaten zu ändern, können wir das folgende Verfahren schreiben.
| 1234 | Sub-Erhöhungsterm()'mache B6 100, indem du B5 änderstRange("B6").GoalSeek Goal:=100, ChangingCell:=Range("B5")End Sub |
Beachten Sie, dass in Zelle B6 eine Formel und in Zelle B5 ein Wert vorhanden sein muss.
Verwenden der Zielsuche mit einer If-Anweisung
Sie können GoalSeek auch mit einer If-Anweisung verwenden, um den Fluss Ihres Codes zu steuern.
| 12345678 | Sub-Erhöhungsterm()'machen Sie B6 100, indem Sie B5 ändern - und senden Sie eine Nachricht an den BenutzerIf Range("B6").GoalSeek(Goal:=100, ChangingCell:=Range("B5")) = True ThenMsgBox "Neuer Begriff wurde erfolgreich gefunden"AndersMsgBox ("Neuer Begriff wurde nicht gefunden")Ende WennEnd Sub |
