Ciao,
stavo cercando di risolvere un problema con una macro e mi sono imbattuto nel vostro Forum che mi sembra davvero ben fatto.
Avrei bisogno di una mano per creare una macro che utilizzi il Solver per risolvere un sistema di 3 equazioni non lineari in 3 incognite.
In particolare, a partire dalla Macro (che funziona!),
Sub Prova()
SolverOk SetCell:="$V$3", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$3:$L$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$V$3", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$3:$L$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
volevo aggiungere un ciclo FOR per estendere il calcolo a un numero maggiore di righe. Per ora ho scritto
Sub Sistema()
For i = 3 To 8
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$J$" & i:"$L$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$J$" & i:"$L$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve UserFinish:=True
Next i
End Sub
Ma continua a darmi Errore di Sintassi e non capisco proprio il perchè. Immagino abbia sbagliato qualcosa nella definizione delle celle (in particolare nel ByChange...)
Sperando di essere stato chiaro nel porre la domanda, vi chiedo se potreste darmi una mano per favore?
Grazie