今回は、前の回にて作成した２つのマクロを書き換えて、本格的にソルバーを動かすマクロを作成します

前回作成した２つのマクロは、作成条件が次の３つの項目で違っていました

➀目的セル、変数セル、及び制約方法を指定するセルの行位置

②目標値の設定の仕方；シナリオ１/「最大値」、シナリオ２/「指定値」

③制約方法の指定：シナリオ１/「＜＝」、シナリオ２「＞＝」

記録したマクロのコードを比較して、上記の違いがどう反映されているかを見てみましょう！

上がシナリオ１で下がシナリオ２です

おおよそ、黄色の目印を付けたうち、どこが「変数」で置き換えられるか見当がついたと思います

変数で置き換えられる箇所をまとめると、次の通りになります

・SolverOK➡SetCell:「目的値のセル」

　　　　　 ➡MaxMinVal:１は最大値、２は最小値、３は指定値

　　　　　 ➡ValueOf:指定値がある場合に指定（無い場合は０）

・ByChange➡「変動する値：値範囲」

・ SolverAdd➡CellRef: 「制約条件の範囲」

　　　　　　➡Relation:制約方法の指定

　　　　　　　*下の図の順番で指定：etc 「<=」は１、「=」は2）

　　　　　　➡FormulaText:制約条件値の指定 　　　　　　　　　　

今回は前回作成したシナリオ１マクロを以下の３つ、

１．SetCell（目的セル）、２．ByChange（変数セル）、３CellRef（制約条件セル）

それぞれを変数で置き換えてマクロを動かせるようにしましょう！

１．範囲を指定できるようにしておく

今回はC2セルで１を選んだら上の行を操作する（前回のシナリオ１）、２を選んだら下の行（前回のシナリオ２）を操作するようにします

次の２．ではシナリオ１の前に、IF構文を配置し、C2セルに応じて前述の１～３の範囲を動かせるようにします

If mySheet.Range(“C2”).Value = “1” Then　～　else　～

２．マクロに変数をセットしてマクロを実際に動かす

➀If構文で変数を可変にする

②ソルバーのコードに変数を設定する

各X1、X2を１に直しながら、マクロを試してみてください

＜まとめ＞

　今回は、前回操作した記録マクロの範囲（以下の３つの範囲）を事前に指定できるようにしました

１．SetCell（目的セル）、２．ByChange（変数セル）、３CellRef（制約条件セル）

　次回はいよいよ、ループ処理により、複数のシミュレーションを一気に走らせることができるようにします！

にほんブログ村