Ｐａｇｅ 43 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフの元データの範囲 こうき 02/9/5(木) 20:51 ┗Re:グラフの元データの範囲 こうちゃん 02/9/6(金) 9:39 ┗Re:グラフの元データの範囲 こうき 02/9/6(金) 17:18 ─────────────────────────────────────── ■題名 ： グラフの元データの範囲 ■名前 ： こうき ■日付 ： 02/9/5(木) 20:51 -------------------------------------------------------------------------
| グラフの元データの範囲を1行下にずらすにはどうしたらいいのでしょうか？ また、グラフのテキストボックスの日付を毎日更新させることは可能でしょうか？ |
| こうき さん、こんにちは >グラフの元データの範囲を1行下にずらすにはどうしたらいいのでしょうか？ >また、グラフのテキストボックスの日付を毎日更新させることは可能でしょうか？ 何をしたいかもう少し詳細にかいていただけませんか？ レスが非常につけづらいです。 で、とりあえずサンプルです。 A〜E列の1行目に項目名、2行目から1日のデータが1行で1か月分あるとします。 で、表示する日付によって Sheet1 のグラフの元データを変えたいとします。 グラフは単純な棒グラフとしますね。 たとえばこんな感じ A B C D E 山田 鈴木 川崎 大田 田中 10 20 30 25 50 15 25 40 12 31 ・ ・ で1日には 山田 鈴木 川崎 大田 田中 10 20 30 25 50 でグラフを書いて 2日には 山田 鈴木 川崎 大田 田中 15 25 40 12 31 でグラフを書く 「グラフのテキストボックス」ってのが追加してあるのかタイトルなのかもよくわかりませんので、とりあえずタイトルに日付を入れるようにしてみました。 テストデータを作って、下記を標準モジュールにでもコピペして動作をみてみてください。 で、わからなければ、もっと"具体的"に質問してくださいね。 Sub CharDataEdit() Dim ThisDay As Long Dim TitleRange As Range Dim ThisDayRange As Range Range("A1").Activate ThisDay = Day(Date) Set TitleRange = Sheets(1).Range("A1:E1") Set ThisDayRange = Sheets(1).Range(Cells(ThisDay + 1, 1), _ Cells(ThisDay + 1, 5)) ActiveSheet.ChartObjects(1).Activate ActiveChart.ChartArea.Select ActiveChart.SetSourceData Source:=Union(TitleRange, ThisDayRange), _ PlotBy:=xlRows ActiveChart.ChartTitle.Select Selection.Characters.Text = ThisDay & "日" End Sub |
| ▼こうちゃん さん： >何をしたいかもう少し詳細にかいていただけませんか？ >レスが非常につけづらいです。 すみません。確かに何を答えていいのか分からないですよね。 グラフの元データの範囲を（例えば、A1:K12→A2:K13→A3:K14・・・）のように、毎日変えていく方法が知りたかったのです。どうも質問が下手でたいへん分かりにくいと思いますが、よろしくお願いします。 >「グラフのテキストボックス」ってのが追加してあるのかタイトルなのかもよくわかりませんので、とりあえずタイトルに日付を入れるようにしてみました。 > >テストデータを作って、下記を標準モジュールにでもコピペして動作をみてみてください。 おおっ！こんなこともできるんですね。実はまだ初心者でして、マクロの便利さをよく把握してなかったのですが、感動しました。かなりやる気が出てきました。ありがとうございます！ >で、わからなければ、もっと"具体的"に質問してくださいね。 ほんとうに申し訳ありません。 「グラフのテキストボックス」はグラフの右上に日付を貼り付けたもので、タイトルではないのです。これは更新可能でしょうか？ |