【Excel】マクロにソルバーを組み込んだ時の対処方法

下記のようにマクロを組みましたが、ソルバーが解を見つけた時にいちいちOKをクリックしないと貼り付けに進みません。以下の作業を何回も繰り返すのですが、すべて自動的に行くにはどのように修正すればよろしいでしょうか？
宜しくお願いいたします。

Sheets("optimise").Select
ActiveWindow.ScrollRow = 1
Range("B7").Select
Selection.Copy
Range("E7").Select
ActiveSheet.paste
SolverOk SetCell:="$E$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$E$29:$R$29"
SolverSolve
Range("E29:R29").Select
Selection.Copy
Sheets("Table").Select
Range("G7").Select
ActiveSheet.paste
Application.CutCopyMode = False
Sheets("optimise").Select
Range("B8").Select
Selection.Copy
Range("E7").Select
ActiveSheet.paste
SolverOk SetCell:="$E$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$E$29:$R$29"
SolverSolve
Range("E29:R29").Select
Selection.Copy
Sheets("Table").Select
Range("G8").Select
ActiveSheet.paste

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/03/28 12:41

ユーザーの入力を求めるダイヤログのことでしょうか？

DisplayAlert は、Application(Excelの意味）属性ですから、役には立たないと思います。
'SolverSolveの部分を

SolverSolve Userfinish:=True
としてみてください。

それから、

これは、まとめられると思います。
Sheets("optimise").Select
ActiveWindow.ScrollRow = 1
Range("B7").Select
Selection.Copy
Range("E7").Select
ActiveSheet.paste

↓
Sheets("optimise").Activate　'(Selectでも可能です）
Range("B7").Copy　Range("E7")
暇があったら、試してみてください。

この回答へのお礼

ありがとうございます、できました！現在サクサク動いています。大変助かりました。記述をまとめる方もこれからやってみます。

お礼日時：2005/03/28 13:33

No.1 回答者： big_fool 回答日時： 2005/03/28 09:03

検証していませんが

確認のメッセージが表示されるコードを
Application.DisplayAlerts = False

Application.DisplayAlerts = True
ではさんでみてはいかがでしょう

この回答へのお礼

早速のご回答ありがとうございます。下記のようにやってみましたが、残念ながら結果は一緒でした。やり方が間違っているのでしょうか？宜しくお願いいたします。

Sheets("optimise").Select
ActiveWindow.ScrollRow = 1
Range("B7").Select
Selection.Copy
Range("E7").Select
ActiveSheet.paste
SolverOk SetCell:="$E$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$E$29:$R$29"
Application.DisplayAlerts = False
SolverSolve
Application.DisplayAlerts = True
Range("E29:R29").Select
Selection.Copy
Sheets("Table").Select
Range("G7").Select
ActiveSheet.paste
Application.CutCopyMode = False

お礼日時：2005/03/28 09:44