如何解决为什么我的Excel VBA宏需要这么长时间才能运行?
我的宏从几张纸上获取x和y坐标,并将它们绘制在图表上,所有这些都在同一工作簿中。该代码运行得很好,几乎可以立即在第一张工作表上绘制数据图表,但是将其他工作表中的数据添加到图表中实际上要花费几分钟。有人可以建议为什么需要这么长时间才能运行,以及我可以如何加快运行速度?谢谢!
代码首先创建一个名为“ Chart”的工作表,然后将x和y数据从名为“ Cluster 1”的工作表绘制到图表上。这是几乎立即运行的部分。然后,代码从名为“ Cluster 2”,“ Cluster 3”等的工作表中获取x和y数据。这是需要几分钟才能运行的部分。
Public Sub MakeClusterChart()
Application.ScreenUpdating = False
Sheets.Add.Name = "Chart"
Sheets("Chart").Select
ClusterPtr = 1
Sheets("Cluster " & ClusterPtr).Select
Columns("A:B").Select
ActiveSheet.Shapes.AddChart2(240,xlXYScatter).Select
ActiveChart.SetSourceData Source:=Range("'Cluster " & ClusterPtr & "'!$A:$B")
ActiveChart.Location Where:=xlLocationAsObject,Name:="Chart"
For ClusterPtr = 2 To NumClusters
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(ClusterPtr).XValues = Range("'Cluster " & ClusterPtr & "'!$A:$A")
ActiveChart.FullSeriesCollection(ClusterPtr).Values = Range("'Cluster " & ClusterPtr & "'!$B:$B")
Next
Application.ScreenUpdating = True
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。