エクセルで日付単位のグラフを時間単位にしたい

質問

エクセルの質問です。
パチンコの収支をエクセルで記録しているのですが１つ悩みがあります。
現在の「収支データ」のシートはこうなっています。

データ単位(行)　：　日付
データ項目(列)　：　日付、収支、遊技時間

このデータを元に、横軸を日付ではなく遊技時間にしたグラフを作りたいのです。
(例1)を参照下さい。
何か良い方法はないでしょうか？

(例1）
●収支データ

日付　　収支　　遊技時間
-------------------------
1月1日　+2000円　2時間
1月2日　-3000円　5時間
1月3日　-1000円　1時間

↓　

●グラフにしたいデータ(行を時間単位にしたい)

収支　
------
+1000
+1000
-600
-600
-600
-600
-600
-1000

よろしくお願いいたします。

回答No.1

tsubuyuki · ベストアンサー

マクロの使い方は別途、パチンコの合間にでもお調べくださいませ。

Sub test()
Dim i As Long, j As Long, k As Long
Columns("E").ClearContents
Range("E1") = "収支"

k = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To Cells(i, 3).Value
Cells(k, 5) = Cells(i, 2) / Cells(i, 3)
k = k + 1
Next j
Next i

End Sub

Ｅ列に「時間平均」の収支だけを書き出します。
グラフの作り方も別途お調べくださいませ。

作ったグラフを見るとわかると思いますが、
おそらく収支を見るのには向いていません。
むしろ「平均をとっても」出来上がるグラフはただの階段状ですから、
全く意味が無いように思います。
それなら「日付ごとの１時間平均」をグラフにする方が有意義と思いますよ。

お礼

ありがとうございます！
質問で示した通りの実行結果が得られました。

意味はあるのです。
現状のグラフでは、１時間で1万円負けても10時間で1万円負けても、グラフでは同じ1日の結果にしかなりません。
例えば、1ヶ月間で、10時間しか遊べずに10万円負けても、100時間遊んで10万円負けても、今のグラフではその違いがよく分からないのです。

要するに、日付ではなく、実際の遊技時間に伴ったグラフにしたかったのです。