エクセルでデータを追加したら自動的にグラフも更新する方法

たとえば、
1月から10月までのデータを入力してグラフを作ります。
そのデータに11月分のデータを追加すると自動的にグラフも1月から11月までのグラフに更新する方法はないですか？

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/10/10 16:27

こんにちは。

絵で説明できればよいのですが、私の言葉で説明して、理解して貰ったのは、五分五分というところなので、あまり重ねてご説明はするつもりはありませんので、よろしくお願いします。

'------------------------------
A1列からC列までのデータがある場合。

挿入－名前－定義

名前(W)
HANNIT (任意）

参照範囲(R)
=INDEX(Sheet1!$A$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$A:$A),1),0,1)

[追加]

名前(W)
HANNI1 (任意)

参照範囲(R)
=INDEX(Sheet1!$A$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$A:$A),1),0,2)

同様に、
HANNI2 (任意)
=INDEX(Sheet1!$A$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$A:$A),1),0,3)

と名前定義をする。

グラフのプロットエリアにポインターを移して、
右クリック－元のデータ(S)

値(V)

系列1
Test1.xls!HANNI1　　(Test1 は、ブック名)

系列2
Test1.xls!HANNI2

と付ける

最後に、
項目軸にラベルを使用(T)

Test1.xls!HANNIT

とします。
　[OK]

これらが、うまく認識しないときは、ブック名の代わりに、シート名を入れてみてください。登録されると、これが、ブック名に変わります。

そして、データを入れてみてください。A列をデータ量の判定に使っているので、B列・C列に入れてもすぐに反応しませんが、A列に入れると、グラフは、変化します。

もし、それぞれの入力に反応してくれるように作るのでしたら、

HANNI1は、
=INDEX(Sheet1!$A$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$B:$B),1),0,2)

HANNI2は、
=INDEX(Sheet1!$A$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$C:$C),1),0,3)

と替えると、入力に対して、全部反応してくれます。
そう出ない場合は、A列のどこかで、F2を押して、Enterを入れれば反応します。

この回答へのお礼

ありがとうございました。Wendy02さんのやり方を基本として作らせて頂きました。

お礼日時：2005/10/25 18:49

No.4 回答者： takkuni 回答日時： 2005/10/10 20:00

名前定義、offset及びcount関数を使えばできると思います。

月の列とデータの列にそれぞれ列全体を指定して名前定義をします。（例：月、データ）
次に同じくデータ範囲を名前定義します。挿入～名前～定義から適宜な範囲名を入力し、参照範囲にoffset及びcount関数を使って指定します。
=offset($A$1,0,0,count($A:$A),2)
A1を起点とし、A列のデータ入力セルの個数を求め、そこから２列を指定という意味になります。
データを追加したら、グラフエリアを選択してメニューのグラフ～元のデータからデータ範囲を先ほど定義した範囲名を入力し、OKボタンをクリックすればグラフが追加されます。言葉だけの説明では分かりにくいと思いますのでうまくいかなかったら再度ご質問下さい。

この回答へのお礼

ありがとうございました。Wendy02さんのやり方を基本として、takkuniさんに教えていただいたoffsetをおりまぜつつ作らせて頂きました。

お礼日時：2005/10/25 18:51

No.3 回答者： imogasi 回答日時： 2005/10/10 17:08

グラフが１つ、Ｓｈｅｅｔ１にできている場合

Ｓｈｅｅｔ１にコマンドボタンを１つ貼り付ける。
そのクリックイベントに
Private Sub CommandButton1_Click()
n = Worksheets("sheet1").ChartObjects(1).Name
Set x = Application.InputBox("aa", "範囲", Type:=8)

ActiveSheet.ChartObjects(n).Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=x, PlotBy:= _
xlColumns
End Sub
コマンドボタンをクリックすると、グラフにするデータのセル範囲を
聞いてきますので、グラフ上で、グラフに描くデータ範囲をマウスで四角く（点線が出るのでそれで）囲み、ＯＫをクリック。
これで指定した範囲のグラフに、一瞬で描き直されます。
質問の件では１－１１月のデータを範囲指定します。
２－８月のデータを範囲指定すれば、２－ｂ月のグラフになります。

この回答へのお礼

ありがとうございました。皆様のアドバイス参考になりました。

お礼日時：2005/10/25 18:53

No.1 回答者： shiga-hiro 回答日時： 2005/10/10 15:25

グラフのデーターエリヤを、最初から11月分、12月分のスペースまで指定しておけば出来ますよ。

この回答へのお礼

ありがとうございました。皆様のアドバイス参考になりました。

お礼日時：2005/10/25 18:52