• 締切済み

分散図の書き方

Excel2007にて分散図を書きたいと思っているのですが、思っているグラフにならないのでお助けください。 A1に日付 B1に気温 C1に湿度と入力し、そのしたに10個ほどのデータがあります。 気温と湿度で分散図を作り、データラベルに日付を表示させたいのですが、どうしたら良いでしょうか? アドバイスお願いします

みんなの回答

  • naoja
  • ベストアンサー率9% (2/21)
回答No.6

A1からC?(データ全体)を選択して分散図をクリックすると、分散図ができてますよね。 その後の操作なのですが、データを右クリックします。 「データラベルの追加」という項目が表示されますのでとりあえず選択してください。 すると、気温のデータですと気温が表示されます。 このままでは目的と異なりますので、次にもう一度右クリックをします。 メニューで「データラベルの書式設定」を選択します。 「ラベル内容」で「Y値」がにチェックが入っていると思います。 これを「X値」に変更すると、日付が表示されます。 こんな感じでどうでしょう?

  • umazanpai
  • ベストアンサー率38% (53/137)
回答No.5

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

  • umazanpai
  • ベストアンサー率38% (53/137)
回答No.4

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

  • umazanpai
  • ベストアンサー率38% (53/137)
回答No.3

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

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.2

これはテクニックを要し、覚えないと難しいだろう。 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でやった。

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.1

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

関連するQ&A

専門家に質問してみよう