エクセル2007を使用しています。
以下の表をグラフ化しようとしています。
表とグラフはエクセルの”テストグラフ”というシートに記載しています。
グラフは以下の通りです。
表は3行目に納品月 4行目に各納品月にそれぞれ販売金額、付加価値、台数と表示しています。縦軸は商品名です。
グラフは各納品月の販売金額と付加価値を商品名毎に表しています。
★教えてほしいこと
表が固定であれば問題ないのですが、表は常に可変します。
商品名が増える、納品月が増える などです。
●可変した時のセットデータの設定部分のコードを教えてほしいです。
表が固定されている場合、以下のコードで処理できました。
前後のコードは省略しています。
Set ws1 = Sheets("テストグラフ") Charts.Add ActiveChart.ClearToMatchStyle ActiveChart.ChartType = xlColumnStacked ActiveChart.SetSourceData Source:=Range("'テストグラフ'!$A$3:$A$20,'テストグラフ'!$B$3:$C$20,'テストグラフ'!$E$3:$F$20,'テストグラフ'!$H$3:$I$20") ActiveChart.Location Where:=xlLocationAsObject, Name:="テストグラフ" ActiveChart.PlotBy = xlRows ActiveChart.ChartArea.Select ActiveChart.Parent.Name = "graf1" ws1.Shapes("graf1").ScaleWidth 2.2, msoFalse, msoScaleFromTopLeft ws1.Shapes("graf1").ScaleHeight 2.2, msoFalse, msoScaleFromTopLeft With ws1.ChartObjects("graf1") .Top = Range("C23").Top .Left = Range("C23").Left End With
ActiveChart.SetSourceData Source:=Range("'テストグラフ'!$A$3:$A$20,'テストグラフ'!$B$3:$C$20,'テストグラフ'!$E$3:$F$20,'テストグラフ'!$H$3:$I$20")
上記コードで各納品月の販売金額、付加価値だけ選択したい場合のコードの書き方を教えて下さい。台数は選択しないです。
台数の列を消せば、問題ないのですが、残したいです。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。