VBA - Mērķa meklēšanas izmantošana VBA

Šī apmācība parādīs, kā izmantot mērķu meklēšanu VBA

Mērķa meklēšana ir viens no programmā Excel pieejamā analīzes rīka Kas -ja, kas ļauj formulām piemērot dažādas vērtības un salīdzināt rezultātus.

Mērķa meklēšanas sintakse

Funkcijai GoalSeek ir 2 argumenti - mērķis (šūna, kuru vēlaties mainīt) un ChangingCell (šūna, kas jāmaina). Funkcija atgriež patiesu vai nepatiesu - patiesu, ja mērķis ir atrasts, un nepatiesu, ja mērķis nav atrasts.

Mērķa meklēšanas izmantošana VBA

Apsveriet tālāk norādīto darblapu.

Lai mainītu katru mēnesi nepieciešamo atmaksu, mainot termiņu mēnešos, mēs varam uzrakstīt šādu procedūru.

1234 Papildu palielināšanas termiņš ()"padarīt B6 100, mainot B5Diapazons ("B6"). GoalSeek Goal: = 100, ChangingCell: = Diapazons ("B5")Beigu apakš

Ņemiet vērā, ka šūnā B6 ir jābūt formulai, un šūnā B5 ir jābūt vērtībai.

Mērķa meklēšanas izmantošana ar paziņojumu “Ja”

Varat arī izmantot GoalSeek kopā ar paziņojumu If, lai virzītu koda plūsmu.

12345678 Papildu palielināšanas termiņš ()"izveidojiet B6 100, mainot B5 - un atgrieziet ziņojumu lietotājamIf Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True thenMsgBox "Jauns termins tika atrasts veiksmīgi"CitādiMsgBox ("Jauns termins netika atrasts")Beigas JaBeigu apakš

wave wave wave wave wave