Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2213 / 76734

←次へ　｜　前へ→


	【80165】ソルバーにてエラー”1004”が出て困ってます。

初心者 - 18/10/3(水) 15:42 -


	引用なし

	パスワード

初めての投稿です。

マクロの記録にてソルバーを記録させ、他のデータに使えるように以下のように編集したところエラーコード"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

7 hits

▼

【80165】ソルバーにてエラー”1004”が出て困ってます。 初心者 18/10/3(水) 15:42