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

sunsoncheng · 发表于 2009-12-9 12:18

留下记号吧,以后慢慢看

wangchao207 · 发表于 2009-12-9 13:40

佩服佩服！谢谢楼主！学习之

dingkezj · 发表于 2009-12-9 14:48

好资料

L2MINGJING · 发表于 2009-12-9 15:05

精粹之谈，不可不看，不可不学.胜读十年书.

多谢老师了.

老伙计2008 · 发表于 2009-12-9 16:44

x = x - (SomeVar > SomeOtherVar)

多重判断能不能找到类似上面这样的办法？

老伙计2008 · 发表于 2009-12-9 17:39

boolenan减肥
x = x - (SomeVar > SomeOtherVar)
代码中的括号是不可缺少的

请测试
Private Sub ll()
Dim a!, b!, c(2) As Byte, i%
a = 1
b = 1
For i = 1 To 10
c(0) = c(0) - (a = b)
Next
Debug.Print c(0)
For i = 1 To 10
c(0) = c(0) - a = b
Next
Debug.Print c(0)
End Sub

[ 本帖最后由老伙计2008 于 2009-12-9 17:49 编辑 ]

可爱76 · 发表于 2009-12-10 11:34

收藏学习，谢谢！

Moneky · 发表于 2009-12-10 12:05

原帖由 老伙计2008 于 2009-12-9 17:39 发表
boolenan减肥
x = x - (SomeVar > SomeOtherVar)
代码中的括号是不可缺少的[em07]
请测试
Private Sub ll()
    Dim a!, b!, c(2) As Byte, i%
    a = 1
    b = 1
    For i = 1 To 10
    c(0) = c(0)  ...

在这段代码中是不能省略，主要是因为逻辑运算符的优先级低于算术运算符。前面帖子中说的可获可以省略是特指那里所举的例子的。

你说的多重判断是这样么？

Private Sub test()
Dim a As Long , b As Long , c As Long , d As Long , i As Long
    t = Timer
    For i = 1 To 10000000
        a = 1
        b = 2
        c = 3
        d = 0
        If a <> b Then d = d + a
        If b < c Then d = d + b
        If c > a Then d = d + c
    Next
    Debug.Print Timer - t
    Debug.Print d
    t = Timer
    For i = 1 To 10000000
        a = 1
        b = 2
        c = 3
        d = 0
        d = d - (a <> b) * a - (b < c) * b - (c > a) * c  '次数少的情况下，这一句似乎比上面慢点。在数量大的时候稍微快一些
    Next
    Debug.Print Timer - t
    Debug.Print d
End Sub

[ 本帖最后由 Moneky 于 2009-12-10 12:14 编辑 ]

china047 · 发表于 2009-12-10 14:39

学习了

开心萝卜惠州 · 发表于 2009-12-10 16:33

谢谢楼主分享

		自动登录	找回密码
密码			免费注册

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