作者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/m.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