vba代码编程800例_慎⽤选择，获取更快的VBA代码运⾏速度
题记：⾮常期间，希望⼤家静下⼼，多学习有⽤的知识，多提⾼⾃⼰的⽔平和能⼒，这才是正道。适当节制⾃我的各种欲望，谁都逃不过时间的历练，谁都是命运的⾏者，谁都是在⼈⽣的道路上⼀步⼀趋，
把⽣活与⼯作打理好，不负年华。欲成⼤事者，必先修其⾝。欲修其⾝者，先正其⼼。⼩成靠智，⼤成靠德。⾝不修则德不⽴，德不⽴则⽆以成事。
今⽇内容是和⼤家分享VBA编程中常⽤的 “积⽊”过程代码，这些内容⼤多是取⾄我编写的“VBA代码解决⽅案”教程中内容。今⽇分享的是NO.206-NO.206，内容是：
NO. 206：在VBA代码中慎⽤选择语句获取更快的代码运⾏速度
VBA过程代码206：在VBA代码中慎⽤选择语句获取更快的代码运⾏速度
Sub mynz ()
Dim i As Integer
Dim t As Date
Dim t1 As String
Dim t2 As String
t = Timer
For i = 1 To 3000
Sheets("89").Select
Sheets("89").Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "10"
Next
t1 = Timer - t
t = Timer
For i = 1 To 3000
Sheets("89").Cells(i, 5) = "10"
Next
t2 = Timer - t
Sheets("89").Cells(3, 2).Select
Sheets("89").Cells(3, 2) = Format(t1, "0.00000")
vba数据库编程Sheets("89").Cells(4, 2) = Format(t2, "0.00000")
MsgBox "第⼀次运⾏时间:" & Format(t1, "0.00000") & "秒" _
& Chr(13) & "第⼆次运⾏时间:" & Format(t2, "0.00000") & "秒"
End Sub
代码解析：Mynz过程分别使⽤录制宏所得的代码和修改后的代码给单元格填充，最后使⽤消息显⽰运
⾏时间。运⾏mynz过程，消息框显⽰两种⽅法的运⾏时间，可以看出后⼀种⽅法的运⾏时间要远远⼩于前者代码的运⾏时间.
VBA是实现⾃⼰⼩型办公⾃动化的有效⼿段，我根据⾃⼰20多年的VBA实际利⽤经验，现推出了四部VBA学习教程，这些是我多年编程经验的记录，也是我“积⽊编程”思想的体现。每⼀讲都是⼀块“积⽊”，可以独⽴的完成某些或者某类的过程。利⽤这些可以⼤⼤提⾼⾃⼰的编程效率。
第⼀套：“VBA代码解决⽅案”是PDF教程，是VBA中各个知识点的讲解，覆盖了绝⼤多数的知识点，是初学及中级以下⼈员必备；
第⼆套：“VBA数据库解决⽅案”是PDF教程，数据库是数据处理的利器，对于中级⼈员应该掌握这个内容了。
第三套：“VBA数组与字典解决⽅案”是PDF教程，讲解VBA的精华----字典，是我们打开思路，提⾼代码⽔平的必备。
第四套：“VBA代码解决⽅案”视频教程。⽬前正在录制，“每天20分钟，精进VBA”，越早参与，回馈越多。现在录制到第三册的124讲，以上各教程的代码都是经过实测，可以拿来即⽤。
懒惰是很奇怪的东西，它使你以为那是安逸，是休息，是福⽓；但实际上它所给你的是⽆聊，是倦怠，是消沉。
不要懒惰还是多学习些有⽤的知识吧，哪怕只是点滴。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。