Turinys
Ši pamoka parodys, kaip naudotis tikslo siekimu VBA
„Goal Seek“ yra vienas iš „Excel“ galimų analizės įrankių, leidžiantis formulėms taikyti skirtingas vertes ir palyginti rezultatus.
Tikslo siekimo sintaksė
Funkcija „GoalSeek“ turi 2 argumentus - tikslą (langelį, kurį norite pakeisti) ir „ChangingCell“ (langelį, kurį reikia pakeisti). Funkcija grąžina „True“ arba „False“ - tiesa, jei tikslas surastas, ir „False“, jei tikslas nerastas.
Tikslo siekimo naudojimas VBA
Apsvarstykite toliau pateiktą darbalapį.
Norėdami pakeisti kiekvieną mėnesį reikalingą grąžinimo sumą, pakeisdami terminą mėnesiais, galime parašyti šią procedūrą.
| 1234 | Papildomas padidinimo terminas ()„Padarykite B6 100 pakeisdami B5Diapazonas („B6“). „GoalSeek“ tikslas: = 100, besikeičianti ląstelė: = diapazonas („B5“)Pabaiga Sub |
Atkreipkite dėmesį, kad langelyje B6 turi būti formulė, o langelyje B5 - vertė.
Tikslo siekimo naudojimas su teiginiu „If“
Taip pat galite naudoti „GoalSeek“ su teiginiu „If“, kad nukreiptumėte kodo srautą.
| 12345678 | Papildomas padidinimo terminas ()„Padarykite B6 100 pakeisdami B5 - ir grąžinkite vartotojui pranešimąJei diapazonas ("B6"). GoalSeek (tikslas: = 100, ChangingCell: = Diapazonas ("B5")) = Tiesa tada„MsgBox“ „Naujas terminas sėkmingai surastas“Kitas„MsgBox“ („Naujas terminas nerastas“)Pabaiga JeiPabaiga Sub |
