• ベストアンサー

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

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

noname#247334
noname#247334

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

たとえば： 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 ただしＦ２４のホントの値が「４０」なのか「４０％」なのかよく確認し、正しく作成してください。 ＃ご利用のエクセルのバージョンが不明ですが、必要なマクロはほとんどマクロの記録で採取できます。

noname#247334
質問者

お礼

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

noname#247334
質問者

補足

Excel2003で使用します。数値は「40」ですね。 宜しくお願いしますm(_ _)m

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • Exelのゴールシークについて

    基本的な質問で大変恐縮です。 エクセルのシートの B1に、=IRR(C1:F1) C1に、-800,000 D1に、70,000 E1に、70,000 と入力したうえで「ツール」の「ゴールシーク」で「数式入力セル」をB1,「目標値」を10％、「変化させるセル」をF1としてOKを押すと、 「セルに入力した数式の計算結果は数値でなければなりません」というメッセージが出てきます。 どこかやり方がまずいのだと思うのですが、どこがいけないのでしょうか？？

  • Excel2003　ゴールシークの操作手順を教えてください

    たとえば、セルC9の限度額が300,000円の場合、セルC5の税抜き26,000円の商品は何個買うことができるか、ゴールシーク機能を使用してセルC7に求める。というもので、ゴールシークダイアログボックスに入力（セルをクリック）するのですが、うまくいきません。OKを押すと「数式の入力されているセルを指定してください」と表示が出ます。 （操作のどこか、間違っているとは思うのですが・・・） この場合、ゴールシークダイアログボックスの「数式入力セル」、「目標値」、「変化させるセル」には、どのセルを指定すればよいのか教えてください。 よろしくお願いします。

  • ゴールシークについて

    エクセルのゴールシークを利用して解きたい問題があるのですが、 「セルに入力した数式の計算結果は数値でなければなりません」と表示されてしまいます。 「変化させるセル」が「数値入力セル」の分母であることが原因だと思われますが、 解決法がわかりません。 ご教示のほどよろしくお願いします。

  • エクセルのゴールシークについて

    　エクセルのゴールシークについて質問します。 　実際に解が存在するにもかかわらず、計算式・目標値の条件によっては、解が求まらない場合があります。 　私の場合、以下の計算を実行しましたが、解が求まりませんでした。 =SIN(ATAN(1/1500))-0.02^2*2000^2/(2*α+100)^(4/3)/(100*α)^2 変数＞α 目標値＞0.0 他の目標値では解が求まりました。 　解決方法が分かれば教えてください。 　よろしくお願いします。

  • ゴールシーク（マクロ）で型が一致しないと表示

    マクロ初心者です。 ゴールシークを調べると Range(”式の入ったセル”).GoalSeek Goal:=Range(”目標の入ったセル”), ChangingCell:=Range(”変化させるセル”) このような解説があったので、実際に Sub 熱伝導グラフ_ボタン17_Click() Worksheets(Sheet1).Range(S33).GoalSeek Goal:=Worksheets(Sheet1).Range(S32), ChangingCell:=Worksheets(Sheet1).Range(S25) End Sub 上を作成しマクロを実行したのですが、型が一致しませんというエラーが出ます。 何が原因なのか、またどのような対処が必要か教えてください。 作成したいゴールシークはS33の式中のＳ25を変化させることにより目標値Ｓ32になるＳ25を見つけるプログラムを作成したいと考えています。 よろしくお願いします。

  • コマンドボタンを押すとＨＰにアクセスVBA

    エクセルVBAの質問です。 コマンドボタンを押すと「インターネットホームページにアクセスします、宜しいでしょうか？」とMsg Boxpが出現して「はい」を選択すると、パソコンに入ってるMozilla Firefoxでホームページ(https://www.monotaro.com/)を開くVBAは、どの様にすれば宜しいでしょうか？

  • Excel VBA

    VBAでセルF1に数式を入れようと次のようにしました。 Range("F1").Formula = "=if(D4=" & """"",""""" & ",JIS(PHONETIC(D4)))" 実行したところ、F1セルは「#NAME?」と表示されてしまいます。 F1セルの数式バーには、きちんと、「=if(D4="","",JIS(PHONETIC(D4)))」となっています。 この数式を数式バー内で一度選択してリターンキーで決定するときちんとD4セルのふりがなが入ります。 これまでにも、数式を入れたことはあったのですが、こんなことにはなりませんでした。 今回は、なぜ正しい関数式が入ってもきちんと表示されないのか分かりません。 よろしくお願いします。

  • ＶＢＡの印刷方法についてお教え下さい。

    独学でエクセル２００３でＶＢＡを初めたばかりの５０男ですが宜しくお教え下さい。 セルＡ１～Ｆ３５の範囲をコマンドボタンを使用して印刷する方法をＷｅｂサイトを覘いて試してみたのですが、なかなかうまくいかず悩んでいます。 宜しくお願い致します。

  • VBA教えてください

    セルB5からF5に各列の平均値が入力されています。 B5からF5の値をH6からL6にも表示されるVBAを作りたい のですが教えていただけないでしょうか？ 関数でを使えば簡単ですが数式を表示したくないので お願いします。

  • VBAでセルがコピーされているか判定したい

    VBAでコマンドボタンを押した時に セルがコピーされた状態でコマンドボタンが押されたか セルがコピーしていない状態でコマンドボタンが押されたかで 処理を分けたいのですが、 そのようなことを判定する方法はありますでしょうか?

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する