エクセル マクロ 足し算

質問

いつもお世話になります。マクロ勉強中の初心者です。

マクロの足し算を教えてください。

A列　　B列　　C列　・・・・
　１　　　２　　　　３
　４　　　５　　　　６
　７　　　８　　　　９

という数字のデータがあります。

これらのA列の合計、B列の合計・・・など列の合計を出すマクロはわかるのですが、
　作成したVBA
　　　Range("a4") = Application.WorksheetFunction.Sum(Range("a1:a3"))

A列の合計（A1～A３）とB列の合計（B1～B３）とC列（C1～C３）の合計を、D４に合計させる方法を
教えてください。

どうぞよろしくお願いします。

回答No.3

keithin · ベストアンサー

「（規定しないで）自由にやりたい」は構いませんが，「その時々において今は一体どこを合計したいのか」は，どのようにして決まってくる状況なのですか？
そういったホントにやらなきゃイケナイ事の「筋道」を実際に問題を解決したいあなたのアタマでしっかり固めないと，いつまで経ってもあさっての回答しか寄せられませんよ。
「例えば例えば…誰か判ってヨ」では，いつまでたってもお話が先に進みません。

＞セル（例えばB５とH３の合計をT９に出すような）を自由にsum関数を使用して合計を出したいのです。

それならたとえば
range("T9") = appliaction.sum(range("B5,H3"))
などですが，これじゃ全く何の解決にもなりません。

筋道の説明が日本語にならないなら，せめて「実際の今あるエクセルの姿」と，「こういう背景があって，こういう具合に事を進めたい」内容を，出来るだけ丁寧に目の前に見えるような言葉で説明してみてください。

お礼

keithin　様

お礼が遅くなりました。
また、前回質問した時と同様に、大変お世話になりました。

＞＞range("T9") = appliaction.sum(range("B5,H3"))などですが，これじゃ全く何の解決にもなりません。

最初の質問のやり方が悪かったです。。
自分としては、単純にセルの足し算のやり方を知りたかったのです。
今現在取り組んでいるVBAがあるのですが、大部分前任者が作成してくれたマクロを微修正すればよいのですが、若干追加で変更があったもので（それが今回のセルの足し算）、ピンポイントでやり方を知りたかったもので、背景や細かい状況を説明するのを省略して質問をしておりました。

今後は、出来るだけ回答者にもイメージが出来るように質問も考えて行いたいと思います。
本日は本当にありがとうございました。

回答No.2

keithin

＞A列の合計、B列の合計、C列の合計を、G1に出させる方法を教えてください。

たとえば
range("D4") = application.sum(Range("A:C")) / 2
などのように？
同じと思いますが，一体何が・どこが出来なくて困っているのですか？

たとえば
「実際には各列の下端にそれぞれの列の小計が計算されているので，単に列を合計したら間違った答えになる」
「単純に，セル範囲を規定しない合計の計算方法が判らない」
「実際にはＤ列の何行目に合計の式を入れるのか，時々に変えたい所で困っている」
　（どこに入れたいの？）
「ホントにやりたかったの３列の合計値の計算じゃなく，『具体的な結果として言えばこれこれのような』内容をＧ１セルに書き込みたい」

あなたの今のエクセルの「こういう具合になっていて」「その例だとこういう結果がここに欲しいんです」といった具体的な有様がさっぱり見えないので，具体的なマクロを書いてもアテズッポにしかなりません。結果「あなたの欲しいモノ」とはきっとずいぶん違っていて，全く役に立ちません。最初のご質問とその回答のように。

また，
再掲：
＞必要に応じてSUMの式の中の書きぶりを，ワークシート上で通常のSUM関数を使うときにどう書いたら計算できるかを参考にして，修正して利用します。

要するにまずマクロ以前に，ワークシート上でどんな具合にSUMの式を書いたら欲しいコタエが計算できるかやってみて，それで上手く行った計算方法をそのままマクロに書き換える工夫をしてみましょう，とお話ししました。

補足

keithin 様

たびたび申し訳ありません。
再度質問をよく考えて投稿させていただきます。

＞＞「単純に，セル範囲を規定しない合計の計算方法が判らない」
はい、この方法を知りたかったのです。
つまり、セルを個別に足し算する方法を知りたかったのです。

＞A列の合計、B列の合計、C列の合計を、G1に出させる方法を教えてください。
　実際に作成する場合は、複数の列の合計をさらに別のセルに足し算するだけでなく、
セル（例えばB５とH３の合計をT９に出すような）を自由にsum関数を使用して合計を出したいのです。

サイトでググっても、合計を出す関数はよくあるのですが、なかなかセルを個別に足し算する方法がなくて、こまっておりました。

質問の内容がわかりにくいかもしれませんが、どうぞよろしくお願いします。

回答No.1

keithin

range("D4") = application.sum(Range("A1:C3"))
などのように。

必要に応じてSUMの式の中の書きぶりを，ワークシート上で通常のSUM関数を使うときにどう書いたら計算できるかを参考にして，修正して利用します。

補足

ご回答ありがとうございます。

D４に合計のやり方はわかりました。
ただ、自分の質問の仕方が悪かったです。二度手間になって申し訳ありませんが、再度質問させてください。

　A列の合計、B列の合計、C列の合計を、G1に出させる方法を教えてください。

お忙しい中申し訳ありませんが、どうぞよろしくお願いします。