| |
washi さん こんばんは、ちんといいます。
▼washi さん：
>グラフで１日毎の推移を作成しているのですが、
>品目が多く、グラフにするのが大変です。
>ひとつのグラフで全ての品目の推移が見れるような、マクロを組んでいるのですが、
>なかなかうまくいきません、どなたかご教授ください。
>
>1.クロス集計を元にグラフを作っています
> 合計 品目・・・
>
> 日付 数値 数値
> :
> :
>2.別のシートにグラフを作成し、ボタンにマクロを組み込んで押すたびに、
> 次の品目のグラフがでるマクロを作成したいです。
>
>3.次のようなマクロ（自動生成ですが）を組んでみました。
> Sub Next()
>
> ActiveSheet.ChartObjects("グラフ 1").Activate
> ActiveChart.ChartArea.Select
> ActiveChart.SetSourceData Source:=Sheets("クロス集計ver2").Range( _
> "A:A,C:C"), PlotBy:=xlColumns
>
> End Sub
>しかし、ここから先に進めません「.Range( _"A:A,C:C")」の部分の
>「C:C」の部分がボタンを押すたびに+1にさせるには、
>どうしたらよいのでしょうか？
>
>すみませんがどなたかご教授下さい、宜しくお願いします。
ボタン操作で、＋１していくには、
Dim Count1 as Integer <-- この行をSUBの最上位行へ定義して下さい。
SUB NEXT()
End SUB
C:C をかえるのでしたら、Range=>Cells に変更した方がよいです。
以上、
|
|
ちん
- 04/4/20(火) 18:54 -
