Visual Basic - Solver inestable #¡VALOR!

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Solver inestable #¡VALOR!

Publicado por cristian (1 intervención) el 17/04/2020 18:13:42
Estimados, buen día. Espero se encuentren muy bien junto a sus familias. Necesito ayuda por favor. He escrito un breve código que llama a solver para minimizar un error ajustando unos cuantos parámetros y con una restricción. Esta minimización se debería repetir diariamente para un rango de fechas. No sé la razón por la cual solver se vuelve inestable y maximiza la función en vez de minimizar y como resultado #¡VALOR!. .Me podrían por favor orientar o sugerir una solución al problema planteado. Abajo el código y se adjunta el archivo excel. Muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Solver_Tasa()
 
Sheets("Tasa").Activate
 
Dim i As Long
Dim j As Long
 
For i = 4 To 23
For j = 4 To 23
 
 
SolverReset
 
SolverOk SetCell:=Range(Cells(13, i), Cells(13, i)), MaxMinVal:=2, ValueOf:=0, ByChange:=Range(Cells(7, i), Cells(12, i)).Address, Engine:=1, EngineDesc:="GRG Nonlinear"
 
SolverAdd CellRef:=Range(Cells(4, i), Cells(4, i)), Relation:=2, FormulaText:=Range(Cells(5, j), Cells(5, j)).Address
 
 
SolverOk SetCell:=Range(Cells(13, i), Cells(13, i)), MaxMinVal:=2, ValueOf:=0, ByChange:=Range(Cells(7, i), Cells(12, i)).Address, Engine:=1, EngineDesc:="GRG Nonlinear"
 
SolverOk SetCell:=Range(Cells(13, i), Cells(13, i)), MaxMinVal:=2, ValueOf:=0, ByChange:=Range(Cells(7, i), Cells(12, i)).Address, Engine:=1, EngineDesc:="GRG Nonlinear"
 
SolverSolve (True)
 
SolverSolve userFinish:=True
SolverFinish KeepFinal:=1
 
Next j
Next i
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder