|
这几天,在学习VBA数组,找了很多资料,关于在VBA数组运算中,再深入提高速度的资料比较少!这几天,在香川群子等多位老师的指导下和下面一个测试时间的实例,和大家分享在VBA数组中再深入提高速度要注意的方面!希望各位经验非富的前辈们,也能讨论一下,在vba数组中提速的经验,让我们这些初学能速度提高!在此谢谢大家了!
例1:香川群子老师: 数组中运用函数影响速度
http://club.excelhome.net/thread-1006177-2-1.html
例2:ReDim 和 ReDim Preserve 速度对比
这是我机子测试出来的时间!
Sub ReDim_Preserve1维()
Dim arr(), i%, k%, sj As Double
[a1] = "测试内容"
[b1] = "测试时间"
sj = Timer
For k = 1 To 500
For i = 1 To 20000
ReDim Preserve arr(1 To i)
Next
Next
[B2] = Timer - sj
[a2] = " 1维 ReDim Preserve"
Redim1维
ReDim_Preserve2维
Redim2维
Beep
End Sub
'
Sub Redim1维()
Dim arr(), k%, sj As Double
sj = Timer
For k = 1 To 500
ReDim arr(1 To 20000)
Next
[B3] = Timer - sj
[a3] = " 1维 Redim"
End Sub
'
Sub ReDim_Preserve2维()
Dim arr(), i%, sj As Double
sj = Timer
For i = 1 To 2000
ReDim Preserve arr(1 To 2000, 1 To i)
Next
[B4] = Timer - sj
[a4] = " 2维 ReDim_Preserve"
End Sub
'
Sub Redim2维()
Dim arr(), sj As Double
sj = Timer
ReDim arr(1 To 2000, 1 To 2000)
[B5] = Timer - sj
[a5] = " 2维 Redim"
End Sub
|
评分
-
1
查看全部评分
-
|