ゴールシークのＶＢＡの質問

質問

お世話になります。ゴールシークのＶＢＡの質問です。

ゴールシークの数式入力セルが”Ｆ２５”・目標値が”１５０”・変化させるセルを”Ｆ１８”とするゴールシークのルールとします。

コマンドボタンをクリックすると、上記で述べたゴールシークを自動で実行してくれ、その後Ｆ２４の値が４０以下なら「４０％以下です。水を補給し液面を増やしてください。」とMsg Boxが出現し、ＯＫボタンのみを表示させるＶＢＡはどの様に組めば良いのでしょうか？

回答No.1

keithin · ベストアンサー

たとえば：
private sub CommandButton1_Click()
　range("F25").goalseek goal:=150, changingcell:=range("F18")
　if range("F24").value<=40 then msgbox "under 40%, pour water."
end sub

ただしＦ２４のホントの値が「４０」なのか「４０％」なのかよく確認し、正しく作成してください。

＃ご利用のエクセルのバージョンが不明ですが、必要なマクロはほとんどマクロの記録で採取できます。

お礼

この度は回答ありがとうございました。無事に問題が解決出来ました！！非常に助かったので感謝申し上げます。

補足

Excel2003で使用します。数値は「40」ですね。

宜しくお願いしますm(_ _)m