作者cos145 (more)
看板Visual_Basic
標題[VBA ] 自動疊圖
時間Mon Jun 10 23:25:32 2019
我有一串資料如下
A B C D E
1 星期 數量1 數量2 數量3
2 1 10 10 1
3 2 20 20 2
4 3 30 30 44
5 4 40 20 55
6 5 80 10 66
7 6 30 20 55
我使用繪製XY折線圖錄製巨集
X軸是星期 第一數列是數量1 第二數列是數量2
當我新增數列數量3時，我想要啟動VBA自動抓值
Dim i As integer
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Sheet1!$B$1"
ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$A$2:$A$7"
ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$B$2:$B$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Sheet1!$C$1"
ActiveChart.FullSeriesCollection(2).XValues = "=Sheet1!$A$2:$A$7"
ActiveChart.FullSeriesCollection(2).Values = "=Sheet1!$C$2:$C$8"
我想請問，這個迴圈i該怎麼加入上述程式集裡
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 110.50.145.188 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1560180334.A.198.html