Acest tutorial vă va arăta cum să folosiți Goal Seek în VBA
Goal Seek este unul dintre instrumentele de analiză What -if disponibile în Excel, care vă permite să aplicați diferite valori formulelor și să comparați rezultatele.
Sintaxa căutării obiectivelor
Funcția GoalSeek are 2 argumente - obiectivul (celula pe care doriți să o modificați) și ChangingCell (celula care trebuie modificată). Funcția returnează un adevărat sau un fals - adevărat dacă obiectivul este găsit și False dacă obiectivul nu este găsit.
Folosirea obiectivului Seek în VBA
Luați în considerare următoarea foaie de lucru de mai jos.
Pentru a modifica rambursarea necesară în fiecare lună prin schimbarea termenului în luni, putem scrie următoarea procedură.
| 1234 | Sub IncreaseTerm ()'faceți B6 100 schimbând B5Range ("B6"). GoalSeek Goal: = 100, ChangingCell: = Range ("B5")Sfârșitul Sub |
Rețineți că trebuie să existe o formulă în celula B6 și o valoare în celula B5.
Utilizarea Căutării obiectivelor cu o declarație If
De asemenea, puteți utiliza GoalSeek cu o instrucțiune If pentru a direcționa fluxul de cod.
| 12345678 | Sub IncreaseTerm ()'faceți B6 100 schimbând B5 - și returnați un mesaj utilizatoruluiDacă Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True ThenMsgBox „Termenul nou a fost găsit cu succes”AltfelMsgBox („Termenul nou nu a fost găsit”)End IfSfârșitul Sub |
