28. maj 2002 - 00:06
Der er
6 kommentarer
solver i makro
Jeg har oprettet en makro der indeholder et solver problem. Ved at ændre på 2 tal, skal en celle antage en værdi. Begge tal skal angives i hele tal. Hvilket gør at der er en begrænsning i solveren om at begge er integer.
Hvis man nu kører makroen, finder den hver anden gang tal der ikke er hele og hver anden gang, de tal jeg er ude efter, hele tal.
Hvorfor gør den det?
Sub længde()
'
' længde Macro
' Macro recorded 27-05-2002 by Ziro
'
' Keyboard Shortcut: Ctrl+l
'
Worksheets("udregning").Activate
SolverReset
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverAdd CellRef:="$E$4:$E$5", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverAdd CellRef:="$E$4:$E$5", Relation:=4, FormulaText:="integer"
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverAdd CellRef:="$G$6:$G$7", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverAdd CellRef:="$G$7", Relation:=3, FormulaText:="$B$4"
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=0, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
SolverOk SetCell:="$G$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$4:$E$5"
SolverSolve
End Sub