[算表] 批次畫圖x.y散布圖

[Tampa (光芒)]

軟體: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://www.ptt.cc/bbs/Office/M.1511961101.A.6C5.html
→ soyoso: 列偏移上 "j" & i & ":j" & i+183
→ Tampa: S大我有點笨 請問是把後面那欄改掉嗎?
→ soyoso: 為錄製巨集碼內範圍的部分，配合迴圈連接成範圍字串寫法
→ soyoso: 為name、xvalues、values後面的部分

S大 我修正如下

"='6點配置與借車'!$J$2:$J$185" 修正成


=” '6點配置與借車'!$J$"&i&":J"&i+183

※ 編輯: Tampa (36.225.111.83), 11/29/2017 21:39:09
→ soyoso: 原po的範圍欄都是j欄嗎？
→ soyoso: 如果是的話，回文內":i"改為":j"
→ Tampa: 都是J欄沒錯
※ 編輯: Tampa (36.225.111.83), 11/29/2017 21:49:31