Solver udfyldes via en makro. Det er ByChange feltet jeg har udfordringer med. Jeg har en String (optimal) med f6;f7;f16;f18 (som jeg kan ændre efter behov) Hvordan kalder jeg String'en i ByChange?
SolverOk SetCell:="portafkast", MaxMinVal:=1, ValueOf:="0", ByChange:="optimal", Engine:=1, EngineDesc:="GRG Nonlinear" eller SolverOk SetCell:="portafkast", MaxMinVal:=1, ValueOf:="0", ByChange:=optimal, Engine:=1, EngineDesc:="GRG Nonlinear" virker ikke
Den bør forstå den som følgende - og som virker. SolverOk SetCell:="portafkast", MaxMinVal:=1, ValueOf:="0", ByChange:="f6;f7;f16;F18", Engine:=1, EngineDesc:="GRG Nonlinear"
Til info så er portafkast en celle som er navngivet, hvilket virker fint
Nogen der har et bud? Mangler stadig en løsning :-)
#1 hvorfor optimal.Value = 55? Og jeg tror mere det er hvordan jeg 'kalder' Optimal. Optimal indeholder jo det jeg skal bruge. (jeg er slet ikke pr, så det er muligt jeg misforstår noget :-))
Set portafkast = Range("a1") Set optimal = Range("f6:f7,f16:f18") ' muligvis "f16,f18"
optimal.Value = portafkast
End Sub
Koden her ville være det samme som hvis formlen =a1 blev sat i f6,f7,f16 og f18 Så jeg har sikkert ikke forstået det helt endnu.
Håber der dukker en ekspert op der kan hjælpe dig i mål med det.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
