2024年6月14日发(作者：)

Excel Updating

Excel 中，是否禁用 Updating 效果有明显的差距，如下图

ScreenUpdating 属性

如果屏幕更新功能是打开的，则该值为 True。Boolean 类型，可读写。

说明：

关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。

当宏结束运行后，请记住将 ScreenUpdating 属性设回到 True。

操作说明：

当为 True 时，屏幕上会显示 每个单元格数值的变化情况

当为 False 时，屏幕上只会等运算完成后，才显示结果。

第1页，共5页 ｜ 2022-03-05 08:03:20

Excel Updating

示例代码 如下：

Sub Application_ScreenUpdating_True()

Dim 花费时间(2)

Range("A2").Select

Panes = True

Columns("A:A").ColumnWidth = 20

Columns("C:C").ColumnWidth = 20

For i = 1 To 2

If i = 1 Then

Updating = True

Range("A1").Select

第2页，共5页 ｜ 2022-03-05 08:03:20

Excel Updating

Else

Updating = False

Range("C1").Select

End If

起始时间 = Time

aR1C1 = 起始时间

For c = 2 To 10000

(1, 0).Range("A1").Select

aR1C1 = Time

第3页，共5页 ｜ 2022-03-05 08:03:20

Excel Updating

Next c

终止时间 = Time

花费时间(i) = Round((终止时间 - 起始时间) * 24 * 60 * 60, 3)

If i = 1 Then

Range("A10002").Value = "Updating = True

& " 终止时间 " & 终止时间 & " 共花费：" & 花费时间(1) & " 秒"

Else

Range("A10003").Value = "Updating = False

& " 终止时间 " & 终止时间 & " 共花费：" & 花费时间(2) & " 秒"

End If

Next i

Updating = True

第4页，共5页 ｜ 2022-03-05 08:03:20

起始时间 " & 起始时间

起始时间 " & 起始时间

Excel Updating

End Sub

第5页，共5页 ｜ 2022-03-05 08:03:20