[已解决]同一段代码在不同的工作表中运行速度不一样是什么原因

cb_clx

Sub ss()
Dim x As Integer, rg As Range
t = Timer
Set rg = Columns(16)
For x = 16 To 255 Step 2
Set rg = Union(rg, Columns(x))
Next x
Application.EnableEvents = False
rg.Font.ColorIndex = 5
Application.EnableEvents = True
MsgBox Timer - t
以上代码我测试了一下时间，为什么在两个不同的工作表中运行的速度不一样呢？一个表里运行速度为0.1秒，另一个表运行速度为23.3秒，不知道是什么原因，此代码还可以优化加速吗？求解。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-4-24 15:16

无聊的疯子 发表于 2012-4-24 14:34
运行代码时先将自动计算关闭,运行完后再打开自动计算

由于代码是直接操作的单元格,

实际上即使先关闭自动计算，再打开自动计算，还是免不了要计算一遍，没有节省一点时间！
例：
Sub ss()
    t = Timer
    Application.Calculation = xlCalculationManual      '设为手动计算
    Set rg = Columns(16)
    For x = 16 To 255 Step 2
        Set rg = Union(rg, Columns(x))
    Next x
    Application.EnableEvents = False
    rg.Font.ColorIndex = 5
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic          '设为自动计算
    MsgBox Timer - t
End Sub
添上2段代码与否时间基本没变！
唯一出路是将大量公式用宏解决！

跳转到最佳答案楼层

zjdh

是否另一个表存在很多公式？

cb_clx

zjdh 发表于 2012-4-24 09:58
是否另一个表存在很多公式？

是的，有公式，还有条件格式设置。

cb_clx

求高手帮忙解决或想办法优化一下，谢谢！在线等待！

无聊的疯子

cb_clx 发表于 2012-4-24 10:00
是的，有公式，还有条件格式设置。

运行代码时先将自动计算关闭,运行完后再打开自动计算

由于代码是直接操作的单元格,

你的表中公式,条件格式又很多,那么每操作一次单元格,

表格为了即时更新结果,都会计算一次,这就是导致变慢的原因

zjdh

无聊的疯子 发表于 2012-4-24 14:34
运行代码时先将自动计算关闭,运行完后再打开自动计算

由于代码是直接操作的单元格,

实际上即使先关闭自动计算，再打开自动计算，还是免不了要计算一遍，没有节省一点时间！
例：
Sub ss()
    t = Timer
    Application.Calculation = xlCalculationManual      '设为手动计算
    Set rg = Columns(16)
    For x = 16 To 255 Step 2
        Set rg = Union(rg, Columns(x))
    Next x
    Application.EnableEvents = False
    rg.Font.ColorIndex = 5
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic          '设为自动计算
    MsgBox Timer - t
End Sub
添上2段代码与否时间基本没变！
唯一出路是将大量公式用宏解决！

XVBA

顶

                  

cb_clx

zjdh 发表于 2012-4-24 15:16
实际上即使先关闭自动计算，再打开自动计算，还是免不了要计算一遍，没有节省一点时间！
例：
Sub ss() ...

知道问题点在哪里了，要把公式换成宏，我现在的水平没办法做到。