VBAでの、マクロ参照をするソルバー

ソルバー中の変数が、マクロを実行した値の場合はどのようにすればいいのでしょうか？

たとえば操作するセルを変えても、あるマクロを実行しないと目的のセルが変わらない場合です。

solversolveのshowrefを利用して以下のように書きましたが、最適化はされたと表示されますがマクロを実行してくれませんでした。


Sub Macro()
SolverReset
SolverOk SetCell:="$C$17", MaxMinVal:=1, ValueOf:="0", 　　ByChange:="$B$17:$B$18"
SolverOptions MaxTime:=900, Iterations:=900, Precision:=0.01, AssumeLinear:= _
False, StepThru:=True, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=10, Scaling:=False, Convergence:=0.1,

SolverSolve UserFinish:=False, ShowRef:="macro1"

No.1 回答者： Wendy02 回答日時： 2007/12/01 12:02

こんにちは。

>ソルバー中の変数が、～あるマクロを実行しないと目的のセルが変わらない場合です。
こちらのほうは、良く意味が良く分かりません、というか、結果の話ではないでしょうか？

そのために、まず、元のマクロのコードが、ちょっと違っているからですね。間違いではなくて、たぶん、時代とともに変化したのかもしれません。そちらを直してから、もう一度、質問を出してください。

もう、こういうのは、ちゃんとしたマニュアルもないので、以前、私が、何度もやってみた結果なのです。

それで、
ShowRef:="macro1"
は生きていないのです。しかし、そこは、空にすることはできないので、単なるDummyマクロを置いてあげます。つまり、Sub macro1() ～ '[何もない]～ End Sub というようなものです。

そして、
SolverOptions の StepThru:=True　-> False に換えて、

その次に、

SolverFinish 1

と置いてから、

次のマクロをサブルーチンなどで置いてやるわけです。
Call macro2　（私などは、ここは、通常、コピーをするマクロです）

ただ、元のソルバーはちゃんと解が入りますか？
通常は、条件(SolverAdd)をいれないと、小数点で処理していくはずです。

なお、ソルバーのもとの数式はどうなっているか、想像つきませんでした。たぶん、組み合わせになるのかな？