分享一些关于VBA代码优化提速的资料

Flush

好贴，收藏学习一下。谢谢楼主

gjj136138139

挖个坑，期待中...........

Fae

好贴，占位学习中。。。。

飞云楼主

好贴，支持一下，优化提速是精益求精的好事。

lipton

谢谢分享

先收下这句。
BoolVal = (SomeVar > SomeOtherVar) '这里的比较符是常常要用的(<;>;<>;>=;<=)

李子然

学习下，好人啊

阿基麦德

据说要顶三次才有诚意。而用不能连续。

ldy

  妙语连珠

ldy

原帖由 Moneky 于 2009-12-7 15:05 发表
在VB6中,同样能充分利用函数返回数组的能力,创建数组初始化程序段.比如下面的代码段：
——注：这段实在太不能理解了,哪位理解了的大哥回个贴讲讲。我的疑问是【下面的函数虽然可以返回一个数组,但却要传递一个参数values,难道这个参数不需要初始化么？感觉是多此一举】 Function ArrayInt(ParamArray values() As Variant) As Integer()
Dim i As Long
ReDim res(0 To UBound(values)) As Integer
For i = 0 To UBound(values)
res(i) = values(i)
Next
ArrayInt = res()
End Function

关于这个问题 完整应用如下

1. 
   
2. 
   
3. Sub test()
   
4. Dim arr() As Integer
   
5. arr = ArrayInt(1555, 789, 569, 456, 123, 456, 4546, 7899, 7866, 25554) '初始化Integer数组,括号里可以写N多个
   
6. End Sub
   
7. 
   
8. Function ArrayInt(ParamArray values() As Variant) As Integer()
   
9.     Dim i As Long
   
10.     ReDim res(0 To UBound(values)) As Integer
    
11.     For i = 0 To UBound(values)
    
12.         res(i) = values(i)
    
13.     Next
    
14.     ArrayInt = res()
    
15. End Function
    

复制代码

等同于返回Variant 数组的  Array(1,2,3,4,5,6,7,8) 只不过一个是Variant 一个是 Integer

shammer

做个记号以后看