Excel VBA質問箱 IV

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

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


476 / 13645 ツリー ←次へ | 前へ→

【80165】ソルバーにてエラー”1004”が出て困ってます。 初心者 18/10/3(水) 15:42 質問[未読]
【80167】Re:ソルバーにてエラー”1004”が出て困っ... γ 18/10/3(水) 21:04 発言[未読]
【80168】Re:ソルバーにてエラー”1004”が出て困っ... 初心者 18/10/4(木) 8:23 発言[未読]
【80170】Re:ソルバーにてエラー”1004”が出て困っ... γ 18/10/4(木) 19:15 発言[未読]
【80172】Re:ソルバーにてエラー”1004”が出て困っ... γ 18/10/5(金) 7:03 発言[未読]

【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

【80167】Re:ソルバーにてエラー”1004”が出て困...
発言  γ  - 18/10/3(水) 21:04 -

引用なし
パスワード
   最初の3行に限定してで結構なので、ソルバーの内容を説明してください。
制約条件とか、何を求めようとしているのか、ということです。
そうした説明がまずもって必要ではないですか?

  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

【80168】Re:ソルバーにてエラー”1004”が出て困...
発言  初心者  - 18/10/4(木) 8:23 -

引用なし
パスワード
   ▼γ さん:
すみません、説明不足でした。
画像変換ソフトを用いて、エクセルにデータ化したのをエクセルにてセル数:20×100以上の画像処理を行う過程でそれぞれの平均と偏差を求め、そこからそれぞれの平均と偏差の平均を求めます。
次に2つの画像が同じ対象物を写しているのですが異なる画像の為、それぞれ赤色抽出のデータ値が違います。
そこで、求めた2つの画像の平均と偏差の平均をそれぞれ指定値にして2つの画像データの最適値を出し2つの画像の濃度を均一にするためにソルバーを用います。(目的セルは求めた1ブロックの平均or偏差のセル、変更セルはそれぞれの画像の1ブロックごとにしています。)
尚、1つの画像データが20×100以上で大きくソルバーが使えないため、平均と偏差を求めるところから10×20(データ数200)の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

【80170】Re:ソルバーにてエラー”1004”が出て困...
発言  γ  - 18/10/4(木) 19:15 -

引用なし
パスワード
   悪いけど意味が理解できません。
何回もSolveを実行しているけど、
それらの条件は重なっていくのではなく
独立ですよ。
そして各単位では変数が多い割に
条件が少ないので、
いわゆる不定になっていると思われる。

【80172】Re:ソルバーにてエラー”1004”が出て困...
発言  γ  - 18/10/5(金) 7:03 -

引用なし
パスワード
   最後の部分は私の勘違いでした。取り消します。

再現できる情報が無いので、私には不明です。
他の方の回答をお待ちください。

476 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free