軟體: MS Excel
版本: 2010
有多筆資料需要靠迴圈作圖(原始頁面)
但資料數據橫向數值欄位較多時
產生的散佈圖資料範圍自動判讀為許多數列，再用迴圈刪除數列導致效能有點低落
(最後僅保留一個數列)
跑幾十個圖就花了數分鐘，以下附上VBA內的段落
希望能請各位前輩幫忙改善或是告知是否有方法可以在加入圖表時預設資料範圍空白
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = ""
ActiveChart.SeriesCollection(1).XValues = "='" & SheetName & "'!R2" &_
_"C" & XAxis & ":R" & DataEnd & "C" & XAxis
ActiveChart.SeriesCollection(1).Values = "='" & SheetName & "'!R2" &_
_"C" & YAxisBegin + (n - 1) * UserForm1.TextBox2a6.Text & ":R" &_
_DataEnd & "C" & YAxisBegin + (n - 1) * UserForm1.TextBox2a6.Text
ActiveChart.Location Where:=xlLocationAsObject, Name:=SheetName
For i = ActiveChart.SeriesCollection.Count To 2 Step -1
ActiveChart.SeriesCollection(i).Delete
Next
'黃色部分為自己定義的變數僅供參考
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.224.41.213
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1484145462.A.C4A.html
※ 編輯: way12321 (36.224.41.213), 01/11/2017 22:45:09