|
お世話になっております。
まだまだ勉強不足で、皆さんの力をお貸しください。
Sheet1にデータが入力されています。
グラフシートにSheet1のデータでグラフを2つ作成しています。
グラフ1は、A列とCからE列の値
グラフ2は、A列とFからH列の値
になっています。
Sheet1のデータを新規に作成した場合や、更新した際に、
範囲を設定するマクロを作成したのですが、
グラフ1は、AからE列の、グラフ2は、AからH列のグラフが
作成されてしまいます。
うまく表示する方法を教えてください。
よろしくお願いいします。
Sub グラフ表示()
Dim rowcount1
rowcount1 = Sheets(1).Range("A65536").End(xlUp).Row
Sheets("グラフ").Select
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( _
"A1:A" & rowcount1, "C1:E" & rowcount1), PlotBy:=xlColumns
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.SetSourceData Source:=Sheets("i-MAC_Offset").Range( _
"A1:A" & rowcount1, "F1:H" & rowcount1), PlotBy:=xlColumns
End Sub
|
|