毎週の売上を棒グラフにしつつ、毎週の売上を積算する

質問

Excelで、例えば毎日の売上を週ごとに棒グラフで、そして毎週の売上を足していった数字を線グラフで表示させたいと思います。

例えばA1～A3のセルに毎週（各5週分）の売上を記入します。
（例：　A1に1000円　A2に1500円　A3に1200円
そしてB1～B3のセルには、実績として毎週の売上を小計した数値を計算させます。
（例：　B1は1000円になり、B2は先週分を足して2500円、B3セルには3週目までの合計3700円）
このB列の計算方法はどのようなマクロにすればいいのでしょうか？

50週ほどあるので、毎回SUM関数を使って範囲をずらしながら入力すると、けっこう時間がかかります。これをマクロを組めばすぐに計算できると思うのですが…。

回答No.3

keithin · ベストアンサー

はて？

単純に、Ｂ１に
=SUM($A$1:A1)
と記入し、Ｂ５０までコピー貼り付けます。ひたすら累計が計算できます。

それとも？
Ｂ１からＢ５までは１，２，３，４，５週の累計を計算し、Ｂ６以下は至近の５週計で続けたいと言いたかったのですか？

Ｂ１からＢ４までは前述の式で計算し、
Ｂ５：
=SUM(A1:A5)
を以下コピーします。

こういう具合に「言葉で説明」しても言葉が足りない時は、もう少し丁寧にたとえば「実際の数字をサンプルとして挙げて」こういう具合に結果が欲しいんですと目に見えるように説明してみるといいですよ。

回答No.2

MarcoRossiItaly

＞50週ほどあるので、毎回SUM関数を使って範囲をずらしながら入力すると、けっこう時間がかかります。

そうなのですか？入力箇所が多数あるとか？

それほどの量でもなければ、セルをコピペするだけのように思えるのですが…。例えば、「=SUM($A1:C1)」と入力されているC2セルをドラッグなどの好きな方法でコピペすれば、D2には「=SUM($A1:D1)」という数式が自動的に入力されています。D2にカーソルを置いた状態で数式バーをクリックし、式を「=SUM($X10:Z10)」に書き換えれば、X～Z列の10行目を合計したりとか、自由自在にできますね？

なお入力箇所が多くても、1ファイルの中の話なら、置換でパッと終わる可能性もあります。

回答No.1

rt18546

５０週まで計算させるマクロを作ってみました。
よかったら参考にしてください

Sub Macro1()

Range("B1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-1]"
Selection.AutoFill Destination:=Range("B2:B50"), Type:=xlFillDefault

End Sub