Traženje cilja u programu Excel VBA
Goal Seek je alat dostupan u excelu VBA, koji nam pomaže pronaći potreban broj koji treba postići da bismo došli do postavljenog cilja.
Na primjer, student ste i ciljali ste prosječnu ocjenu od 90% iz šest dostupnih predmeta. Do sada ste završili 5 ispita i ostao vam je samo jedan predmet. Očekivani rezultati iz pet završenih predmeta su 89, 88, 91, 87, 89 i 90. Sada želite znati koliko trebate postići na završnom ispitu da biste postigli ukupni prosječni postotni cilj od 90%.
To se može postići korištenjem GOAL SEEK u Excelovom radnom listu, kao i u VBA kodiranju. Pogledajmo kako to funkcionira s VBA.
Sintaksa VBA cilja
U VBA Goal Seek-u moramo odrediti vrijednost koju mijenjamo i doći do konačnog ciljanog rezultata, zato navedite referencu na ćeliju pomoću objekta VBA RANGE. Kasnije možemo pristupiti opciji GOAL SEEK.
Ispod je sintaksa cilja u VBA.
- Raspon (): U ovom slučaju moramo dostaviti referencu ćelije tamo gdje moramo postići ciljanu vrijednost.
- Cilj: U ovom argumentu moramo unijeti koji je cilj koji želimo postići.
- Mijenjanje stanice: U ovom argumentu trebamo opskrbiti promjenom vrijednosti ćelije koja nam je potrebna da bismo postigli cilj.
Primjeri programa Excel VBA Goal Seek
Slijede primjeri traženja ciljeva u programu Excel VBA.
Traženje cilja VBA - Primjer # 1
Uzmimo primjer samo prosječne ocjene ispita. Ispod je predviđena ocjena od 5 predmeta iz završenog ispita.
Prvo, moramo doći do prosječnog rezultata iz završenih 5 predmeta. Primijenite AVERAGE funkciju u B8 ćeliji.
U ovom primjeru, naš je cilj 90, a promjena ćelije bit će B7 . Dakle, Goal Seek će nam pomoći da pronađemo ciljani rezultat iz konačnog predmeta kako bismo postigli ukupni prosjek od 90.
Pokrenite potpostupak u modulu klase VBA.
Kodirati:
Potcilj_Potražiti_Primjer1 () Kraj pod
Sada nam treba rezultat u ćeliji B8, zato navedite ovu referencu raspona pomoću objekta RANGE.
Kodirati:
Potcilj_Potraga_Primjer1 () Raspon ("B8") Kraj Pod
Sada stavite točku i unesite opciju "Traženje cilja".
Prvi argument je "Cilj" za to. Moramo unijeti svoj krajnji cilj da bismo stigli u RANGE B8. U ovom primjeru pokušavamo postići cilj od 90.
Kodirati:
Podcilj_Seek_Example1 () Raspon ("B8"). Cilj GoeSeek: = 90 Kraj pod
Sljedeći je argument "Mijenjanje ćelije" za to, trebamo navesti u kojoj ćeliji trebamo novu vrijednost za postizanje cilja.
Kodirati:
Sub Goal_Seek_Example1 () Raspon ("B8"). GoalSeek Cilj: = 90, ChangingCell: = Raspon ("B7") Kraj Sub
U ovom primjeru, naša stanica koja se mijenja je Sub 6 stanica, odnosno B7 stanica.
Ok, pokrenimo kod da vidimo što treba učiniti u zadnjem predmetu da bismo postigli ukupni prosječni postotak od 90.
Dakle, u završnom predmetu mora se bodovati 95 da bi se dobio ukupni prosjek 90.
VBA traženje cilja - Primjer # 2
Naučili smo kako primijeniti GOAL SEEK kako bismo pronašli broj potreban za postizanje cilja. Sada ćemo vidjeti nekoliko naprednih primjera pronalaženja konačne ocjene za više učenika.
Ispod su predviđeni rezultati od 5 predmeta nakon ispita.
Budući da pronalazimo cilj za više učenika, moramo koristiti petlje. Ispod je kôd za vas.
Kodirati:
Sub Goal_Seek_Example2 () Dim k As Long Dim ResultCell As Range Dim ChangingCell As Range Dim TargetScore As Integer TargetScore = 90 For k = 2 to 5 Set ResultCell = Cells (8, k) Set ChangingCell = Cells (7, k) ResultCell.GoalSeek TargetScore, ChangingCell Next k End Sub
Ovaj će kôd petljati kroz sve ocjene učenika i stići do konačnog ispita koji je potreban za postizanje ukupnog prosjeka 90.
Tako smo sada dobili krajnji rezultat kao,
Student A mora postići samo 83 kako bi osigurao ukupnih 90 posto, a student D 93.
Ali pogledajte studente B & C. Na završnom ispitu trebaju postići po 104, što uopće nije moguće.
Poput ove pomoću analize GOAL SEEK, možemo pronaći potreban broj za postizanje ciljanog broja sredinom kroz projekt ili postupak.
Stvari koje treba zapamtiti
- Traženje cilja dostupno je s oba alata radnog lista kao i VBA alatom.
- Dobivena ćelija uvijek treba sadržavati formulu.
- Moramo unijeti vrijednost cilja i promijeniti referencu ćelije na alat za traženje cilja.
