VBA - eesmärgiotsingu kasutamine VBA -s

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

wave wave wave wave wave