エクセル：マクロ メッセージボックスを消す

質問

エクセル作業中に発生するエラーメッセージ等、出てくるメッセージボックスをすべて包括的にキャンセル（Ｃ）あるいは中止（Ａ）するマクロを記述することは可能でしょうか？宜しくお願いいたします。

回答No.4

Wendy02

こんばんは。Wendy02です。

こちらでは再現できませんが、確かに、そのようなメッセージが出た覚えがあります。しばらくやっていれば、見つけられるとは思いますか゛まだ、分かりません。

気になる点があります。

マクロと手動で違う点というのは、Reset が入らないことです。

Sheets("optimizer").Select　の後に、
SolverReset
が入っていないことですね。必ずしも、SolverReset が必要だとは思いませんが、しかし、一番大きな違いとすれば、そこになってしまいます。ですから、以下のようなコードにしなくてはなりません。

若干違う部分は、以下です。選択がありません。
D19:M19>-0.40
D19:M19<0.40

もうひとつは、MaxTime:=300, Iterations:=300　というのは、論理的にはおかしいです。
昔、一度、同じ機能の　Iteration（回数） とマクロのスピードを計測したことがありますが、300秒＝5分ですから、Iteration が300ということはありませんので、以下のように、3万にしてみました。マクロですと、100万とかありますが、ソルバーでは、少し多いような気がします。

Sub TestMacro2()
　　Sheets("optimizer").Select　
　　SolverReset
　　SolverOk SetCell:="$N$19", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$19:$M$19"
　　' MaxMinVal:=3 かもしれない
　　SolverOptions MaxTime:=300, Iterations:=30000, StepThru:=False

　　SolverAdd CellRef:="$D$19:$M$19", Relation:=3, FormulaText:="-0.4"
　　SolverAdd CellRef:="$D$19:$M$19", Relation:=1, FormulaText:="0.4"
　　SolverAdd CellRef:="SUMIF($D$19:$M$19,"""">0"""")", Relation:=2, FormulaText:="1"
　　SolverAdd CellRef:="SUMIF($D$19:$M$19,""""<0"""")", Relation:=2, FormulaText:="-1"
　　SolverAdd CellRef:="$N$19", Relation:=2, FormulaText:="MIN($N$21:$N$23)"
　　SolverAdd CellRef:="$N$21", Relation:=2, FormulaText:="SUMPRODUCT($D$19:$M$19,$D$6:$M$6)"
　　SolverAdd CellRef:="$N$22", Relation:=2, FormulaText:="SUMPRODUCT($D$19:$M$19,$D$7:$M$7)"
　　SolverAdd CellRef:="$N$23", Relation:=2, FormulaText:="SUMPRODUCT($D$19:$M$19,$D$8:$M$8)"

　　SolverSolve Userfinish:=True, ShowRef:="DummyMacro"
　　SolverFinish 1
End Sub

Sub DummyMacro()

End Sub