作者Tampa (光芒)
看板Office
标题[算表] 批次画图x.y散布图
时间Wed Nov 29 21:11:38 2017
软体: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
但还是跑不出来，请问有大大可以帮忙解惑 或是指点一下吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.225.111.83
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1511961101.A.6C5.html
1F：→ soyoso: 列偏移上 "j" & i & ":j" & i+183 11/29 21:22
2F：→ Tampa: S大我有点笨 请问是把後面那栏改掉吗? 11/29 21:27
3F：→ soyoso: 为录制巨集码内范围的部分，配合回圈连接成范围字串写法 11/29 21:30
4F：→ soyoso: 为name、xvalues、values後面的部分 11/29 21:32
S大 我修正如下
"='6点配置与借车'!$J$2:$J$185" 修正成
=” '6点配置与借车'!$J$"&i&":J"&i+183
※ 编辑: Tampa (36.225.111.83), 11/29/2017 21:39:09
5F：→ soyoso: 原po的范围栏都是j栏吗？ 11/29 21:41
6F：→ soyoso: 如果是的话，回文内":i"改为":j" 11/29 21:48
7F：→ Tampa: 都是J栏没错 11/29 21:49
※ 编辑: Tampa (36.225.111.83), 11/29/2017 21:49:31