Iskanje ciljev v Excelu VBA
Iskanje ciljev je orodje, ki je na voljo v excelu VBA in nam pomaga najti potrebno število, ki ga je treba doseči, da pridemo do zastavljenega cilja.
Na primer, študent ste in ste ciljali povprečno oceno 90% iz šestih razpoložljivih predmetov. Do zdaj ste opravili 5 izpitov in vam je ostal samo en predmet. Vaše predvidene ocene iz petih opravljenih predmetov so 89, 88, 91, 87, 89 in 90. Zdaj želite vedeti, koliko morate doseči na zaključnem izpitu, da dosežete povprečni ciljni povprečni odstotek 90%.
To lahko storite tako, da uporabite GOAL SEEK v Excelovem delovnem listu in tudi pri kodiranju VBA. Poglejmo, kako deluje z VBA.
Sintaksa iskanja ciljev VBA
V VBA Goal Seek moramo določiti vrednost, ki jo spreminjamo, in doseči končni ciljni rezultat, zato navedite referenco celice z uporabo predmeta VBA RANGE. Kasneje lahko dostopamo do možnosti GOAL SEEK.
Spodaj je sintaksa iskanja ciljev v VBA.
- Razpon (): Pri tem moramo navesti referenco celice, kjer moramo doseči ciljno vrednost.
- Cilj: V tem argumentu moramo vnesti cilj, ki ga želimo doseči.
- Spreminjanje celice: V tem argumentu moramo ponuditi s spreminjanjem vrednosti celice, ki jo potrebujemo za dosego cilja.
Primeri iskanja ciljev programa Excel VBA
Sledijo primeri iskanja ciljev v Excelu VBA.
Iskanje ciljev VBA - primer # 1
Vzemimo primer samo povprečne ocene izpita. Spodaj je predvidena ocena 5 predmetov opravljenega izpita.
Najprej moramo ugotoviti, kakšen je povprečni rezultat opravljenih 5 predmetov. V celici B8 uporabite funkcijo AVERAGE.
V tem primeru je naš cilj 90 in Spreminjanje celice bo B7 . Goal Seek nam bo torej pomagal najti ciljni rezultat iz končne teme, da bomo dosegli skupno povprečje 90.
Zaženite podproces v modulu razreda VBA.
Koda:
Podcilj_Poglej_Primer1 () Konec Pod
Zdaj potrebujemo rezultat v celici B8, zato podajte to referenco obsega z uporabo predmeta RANGE.
Koda:
Podcilj_Poglej_Primer1 () Obseg ("B8") Konec Pod
Zdaj postavite piko in vnesite možnost »Iskanje cilja«.
Prvi argument je "Cilj" za to. Vnesti moramo svoj končni cilj, da prispemo v RANGE B8. V tem primeru skušamo doseči cilj 90.
Koda:
Podcilj_Seek_Example1 () Razpon ("B8"). Cilj GoeSeek: = 90 Končni pod
Naslednji argument je »Spreminjanje celice«, zato moramo navesti, v kateri celici potrebujemo novo vrednost za dosego cilja.
Koda:
Sub Goal_Seek_Example1 () Obseg ("B8"). GoalSeek Cilj: = 90, ChangingCell: = Obseg ("B7") Konec Sub
V tem primeru je naša celica, ki se spreminja, celica Sub 6, tj. Celica B7.
Ok, zaženimo kodo, da vidimo, kaj je treba narediti v zadnjem predmetu, da dosežemo povprečni odstotek 90.
Torej, pri zadnjem predmetu je treba doseči 95, da dobimo skupno povprečje 90.
Iskanje ciljev VBA - primer # 2
Naučili smo se, kako uporabiti GOAL SEEK, da bi našli število, potrebno za dosego cilja. Zdaj bomo videli nekaj naprednih primerov iskanja končnega izpita za več kot enega študenta.
Spodaj so predvideni rezultati 5 predmetov po izpitu.
Ker iščemo cilj za več kot enega učenca, moramo uporabiti zanke. Spodaj je koda za vas.
Koda:
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
Ta koda bo zavila skozi vse ocene študentov in prispela končni izpit, potreben za dosego skupnega povprečja 90
Tako smo končni rezultat dobili zdaj kot,
Študent A mora doseči le 83, da bi zagotovil skupnih 90 odstotkov, študent D pa 93.
A poglejte študenta B & C. Na zaključnem izpitu morajo doseči po 104, kar sploh ni mogoče.
Tako kot pri analizi GOAL SEEK lahko tudi mi najdemo potrebno število, da dosežemo ciljno število sredi projekta ali postopka.
Stvari, ki si jih je treba zapomniti
- Iskanje ciljev je na voljo tako z orodji za delovne liste kot z orodjem VBA.
- Nastala celica mora vedno vsebovati formulo.
- Vnesti moramo vrednost cilja in spremeniti referenco celice na orodje za iskanje cilja.
