[[20150330193124]]　『VBAで計算式の答の出し方』（痴呆症さん）　ページの最後に飛ぶ

『VBAで計算式の答の出し方』（痴呆症さん）

ご質問させて頂きます。

EXCELのVBAで平均断面法（面積）の計算式　↓

　＝（（３＋４）/２）×２０

を表示したまま、別のセルに答を出したいのですが、
どのような式になるかわかる方おりますでしょうか？

EXCEL2013になります。

宜しくお願いします。

＜使用 Excel：Excel2003、使用 OS：Windows8 ＞

 >表示したまま

 表示したままとは、「どこに」表示したままなんですか？

 ＝（（３＋４）/２）×２０ が、どこかのセルに入っていて、別のセルで、この計算結果を表示するということですか？

 その場合、 = で始めるのは具合悪いですね。エクセルに叱られます。

 すなおに、=((3+4)/2)*20 といれると、そのセルが　70 になりますが、それではいやだということですかね？

 たとえば = をぬいて　((3+4)/2)X20 と入力していたとして、別のセルに、その結果を表示するということならできますが。

（β） 2015/03/30(月) 19:47

 もし上記のようなことだったとして

 標準モジュールに

 Function CalFromFormula(r As Range)
    CalFromFormula = Evaluate(Replace(r.Value, "X", "*"))
 End Function

 で、計算させたい式　((3+4)/2)X20 等がシートのセルのたとえばA1にはいっていれば
 =CalFormula(A1) とか。

（β） 2015/03/30(月) 19:52

ご回答有難うございました。

例）

　　　｜A＝（（17+15）÷2）×0.2　｜　　｜
　1 　｜＋（（17+15）÷2）×0.2　｜ 9.6 ｜
　　　｜＋（（17+15）÷2）×0.2　｜

というように全ての計算式を表示させたまま3番目のセルにその答えを出したいのですが？
(理由は、小学生の子供でもわかる明快な表記)

宜しくお願いします。

（痴呆症さん） 2015/03/30(月) 20:37

 後出しはやめていただきたいですねぇ。

 最初の例示では　割り算は　/ だったんじゃないですか？

 で、入力はすべて全角なんですか？

 また、9.6 という結果は
 式を入力 -> 何らかの方法でのマクロ実行指示　->計算して結果を表示
 ですか？
 その場合、式がどこに何行あるのかは、どのように指定する予定ですか？

 それとも、9.6 があるセルに、なんらかの関数式をいれておいて、この３行を参照して答えを表示。

 どちらにしたいですか？

 処理するうえでの約束事として　Ａ＝　というのは、必ずつける？
 あるときは、Ｂ＝　であったり，あるときはつけなかったり？　ということはないでしょうね。

 それと、アップされた、一番左側にある　１　って何ですか？

（β） 2015/03/30(月) 21:03

 あくまで「小学生がわかる式」という前提です。　●乗があったとかπがあったとか、√があったとか
 後出しはやめてくださいね。四則演算に限ります。

 たとえば　A1:A3 に

 Ａ＝　（（１７＋１５）÷２）Ｘ０．２
 　＋（（１７＋１５）÷２）Ｘ０．２
 　　＋（（１７＋１５）÷２）Ｘ０．２

 があったとします。
 全角でも半角でも、先頭や末尾や途中にスペースがあっても、Ａ＝　があっても　Ｂ＝があってもなくてもかまいません。
 ただし、●＝があるとしたら　●は１桁にしてくださいね。　ＡＡ＝　というのは想定していません。

 で、標準モジュールに以下。

 セル側は、たとえば B3 に =小学生でもわかる式(A1:A3) といれます。

 Function 小学生でもわかる式(r As Range) As Variant
    Dim s As String
    s = Replace(StrConv(Replace(Join(WorksheetFunction.Transpose(r.Value), ""), "÷", "/"), vbNarrow), " ", "")
    s = Replace(s, "X", "*")
    If Mid(s, 2, 1) = "=" Then s = Mid(s, 3)
    小学生でもわかる式 = Evaluate(s)
 End Function

（β） 2015/03/30(月) 21:46

[[20081012185737]]

 弥太郎さんのこれ、いつもおすすめしています。

 で、本題とは関係ないのですが
 自分を卑下する気で使われたのかもしれませんが、
 ハンドルネーム、あまり好ましいものではないと思います。

 もし本当に認知症の疑いがあり、今までできていたことが突然できなくなったり、幻覚や物忘れに
 実際に悩まされているのでしたら申し訳ありません。

（稲葉） 2015/03/30(月) 23:32

コメント返信：

[ 一覧(最新更新順) ]

[[20150330193124]] 『VBAで計算式の答の出し方』（痴呆症さん） ページの最後に飛ぶ

[[20150330193124]]　『VBAで計算式の答の出し方』（痴呆症さん）　ページの最後に飛ぶ