vba在运行的时候显示进度条_VBA代码解决方案的第86讲内容：VBA代码的优化篇

大家好，我们今日继续讲解VBA代码解决方案的第86讲内容：VBA代码的优化篇，使用工作表函数要比代码计算快很多。在代码的优化的上一篇中我讲到了关闭屏幕更新可以有效的节约程序的运行时间，那么是不不是必须要关闭屏幕更新以得到更好的运行效率呢？根据我的经验不是这样的。在有的时候我们还是需要看到屏幕的更新而获得一种动态的程序运行效果的，也就是说我们在获得节约时间的时候往往会牺牲视觉效果。这就要看看程序员的选择和好恶了。今日我们讲在VBA中使用工作表函数比仅仅使用VBA代码的运行时间的比较。

如下面的代码所示。

Sub MyShFunction()

Dim i

Dim t As Date

Dim t1 As String

Dim t2 As String

Range("B1:B4").ClearContents

Application.ScreenUpdating = False

t = Timer

For i = 1 To 60000

Sheets("sheet10").Cells(1, 2) = Sheets("sheet10").Cells(1, 2) + Sheets("sheet10").Cells(i, 1)

Next

t1 = Timer - t

t = Timer

She