[算表] 批次畫圖x.y散布圖
軟體: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
→
11/29 21:22,
6年前
, 1F
11/29 21:22, 1F
→
11/29 21:27,
6年前
, 2F
11/29 21:27, 2F
→
11/29 21:30,
6年前
, 3F
11/29 21:30, 3F
→
11/29 21:32,
6年前
, 4F
11/29 21:32, 4F
S大 我修正如下
"='6點配置與借車'!$J$2:$J$185" 修正成
=” '6點配置與借車'!$J$"&i&":J"&i+183
※ 編輯: Tampa (36.225.111.83), 11/29/2017 21:39:09
→
11/29 21:41,
6年前
, 5F
11/29 21:41, 5F
→
11/29 21:48,
6年前
, 6F
11/29 21:48, 6F
→
11/29 21:49,
6年前
, 7F
11/29 21:49, 7F
※ 編輯: Tampa (36.225.111.83), 11/29/2017 21:49:31