VBAでソルバーを停止せずに動かすには

質問

こんにちは。

VBAで、ソルバーを含んだコードを書いていますが、実行の時にソルバーで計算している度にメッセージボックスが表示されて、OKを押す必要があります。メッセージが表示されない、またはOKが自動的に押されるようにするにはどうすればいいでしょうか。コードは、次のようになっています。
Range("E164").Value = "0.1"
Range("E165").Value = "0"
SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130",　　ByChange:="$C$38"
SolverSolve
Range("AE7").Value = Range("J3").Value
Range("E164").Value = "0.1"
Range("E165").Value = "0.1"
SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38"
SolverSolve
Range("AE8").Value = Range("J3").Value
Range("E164").Value = "0.1"
Range("E165").Value = "0.2" Then
SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38"
SolverSolve
Range("AE9").Value = Range("J3").Value
Range("E164").Value = "0.1"
Range("E165").Value = "0.3"
SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38"
SolverSolve
Range("AE10").Value = Range("J3").Value
・・・
などの繰り返しになっています。
どうぞよろしくお願いいたします。

回答No.2

Wendy02

こんにちは。

通常、VBAマクロにする場合は、以下のように、ダミーのマクロを置いてやることだったと思いますね。

'-------------------------------------------
Range("AE7").Value = Range("J3").Value
Range("E164").Value = "0.1"
Range("E165").Value = "0.1"
SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38"
SolverSolve UserFinish:=True, ShowRef:="DummyMacro"　'←変更
　'続く・・・・
'-------------------------------------------
Sub DummyMacro()

End Sub

回答No.1

myRange

質問者のコードを
Application.DisplayAlertsで挟んでみてください。

'-------------------------------------------
Application.DisplayAlerts = False

　　＊＊＊質問者のコード＊＊＊＊　

Application.DisplayAlerts = True
'---------------------------------------------

以上です。