软件:excel
版本:2007
以下为我录制的宏程式码
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='6点配置与借车'!$A$2"
ActiveChart.SeriesCollection(1).XValues = "='6点配置与借车'!$E$2:$E$185"
ActiveChart.SeriesCollection(1).Values = "='6点配置与借车'!$H$2:$H$185"
Range("N6").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='6点配置与借车'!$A$186"
ActiveChart.SeriesCollection(1).XValues = "='6点配置与借车'!$E$186:$E$369"
ActiveChart.SeriesCollection(1).Values = "='6点配置与借车'!$H$186:$H$369"
End Sub
图表标题固定为A2 A186 (等差184)
图表资料范围固定为E2:E185
下一张图表资料范围固定为E186:E369(等差也为184)
共34张图表需要绘设
请问字段那边 怎么利用循环方式取代,可以让他自己绘图
有试用过
for i = 2 to 6256 step183
"='6点配置与借车'!$J$2:$J$185" 写成=” '6点配置与借车'!$H$"&i&:i+183
但还是跑不出来,请问有大大可以帮忙解惑 或是指点一下吗?