• ベストアンサー

Excel VBA 　　%の入ったセル

困りました、、、 ＶＢＡを使って A×30%+15000 これが入ったセルＢ２と たとえば250000が入ったセルＢ２を掛け算したいのですが （Ｂ2の数字は固定ではなくいろいろな数字が入ります） 文字列が入っていることにより うまくいきません 今は仕方なくＭｉｄ関数で数字を抜き出して使っているのですが なにかよい方法はないでしょうか よろしくお願いします<m(__)m>

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

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

質問文ではどちらもセル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

画像を拡大する
lostsymbol
質問者

お礼

こちらのミスです、、 その通りです(~_~;) こんな方法があるなんて！！ すごいですね！！！ うまくいきましたありがとうございました<m(__)m>

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCEL 2010 VBAまたは関数について

    こんにちは 初投稿です。 早速ですが、VBAまたは関数について質問させて頂きたいのですが・・・ 一つのセルに複数の数字と文字列がセルのE1混ざっている場合, （12345abc678cdef9ghijk)と入っている場合 にこの例で行くとセルのA1に12345セルB1に678セルC1に9というように数字で表示させたいのです が、最初関数で A1=VALUE(MID(E1,1,5)) B1=VALUE(MID(E1,9,3)) C1=VALUE(MID(E1,16,1)) と言う形で数字だけ抜き出していたのですが これだと数字の桁数が違ってくる（※正し文字列の長さは一緒　数字だけが桁が違ってきます） と表示されなくなってしまうため、 出来れば関数をいじらなくても表示されるようにしたいのです。 VBAもしくは関数でこの問題を解決出来る方がいらっしゃるなら どうぞよろしくお願い致します。 長文失礼致しました。 | A | B | C |　D　| E | ------------------------------------------------ 1 | 12345 | 678 | 9 | | 12345abc678cdef9ghijk | 2 | | | | | |

  • エクセルVBAでセル選択

    エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！

  • エクセルＶＢＡでセル結合

    いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。

  • エクセル　セル内の合計値に応じてセルの色を変えたい

    　　　　　A　　　　　　B　　　　　　　 １　　　　２　　　　りんご２ ２　　　　４　　　　りんご１,メロン３ ３　　　　３　　　　メロン１,みかん１ 上記のように，A列セルには数字が入っていて，B列セルには文字列と数字が入っています。 A１セルの値と，B1の文字列に含まれている数字は合致しているので，セルの色はそのままです。A2セルの値とB2の文字列に含まれている数字の合計が合致しているので，ここもセルの色はそのままです。しかし，A3セルとB3の文字列に含まれている数字の合計は合致していないので，B3セルに色を付けたいのです。 B列のセルは，１つのセル内に文字列と数字を入力することを前提に考えていますが，こうしたことは可能でしょうか？可能であれば教えていただけたら幸いです。

  • エクセル　MID関数

    MID関数で表示した文字列が、数字として認識されません。 MID関数で表示された数字が10とします。セルはA１とします。 その後、IF式で =if(A1<5,10,0) とすると、結果は０になるはずなのに、常に真の値、１０になってしまいます。 原因は、MID関数で表示された数字が文字列として認識しているからと考えられますが、対象方法をご存知の方がおりましたら教えてください。 よろしくお願いします。

  • EXCEL　MID関数の文字数について！

    セルA1　12×1240×2280 セルA2　3×1240×2280 セルA3　5.5×1240×2280 ↑こんな風にセルの中に数字が入っているのでMID関数で セルA1　=MID(A1,1,2)→12 セルA2　=MID(A2,1,1)→3 セルA3　=MID(A3,1,3)→5.5 と答えが出ます。でもA列の桁数によりMID関数の文字数を変えなければなりません。 一気に出せる方法はないでしょうか？？ おわかりの方教えてくださーい！

  • エクセル2000　異なるセルをくっつけて表示

    こんばんは。　毎度どうもすみません。 「エクセル2000　異なるセルをくっつけて表示」について質問します。 次のような文字があり、日付、曜日、時間は書式設定により表示されてます。（設定を解除すると数字の羅列になる。） 　　A列　　B列　　C列　　　D列　　　E列 1　09/20　木　　10：00　　山田　　名古屋 2 この表あるそれぞれの文字をひとつのセルに改行して表示させるにはどうすればいいでしょうか？ 　09/20 　木 　10：00　に 　山田　さん　名古屋　で　会いましょう 上記のようにしたいのです。 「＆」記号とchar(10)記号を試してみましたが、日付などが数字になりうまく表示されません。関数では無理でしょうか？　やはりVBAかな。　方法があれば教えてください。　

  • エクセルであるセルの文字が他のセル内で１文字でも存在するかを知る関数は？

    エクセルであるセルの文字が他のセル内で１文字でも存在するかを知る関数はありますか？ たとえばＡ列の値に存在する文字がＢ列に１文字でもあるかを チェックすることができるのでしょうか。 A列　　　　|　　　B列 　　　|　　　C列 -------+----------+---------- ABCD　　|　　XYZB　　　|　　○　-->　Ｂがある XY　　　　|　　ABSCE　　|　　Ｘ　--> ＸもＹもない HD 　　　　|　　XUDM　　|　　○　--> Ｄがある マクロ（ＶＢＡ)でなく関数で表したいのですが このような関数はありますか？ 関数のヘルプを調べたのですが、出来そうで出来ません。 どうぞよろしくお願いします。

  • Excel VBAでセルの整列

    Excel VBAでセルの整列 現在、VBAを勉強中の者です。 最近、勉強を始めたばかりですが、この前何とかVBAを用いてセルの塗り潰しが出来る様になりました。 そこで、今度は色が塗り潰されたセルを添付した画像のように整列したいと考えていますが、どんな風にすれば良いのか見当がつきません。 誰か、教えてください。 やりたい事は、A列に結合されているセルがいくつか存在していて、B列を挟んでC列にA列に関連する文字が入力されています。 そして、C列には予めセルが塗り潰されている箇所がありますが、今回、C列において塗り潰されているセルのみを、結合されているセルの最終行に移動させたいのです。

  • エクセルVBAについて教えてください

    エクセルVBAを勉強中のものです。 仕事でVBAが必要になり勉強しながら作成をしています。 作成したいのはシフト表になるのですが、1年分をまとめて作成するため、最初に一旦空白セルに、ある一定の規則性を持った文字を入力したいのです。 その規則というのが ・入力する文字はA、B、C、Dの4種のうちどれかである ・同じ文字が入力されたセルが5つ続いたのちは、次の文字に移る（A、A、A、A、A、B、B、B、B…というように） ・夏季休業等、×の付いた部分は入力しない というものです。 なおかつ、前年度のデータからの引き継ぎで作成するため、スタートがバラバラです。（添付の画像通り） 休暇の列は５連勤した後１休、という規則です。 VBAと関数を併用するのでも構いません。 関数のみでできるのなら、それでも構いません。 初心者の私にぜひ教えていただけないでしょうか…。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する