• ベストアンサー

VBA　計算について

マクロ初心者です。 初歩的な質問だとは思いますが、調べてわからなかったので質問させていただきます。 一行ずつ読み込んで、一行ごとの合計を出すマクロを作ってみようと思っています。 例えばですが・・・ A4　+　B4　+　C4　+　D4×2　+　E4 D列の値のみ2倍で計算する。 このような計算をするときは、どのような書き方になるのでしょうか？ よろしくお願いします。 　　

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

  • ベストアンサー
  • o_chi_chi
  • ベストアンサー率45% (131/287)
回答No.2

追加で Cells または Range の前に Activesheet. または WorkSheets("Sheet1"). をつけたほうがいいでしょう。 どのシートのどのセルを参照しているかを明確にする意味で。 Valueも省略可能ですが初心者のうちは略さず書きましょう。 --- MsgBox ActiveSheet.Cells(4, 1).Value _ + ActiveSheet.Cells(4, 2).Value _ + ActiveSheet.Cells(4, 3).Value _ + ActiveSheet.Cells(4, 4).Value * 2 _ + ActiveSheet.Cells(4, 5).Value

whitebunny2
質問者

お礼

詳しく説明してもらい、ありがとうございます。 したい事が出来ました♪ また質問するかもしれませんがよろしくお願いします　m(_ _"m)ペコリ

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • o_chi_chi
  • ベストアンサー率45% (131/287)
回答No.1

下記でどうでしょう。 セルの値を取得する方法は Range("A4").Value でもＯＫ -- MsgBox Cells(4, 1).Value + Cells(4, 2).Value + Cells(4, 3).Value + Cells(4, 4).Value * 2 + Cells(4, 5).Value

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 簡単そうで難しい計算

    簡単そうで難しい計算 A1に3　A2に4　A3に5　A4に7、B1に6　B2に7　B3に12　B4に13　B5に16、C1に1　C2に6　C3に7　C4に8　C5に9、D1に12　D2に13　D3に14　D4に20、E1に13　E2に15　E3に16の数値が入力されています。それぞれ列の少ない数値からA+B+C+D+Eの加算合計値を表示できないでしょうか？自分で調べてみたのですが順列で組み合わせの数値を出す計算式はあったのですが、その組み合わせの加算値を出す方法はわかりませんでした。 合計値と共に3+6+1+12+13　3+6+1+12+15　のように何を組み合わせたかも知りたいです。 グループ内の数値の組み合わせ点数を知りたいので、この様なものが必要になってしまい安易に考えていたのですが、私では手に負えません。 どうぞよろしくお願い申し上げます。

  • excelの計算式のコピーが出来なくなった。

    Excelで表を作成して、A列の下部にSUMで合計を出して、選択をして 右にドラッグして、B,C,D,E,の合計を出していたのですが、 突然、計算式のコピーが出来なくなり、A列の合計が　そのまま　B,C,D,Eにコピーされるのです。　　B列に移動したときはB列のSUMとなっているのですが、確定しますとAの値になります。 理解できなくて？　　助けてください。

  • エクセル　ＶＢＡ　計算方法

    ＶＢＡ初心者です。 ご指導お願いいたします。 Ａ～Ｃ列にそれぞれお金の値段が入力されているので、Ｄ列に合計を出したいのですが、 特殊に入力されているので自分にはどうしていいものかわかりません。 例えば Ａ列には５．３万とか６．２万などと入力されています。 Ｂ列には4,000円とか3,000円などと入力されています。 Ｃ列には800円などと入力されているうえに　-　入力されているので 　-　は0円とみなして計算して合計をＤ列に入力したいです。 どうか教えてください。

  • Numbersでの計算で困っています

    現在2015年8月での最新バージョンNumbers バージョン 3.5.3を使用しています。 添付画像の計算で、商品Aの1単位が6個、商品Bの1単位が4個、Cが4個、Dが3個、Eが6個、Fが5個、Gが2個です。 商品AをAさんが4個、Bさんが5個、Cさんが1個を購入したとすれば、合計は「=SUM(C2:E2)×B2」で60個と計算出来ますが、以下商品B～GまではセルF2の計算式をセルF3～F8までコピーで出来ました。 ここまではわかります。 次に、Aさんが商品A～Gを購入した場合の計算方法ですが、 「=SUM(C2×B2+C3×B3+C 4×B4+C5×B5+C6×B6+C7×B7+C8×B8)」 これで99個と計算できますが、実際使いたいのは縦50種類以上になるのでもう少し効率のいい計算式を教えていただきたいのと、Bさんの合計はAさんの合計の式（セルC10）をコピーしてもC列とD列で計算されてしまいます。 10行目にはC列✕B列の合計、D列✕B列、E列✕B列の合計を表示させたいのですが、簡単に計算できる方法はありませんか？ よろしくおねがいします。

  • ＶＢＡでのデータの値を選択する事について

    　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ　　　Ｇ １　１０　　１５　　　　　　　９　　　２３　　３３　　５５ ２　　　　　　　　　　　　　１０　　　３３　　４４　　５６ ３　　　　　　　　　　　　　１１　　　４４　　５５　　５７　　　　　　　　　　　 ４　　　　　　　　　　　　　１２　　　５５　　６６　　７６ ５　　　　　　　　　　　　　１３　　　２３　　７７　　８７ ６　　　　　　　　　　　　　１４　　　３３　　８８　　８８ ７　　　　　　　　　　　　　１５　　　４５　　９９　　９９ ８　　　　　　　　　　　　　１６　　　５５　　２１　　５６ ９　　　　　　　　　　　　　１７　　　６６　　４５　　７６ １０　　　　　　　　　　　　１８　　　７７　　５２　　５４ 質問です Ａ１の値が１０ Ｂ１の値が１５ でＡ１とＢ１の値は各データによって異なって入力されています。 決まりとしては、 Ａ１＜Ｂ１で, 必ず、Ａ１の値とＢ１の値はＤ列に存在します。 Ａ１の値とＢ１の値をマクロで取得し、 Ｄ列でその選択範囲を検索し、Ｄ列の１０～１５の値の選択範囲で、 Ｄ２：Ｇ７までをうまくコピーし、違う場所に張り付けしたいのです。 もし、詳しい方がいらっしゃいまして、簡単にできる方法がありましたら、 ご指導の程お願い致します。

  • エクセルＶＢＡについて

    以下の処理をマクロで実行しようと思っていますが、わからない部分があるので教えてください。 （例）： 　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ １　1 2　 3 　4 5 　6 　7 ２ 10 30 50 70 90 130 150 ３ ４ (1)１行目のどこかの連続したセル（例えばセルA1から　セルD1）をドラッグする。 (2)マクロを実行する。 (3)セルA4に、「D2－A2」を計算した値が自動的に入力　される。この例では「70－10＝60」 　これは、(1)で例えばセルB1からF1をドラッグした場　合には、「F2－B2」を計算した値を入力したいので　す。 　 要は、連続したセルを選択してその始点と終点のセルの行と列を取得できればこの処理はできると思うのですが、方法が分かりませんので教えてください。 よろしくお願いします。

  • エクセルの計算式について

    エクセルの計算式について教えて下さい。以下の表があります。 a列とb列は日ごとに変化します。c列は、a/bで計算されます。d列は、bx10をaから引いた値です。e列は前日のeと当日のeの差を表示しています。 x1列は、e列が10以上ならばSを表示する条件式で値を出しています。x2列は、0以下ならばBを表示する条件式で値を出しています。 h列の計算は、x1とx2でBが表示された場合、例えばa列の1/12の18620から1/11の18830を引く計算をし、b列の1/11の1682から1654を引く計算をして、それぞれの解を足します。 また、同様にx1とx2でSが表示された場合には、下記の表のa列1/12の18620から1/21の18760を引き、b列の1/21の1618から1654を引き、それぞれの解を足します。 上記に説明した、それぞれの計算式を教えて下さい。 また、x1とx2は、それぞれaやbの値から導き出される式で日々表示が変わります。ただ、以下の表のようにx1列のように、Sの表示が連続して表示されます。これを、1度Sが表示されると、次の行からはSが表示されないようにする計算式を教えて下さい。 すみません、よろしくご教示下さい。 date 　　　　　a 　　　　　b 　　　　　c 　d e x1 x2 　h 2000/1/11 18830 1682.0 11.20 2010 -190 B 　 2000/1/12 18620 1654.0 11.26 2080 70 S 70,000 2000/1/13 18920 1673.0 11.31 2190 110 S 2000/1/14 18850 1654.0 11.40 2310 120 S 2000/1/17 19300 1680.0 11.49 2500 190 S 2000/1/18 19150 1662.0 11.52 2530 30 2000/1/19 18930 1634.0 11.59 2590 60 2000/1/20 19060 1640.0 11.62 2660 70 S 2000/1/21 18760 1618.0 11.59 2580 -80 B -220,000

  • エクセルVBAでのまとめ計算

    　初めまして、よろしくお願いします。 データーで 　　　A　　　　　　B　　　　　C　　　　　D　　　　　　E ・・・ １　　　　　　　　　　　　　　5　　　　　7　　　　　　2 ２　　　　　　　　　　　　　　3　　　　　7　　　　　　0 ３ ４　　　　　　　　　　　　　　6　　　　　3　　　　　　6 ５　　　　　　　　　　　　　　2　　　　　8　　　　　　3 ６　　　　　　　　　　　　　　0　　　　　3　　　　　　4 ・　　　　　・　　　　　　・　　　　　　・　　　　　　・ ・　　　　　・　　　　　　・　　　　　　・　　　　　　・ １００　　　　　　　　　　　　　3　　　　　4　　　　　　5 という表がありますA列には（C列の値／（D列以降の平均値））をB列には（C列の値－（D列以降の平均値））を表示させたいと思います。たまに３行のような空白の行があります。関数式ではなく、VBAで解る方、よろしくお願いします。

  • 文字によって計算式を変えたい

    excel2007を使用しています。 ある列の文字によって計算式を変えたいのですがどのようにしたらよいか教えて頂けますでしょうか？ 例えば A列　B列　C列　D列　E列 9/18　100　国A　車　 9/17　500　国B　野菜 のようなデータが数百個以上あります。 C列が国AならE列にB列の数字×1.50 C列が国BならE列にB列の数字×2.00 このようにC列の文字によってE列に計算させる式を変えたいです。 国Aから国Gまであるので7種類あります。 データが数百個あるので、マクロを使った方が良いのでしょうか？ マクロであれば、VisualBasicを開いて教えてもらったソースを貼りつけて実行するくらいしかできません。 恐れ入りますが、わかる方教えて頂けますでしょうか?

  • エクセル　特定セルの足し算をするマクロ

    C列、D列、E列を足し合計をF列に記入するマクロを教えて下さい。 （3行目から値のある行まで。） 　A　B　　C　　D　　E　　 F 1 2 3　　　　　24　　16　　19　　59となる様に 4　　　　　35　　49　　41 5　　　　　22　　19　　72 6　　　　　・　　　・　　　・ 7　　　　　・　　　・　　　・ 宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する