Traženje cilja VBA | Kako se pomoću cilja cilja traži vrijednost u programu Excel VBA?

Traženje cilja u programu Excel VBA

Traženje cilja 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, vaši predviđeni rezultati iz pet završenih predmeta su 89, 88, 91, 87, 89 i 90. Sada želite znati koliko trebate postići u završni ispit za postizanje ukupnog prosječnog cilja od 90%.

To se može postići upotrebom GOAL SEEK u Excelovom radnom listu kao i u VBA kodiranju. Pogledajmo kako to funkcionira s VBA.

Sintaksa VBA cilja

U VBA Goal Seek moramo navesti vrijednost koju mijenjamo i doći do konačnog ciljanog rezultata, zato navedite referencu ćelije pomoću VBA RANGE objekta, 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 ćelije: 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.

Ovdje možete preuzeti ovaj VBA Goal Seek Excel predložak - VBA Goal Seek Excel Predložak

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, Mijenjanje ć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 ovo 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 "Promjena ćelije" za to moramo 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 ćelija 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 zadnjem predmetu 95 mora se bodovati 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. Sad ćemo vidjeti napredni primjer 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, dolje 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 needs to score just 83 to secure the overall 90 percentage and Student D needs to score 93.

But look at Student B & C they need to score 104 each in the final examination which is not possible at all.

Like this using GOAL SEEK analysis we can find the required number to achieve the targeted number mid through the project or process.

Things to Remember

  • Goal Seek is available with both worksheet tool as well as VBA tool.
  • Result cell should always contain a formula.
  • We need to enter goal value and changing cell reference to the goal seek tool.