|
初めての投稿です。
マクロの記録にてソルバーを記録させ、他のデータに使えるように以下のように編集したところエラーコード"1004"が出てきてしまいソルバーを実行することができません。
尚、デバッグを押したところSolverSolveが黄色くマーキングされ、そこを削除しても次のSolverSolveがマーキングされる現状です。
ネットで対処法を検索し、マクロのツールから参照設定内のSolverにチェックを入れても“1004”が出てきてしまって、実行できません。
無知の初心者なもので解決策が見出せません。
申し訳ございませんが、皆さんご教授お願いします。
------以下、プログラムです。-------
Sub ソルバー2()
'
' ソルバー2 Macro
'1-1
'
SolverOk SetCell:="$A$102", MaxMinVal:=3, ValueOf:=93.6925, ByChange:= _
"$A$1:$T$10", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$B$102", MaxMinVal:=3, ValueOf:=93.6925, ByChange:= _
"$A$51:$T$60", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$A$103", MaxMinVal:=3, ValueOf:=24.61834, ByChange:= _
"$A$1:$T$10", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$B$103", MaxMinVal:=3, ValueOf:=24.6834, ByChange:= _
"$A$51:$T$60", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
'1-2
SolverOk SetCell:="$A$105", MaxMinVal:=3, ValueOf:=101.8, ByChange:= _
"$A$11:$T$20", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$B$105", MaxMinVal:=3, ValueOf:=101.8, ByChange:= _
"$A$61:$T$70", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$A$106", MaxMinVal:=3, ValueOf:=26.23977, ByChange:= _
"$A$11:$T$20", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$B$106", MaxMinVal:=3, ValueOf:=26.23977, ByChange:= _
"$A$61:$T$70", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
・
・
中略
・
・
'4-3
SolverOk SetCell:="$BI$108", MaxMinVal:=3, ValueOf:=119.4167, ByChange:= _
"$BI$21:$CB$30", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$BJ$108", MaxMinVal:=3, ValueOf:=119.4167, ByChange:= _
"$BI$71:$CB$80", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$BI$109", MaxMinVal:=3, ValueOf:=3.021422, ByChange:= _
"$BI$21:$CB$30", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$BJ$109", MaxMinVal:=3, ValueOf:=3.021422, ByChange:= _
"$BI$71:$CB$80", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
|
|