Deze tutorial laat je zien hoe je Goal Seek in VBA gebruikt
Goal Seek is een van de What-if-analysetools die beschikbaar zijn in Excel, waarmee u verschillende waarden op formules kunt toepassen en de resultaten kunt vergelijken.
Syntaxis voor doel zoeken
De functie GoalSeek heeft 2 argumenten - het doel (de cel die u wilt wijzigen) en ChangingCell (de cel die moet worden gewijzigd). De functie retourneert True of False - True als het doel is gevonden en False als het doel niet wordt gevonden.
Doel zoeken gebruiken in VBA
Beschouw het volgende werkblad hieronder.
Om de vereiste aflossing elke maand te wijzigen door de looptijd in maanden te veranderen, kunnen we de volgende procedure schrijven.
| 1234 | Sub VerhoogTerm()'maak B6 100 door B5 te veranderen'Range("B6").GoalSeek Goal:=100, ChangingCell:=Bereik("B5")Einde sub |
Merk op dat er een formule in cel B6 moet staan en een waarde in cel B5.
Doel zoeken gebruiken met een If-statement
U kunt GoalSeek ook gebruiken met een If-instructie om de stroom van uw code te sturen.
| 12345678 | Sub VerhoogTerm()'maak B6 100 door B5 te wijzigen - en stuur een bericht terug naar de gebruikerIf Range("B6").GoalSeek(Goal:=100, ChangingCell:=Bereik("B5")) = True DanMsgBox "Nieuwe term is gevonden"AndersMsgBox ("Nieuwe term is niet gevonden")Stop alsEinde sub |
