分散図の書き方

質問

Excel2007にて分散図を書きたいと思っているのですが、思っているグラフにならないのでお助けください。

A1に日付　B1に気温　C1に湿度と入力し、そのしたに10個ほどのデータがあります。
気温と湿度で分散図を作り、データラベルに日付を表示させたいのですが、どうしたら良いでしょうか？

アドバイスお願いします

回答No.6

naoja

A1からC?（データ全体）を選択して分散図をクリックすると、分散図ができてますよね。

その後の操作なのですが、データを右クリックします。
「データラベルの追加」という項目が表示されますのでとりあえず選択してください。
すると、気温のデータですと気温が表示されます。

このままでは目的と異なりますので、次にもう一度右クリックをします。
メニューで「データラベルの書式設定」を選択します。
「ラベル内容」で「Y値」がにチェックが入っていると思います。
これを「X値」に変更すると、日付が表示されます。

こんな感じでどうでしょう？

回答No.5

umazanpai

しばし長考
バブルでつくろう
日付をサイズにしてしまいました。
よいこのみなさんはまねしないでください。

回答No.4

umazanpai

あさから勘違いでごめんなさいです。
水上　Umazanpai

回答No.3

umazanpai

うーんうーんうーん
と3回回答躊躇。
多分２００７だと２００２ではウィザードだけでできること
がここまでできなくなるわけねえよと決断
２００２なら
範囲選択
ウィザードでデータラベル
Xの値　レ
に寄り道ぐらい
であとはなんもない

回答No.2

imogasi

これはテクニックを要し、覚えないと難しいだろう。
http://pc.nikkeibp.co.jp/article/NPC/20060628/242035/
を参考に。
例データ。
A1:C6
A列　　　B列　　　C列
ーーー 温度 湿度
2009/2/1 23 40
2009/2/2 11 50
2009/2/3 13 30
2009/2/4 15 55
2009/2/5 9 45
ーーー
C列の隣列D列以下に
第1行目はD1に="'" & INDIRECT("a"&COLUMN()-2)　と入れて右方向に式を複写する。
結果　D1:H1
'2009/2/1 '2009/2/2 '2009/2/3 '2009/2/4 '2009/2/5
VBAで標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 2 To d
Cells(i, i + 2) = Cells(i, "B")
Next i
End Sub
と入れて実行する。
C列以下右列は（－－は空白セルです。回答画面で、左に寄せられないよう無理に入れたもの。本来は無いもの）
湿度 '2009/2/1 '2009/2/2 '2009/2/3 '2009/2/4 '2009/2/5
40 23
50 ーー 11
30 ーー ーー 13
55 ーー ーー ーー 15
45 ーー ーー ーー ーー 9
C1:H6を範囲指定して(C1を含めることが肝心）
挿入ーグラフー散布図
一旦グラフが出来る。
グラフエリアで右クリック
元のデーターデータ範囲タブー系列ー列ーOK
（列を指定することが肝心）
これでデータラベルなしの散布図が出来る。
グラフエリアで右クリックーグラフのオプションータイトルとラベルーラベルの内容ー系列名ーOK
これでデータラベルが日付になるはず。
（C1の湿度という文字は消して、グラフを描かせたほうがよいかも）
ーーーーー
上記VBAで並べ替えたところは、関数でも出来るかもしれないがとりあえず私にとって簡単なのでVBAでやった。

回答No.1

xls88

マクロでどうでしょうか。
グラフを選択してマクロを実行してください。
日付データセル範囲は実態に合わせて書き直してください。

Sub test1()
　　Dim rng As Range
　　Dim i As Long

　　Set rng = Range("A2:A11") '日付データセル範囲
　　With ActiveChart
　　　　.ApplyDataLabels
　　　　With .SeriesCollection(1)
　　　　　　.DataLabels.Position = xlLabelPositionAbove
　　　　　　For i = 1 To rng.Count
　　　　　　　　.DataLabels(i).Text = rng.Item(i).Text
　　　　　　Next i
　　　　End With
　　End With

　　Set rng = Nothing
End Sub