エクセルのゴールシークを自動で連続して求めたい

質問

ゴールシーク機能はとても便利ですが、
これを行うには、一回一回、ツールバーからこれを選択するか、
マクロを記録するなどして、実行ボタンを作成しなくては
いけません。

これを自作関数化するなどして、エクセルを開いている間、
自動的に、連続して算出する
ようなことは可能でしょうか。

いろいろと調べては見たのですが、どうしても
分かりませんでした。。

ご存知の方がいらっしゃいましたら、
是非ご教授ください。

回答No.1

noname#262398 · ベストアンサー

ゴールシークのマクロは、
Range("数式入力セル").GoalSeek Goal:=目標値,ChangingCell:=Range("変化させるセル")
なので、
A列に目標値、B列に数式を入力、C列を変化させるとすれば、
For i = 1 To 100
Cells(i, 2).GoalSeek Goal:=Cells(i, 1).Value, ChangingCell:=Cells(i, 3)
Next
こんな感じで自動化できると思います。