Excel VBA質問スレ Part12

108 名前：デフォルトの名無しさん [2009/07/21(火) 13:36:15 ] 現在Excelでソルバーをマクロで操作するプログラムを作っています。 Sub ソルバーループ() With Worksheets("jack") For i = 1 To 10 With Worksheets("jack") Solverok setcell:="$E$1", MaxMinVal:=2, ByChange:="$A$2:$D$2" ‘目的セルをE1として、その最小値を求める。変数はA2:D2。 SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1" SolverSolve Userfinish:=True SolverFinish KeepFinal:=1 Worksheets("Sheet1").Cells(i + 0, 5) = Worksheets("jack").Cells(1, 5) Worksheets("Sheet1").Cells(i + 1, 1) = Worksheets("jack").Cells(2, 1) Worksheets("Sheet1").Cells(i + 1, 2) = Worksheets("jack").Cells(2, 2) Worksheets("Sheet1").Cells(i + 1, 3) = Worksheets("jack").Cells(2, 3) Worksheets("Sheet1").Cells(i + 1, 4) = Worksheets("jack").Cells(2, 4) End With Next End With このプログラムのなかの SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1" という制約条件で、$G$1　を　$G$10　まで変化させていき、各制約条件ごとに一つずつ 結果をワークシートのsheet1に書き込んでいきたいのですが SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1"の部分に どのようにして　i　を組み込めばいいでしょうか？ ほんの少しのヒントでも非常に有難いので、お力添えくだされば幸いです。 皆様お忙しいでしょうが、どうぞよろしくお願いいたします。。。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef