VBA - Bruke målsøk i VBA

Denne opplæringen viser deg hvordan du bruker Målsøk i VBA

Målsøk er et av Hva -om -analyseverktøyet som er tilgjengelig i Excel, som lar deg bruke forskjellige verdier på formler og sammenligne resultatene.

Syntaks for målsøk

Funksjonen GoalSeek har to argumenter - målet (cellen du vil endre) og ChangingCell (cellen som må endres). Funksjonen returnerer et sant eller usant - sant hvis målet er funnet, og usant hvis målet ikke blir funnet.

Bruke Målsøk i VBA

Vurder følgende regneark nedenfor.

For å endre tilbakebetalingen som kreves hver måned ved å endre termen i måneder, kan vi skrive følgende prosedyre.

1234 Sub IncreaseTerm ()'gjør B6 100 ved å endre B5Rekkevidde ("B6"). GoalSeek Goal: = 100, ChangingCell: = Rekkevidde ("B5")Slutt Sub

Vær oppmerksom på at det må være en formel i celle B6, og en verdi i celle B5.

Bruk av målsøk med en if -erklæring

Du kan også bruke GoalSeek med en If -setning for å styre strømmen av koden din.

12345678 Sub IncreaseTerm ()'lag B6 100 ved å endre B5 - og returner en melding til brukerenIf Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True ThenMsgBox "Ny term ble funnet"EllersMsgBox ("Ny periode ble ikke funnet")Slutt omSlutt Sub

wave wave wave wave wave