設置解算器循環

如何設置一個循環來解析一列目標單元格與一列變量單元格？設置解算器循環

它是無關緊要的解決方案類型，「GRG非線性」似乎工作正常。

我的客觀細胞是E7：E207
解決方案最小化或= 0，因爲我想要一個真正的根。

我的可變細胞是D7：D207

它解決的變量是三次方程，其中它輸出實際的根（沒有虛部）。我環顧了這個論壇，但我似乎無法理解。

我基本的宏至今：

Sub Solver() 
' 
' Solver Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+S 
' 
    Range("E8").Select 
    SolverOk SetCell:="$E$7", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$7", Engine:=1 _ 
     , EngineDesc:="GRG Nonlinear" 
    SolverOk SetCell:="$E$7", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$7", Engine:=1 _ 
     , EngineDesc:="GRG Nonlinear" 
    SolverSolve 
End Sub

來源

2017-01-23 Kelvin

你試過錄制宏？至今我還沒有用過解算器。因此，我可能會重新發明輪子... – Sancarn

這個問題已經回答了很多次。

下面將解決您的問題...

Sub mySolve() 
Dim SetAddr As String, ChgAddr As String 
Dim i As Long 

For i = 7 To 207 
    SetAddr = Sheets("Sheet1").Cells(i, 5).Address 
    ChgAddr = Sheets("Sheet1").Cells(i, 4).Address 
    SolverOk SetCell:=SetAddr, MaxMinVal:=3, ValueOf:=0, ByChange:=ChgAddr, Engine:=1 
    SolverSolve UserFinish:=True 
Next i 

End Sub

來源

2017-01-28 23:45:08 OldUgly

設置解算器循環

回答

相關問題