[算表] VBA作圖效能

看板Office作者way12321 (???)時間9年前 (2017/01/11 22:37)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

軟體: 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