[算表] 批次画图x.y散布图

楼主: Tampa (光芒)   2017-11-29 21:11:38
软件: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
但还是跑不出来,请问有大大可以帮忙解惑 或是指点一下吗?
作者: soyoso (我是耀宗)   2017-11-29 21:22:00
列偏移上 "j" & i & ":j" & i+183
楼主: Tampa (光芒)   2017-11-29 21:27:00
S大我有点笨 请问是把后面那栏改掉吗?
作者: soyoso (我是耀宗)   2017-11-29 21:30:00
为录制宏码内范围的部分,配合循环连接成范围字串写法为name、xvalues、values后面的部分原po的范围栏都是j栏吗?如果是的话,回文内":i"改为":j"
楼主: Tampa (光芒)   2017-11-29 21:49:00
都是J栏没错

Links booklink

Contact Us: admin [ a t ] ucptt.com