Lang L: none (table-of-contents)
See õpetus näitab teile, kuidas eesmärgiotsingut VBA -s kasutada
Eesmärgiotsing on üks Excelis saadaolevatest analüüsivahenditest Mis -kui, mis võimaldab teil valemitele erinevaid väärtusi rakendada ja tulemusi võrrelda.
Eesmärgiotsingu süntaks
Funktsioonil GoalSeek on 2 argumenti - eesmärk (lahter, mida soovite muuta) ja ChangingCell (lahter, mida tuleb muuta). Funktsioon tagastab tõese või vale - tõene, kui eesmärk on leitud, ja vale, kui eesmärki ei leita.
Eesmärgiotsingu kasutamine VBA -s
Mõelge järgmisele töölehele allpool.
Iga kuu nõutava tagasimakse muutmiseks, muutes tähtaega kuudes, võime kirjutada järgmise protseduuri.
| 1234 | Alam suurendamise tähtaeg ()"tehke B6 100, muutes B5Vahemik ("B6"). GoalSeek Goal: = 100, ChangingCell: = Range ("B5")End Sub |
Pange tähele, et lahtris B6 peab olema valem ja lahtris B5 väärtus.
Eesmärgiotsingu kasutamine avaldusega If
Koodi voo suunamiseks saate kasutada ka GoalSeeki koos avaldusega If.
| 12345678 | Alam suurendamise tähtaeg ()"tehke B6 100, muutes B5 - ja tagastage kasutajale sõnumIf Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True thenMsgBox "Uus termin leiti edukalt"MuiduMsgBox ("Uut terminit ei leitud")Lõpp KuiEnd Sub |
