Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 12871|回复: 15

[分享] 加快你的代码运行速度

[复制链接]
发表于 2012-3-7 11:20 | 显示全部楼层 |阅读模式
本帖最后由 adders 于 2013-6-29 16:51 编辑

我们知道,用VBA实现同一个效果可能有多种不同的方法,写出一个最有效率的代码是大家都追求的,但是假如我水平有限,经验不足,实践不多,或者逻辑线路的设计不够简洁清爽,是不是就无法大幅提高代码速度?当然不是,如果你学会使用以下技巧,即便你的代码设计水平一般,也可以让它的运行大大加快.

首先记住一个原则: 并不是代码写得越短就运行越快!

1)养成声明变量的习惯,当你声明非Variant的变量类型时,会少占用内存,从而加快代码速度.同时在声明数值类型变量时,尽量避免声明浮点类型变量,因为用到浮点运算器会拖慢速度,比如Currency类型就会Single类型运算快,因为前者不用浮点运算处理器.

2)在指向单元格时,[A1]看上去写得比Range("A1")简短好看,但是写成后者其实运行更快.
原因是:[A1]实际运行的是:Application.Evaluate("A1"),要比写Range("A1")运行速度慢约70%.
所以再请记住这句话:并不是代码写得越短就运行越快!

3)大家可能经常看到的在Sub开始的两条语句可以大大加快代码速度:

Application.ScreenUpdating = FALSE   '禁止屏幕刷新
Application.Calculation = xlCalculationManual   '计算模式为手动

一般在Sub结束前改回:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = TRUE

4)在引用一个集合目标体(如Worksheets)时,用索引号比用其名称速度会快,如果你明确知道一个"总结"工作表的索引号是1的话,
Worksheets(1)比用Worksheets("总结")速度要快很多,但是索引号的运用会有风险因为表的顺序可能会因增删工作表而经常改变,所以往往实际运用中用工作表名称的方法会更安全更容易些.

5)尽可能运用常量,而不是变量.前面说过声明变量,但是如果你确定这个变量是恒定的,比如你要用的一个路径恒定是C:\MyPath\,则声明:
Const Fp as String = "C:\MyPath\" 比用 Dim Fp as String速度更快!

6)前期绑定比后期绑定速度要快,比如:
Dim WordObj As Word.Application 比用 Dim WordObj As Object 要更快,所以尽可能在VBE的Tools --> References中建立目标索引后直接在代码中引用.

7)For each循环比用For i = 1 to x要快!以下两段代码前者比后者快!
Dim WS as Worksheet
For Each WS In Worksheets
    MsgBox WS.Name
Next WS
------------------------------------------
Dim i as Integer
For i = 1 To Worksheets.Count
    MsgBox Worksheets(i).Name
Next i

8)尽量不用Selection,基本上EXCEL VBA中很少有必须使用Selection的,凡是前一行是某某.Select,后面接着Selection.干嘛干嘛的,都可以直接去掉Select和Selection,如用:
Range("A1").Font.Bold = True
而不是:
Range("A1").Select
Selection.Font.Bold = True

9)当对某一目标进行多次操作时,尽量用With...End With,如:
With Worksheets("Sheet1").Range("A1")
    .Font.Bold = True
    .Value = 123
End With

10)EXCEL自带函数运行比自己在VBA里写的函数运行快!如:
MySum = Application.WorksheetFunction.Sum(Range("A1:A100"))  
比以下速度快!
For Each C In Range("A1:A100")
    MySum = MySum + C.Value
Next C

评分

参与人数 1 +12 收起 理由
无聊的疯子 + 12 很值得收藏~~

查看全部评分

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-3-9 09:27 | 显示全部楼层
谢谢!受用了!                    
回复

使用道具 举报

发表于 2012-3-9 09:37 | 显示全部楼层
回复

使用道具 举报

发表于 2012-3-23 22:07 | 显示全部楼层
希望以后有用处!
回复

使用道具 举报

发表于 2012-3-23 22:10 | 显示全部楼层
感觉分享!!收藏了,慢慢消化!
回复

使用道具 举报

发表于 2012-4-11 14:08 | 显示全部楼层
谢谢分享!!收藏了,慢慢用!
回复

使用道具 举报

发表于 2012-9-7 10:43 | 显示全部楼层
3)大家可能经常看到的在Sub开始的两条语句可以大大加快代码速度:

Application.ScreenUpdating = FALSE   '禁止屏幕刷新
Application.Calculation = xlCalculationManual   '计算模式为手动

一般在Sub结束前改回:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = TRUE

这个太有用了!速度明细提高了好几倍!!谢谢楼主分享!!!
回复

使用道具 举报

发表于 2013-3-10 22:22 | 显示全部楼层
谢谢分享,收藏一个。
回复

使用道具 举报

发表于 2013-4-22 22:02 | 显示全部楼层
受教了一些   表示非常的感谢
回复

使用道具 举报

发表于 2013-4-29 14:34 | 显示全部楼层
感觉分享!!收藏了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:51 , Processed in 0.546002 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表