
Excel - řešitel skrze VBA
Ahojte,
spouštím řešitele za pomocí makra. Řešitel bohužel umí nastavit na hodnotu pouze zadanou ručně, já však nechci pokaždé upravovat makro, když se změní vstup. Zkoušel jsem v makru: SolverOk SetCell:="$R$31", MaxMinVal:=3, ValueOf:="$M$16", ByChange:= _"$N$2:$N$14", tedy nastavit ValueOf namísto hodnoty odkazem na buňku,což však bohužel nefunguje. Nešlo by např. makrem dosadit do makra hodnotu do ValueOf podle hodnoty v buňce M16?
Pokud jste mě pochopili a umíte pomoci, budu velice šťastný
Děkuji
Posílám řešení
Napřed vložím hodnotu která má vyjít do proměnné v a pak ji použiju jako parametr ValueOf. Spíš se trápím, aby mi to nezobrazovalo otravné modální okno, jestli chci uchovat výsledky řešení, doufám, že na to brzy přijdu.
Sub Resitel()
v=Range("M16")
'nebo také v=CStr(Range("M16"))
SolverOk SetCell:="$R$31", MaxMinVal:=3, ValueOf:=v, ByChange:=""$N$2:$N$14"
SolverSolve
End Sub
Zdravím J.Kratochvíl
další zajímavosti na mých stránkách makra.web.cz
Díky za návrh