Excel VBA %の入ったセル

質問

困りました、、、

ＶＢＡを使って

A×30%+15000
これが入ったセルＢ２と

たとえば250000が入ったセルＢ２を掛け算したいのですが
（Ｂ2の数字は固定ではなくいろいろな数字が入ります）

文字列が入っていることにより
うまくいきません

今は仕方なくＭｉｄ関数で数字を抜き出して使っているのですが
なにかよい方法はないでしょうか

よろしくお願いします<m(__)m>

回答No.1

mt2008 · ベストアンサー

質問文ではどちらもセルB2になっていますが、B1とB2だと勝手に判断しました。
「A×30%+15000」のAの箇所をセルB2に入っている25000と言う値に変えて演算と言う意味で良いですか?
こんな感じでどうでしょう。

Sub test()
　　sFormula = Range("B1").Value
　　nB2 = Range("B2").Value
　　sFormula = Replace(sFormula, "A", nB2)'「A」→セルB2の値
　　sFormula = Replace(sFormula, "×", "*")　'「×」→「*」に変換
　　MsgBox Evaluate(sFormula)
End Sub

お礼

こちらのミスです、、
その通りです(~_~;)

こんな方法があるなんて！！
すごいですね！！！
うまくいきましたありがとうございました<m(__)m>