今回は、前の回にて作成した２つのマクロを書き換えて、本格的にソルバーを動かすマクロを作成します
前回作成した２つのマクロは、作成条件が次の３つの項目で違っていました
➀目的セル、変数セル、及び制約方法を指定するセルの行位置
②目標値の設定の仕方；シナリオ１/「最大値」、シナリオ２/「指定値」
③制約方法の指定：シナリオ１/「＜＝」、シナリオ２「＞＝」
記録したマクロのコードを比較して、上記の違いがどう反映されているかを見てみましょう！
上がシナリオ１で下がシナリオ２です
おおよそ、黄色の目印を付けたうち、どこが「変数」で置き換えられるか見当がついたと思います
変数で置き換えられる箇所をまとめると、次の通りになります
・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（制約条件セル）
次回はいよいよ、ループ処理により、複数のシミュレーションを一気に走らせることができるようにします！
