VBA—Doevents说明

DOevents的含义是转让控制权，以便让操作系统处理其它事件。

更通俗的理解是刷新。

以下用一个例子来说明。

1.先写一个窗体，然后再控制按钮里面写下如下代码 

Private Sub CommandButton1_Click()
Dim i!
i = 1
Do
i = i + 1
TextBox1.Value = Str(i)
'DoEvents
Loop Until i > 10000

End Sub

这样运行的结果就是得到10001（大概是一瞬间，看不到中间变量）。

注意：其中的doevents是被注释掉了。

2.现在释放doevents，所以每次循环都会进行一次刷新。

运行过程中可以看到i从1到10001增加的一个动态过程。

Private Sub CommandButton1_Click()
Dim i!
i = 1
Do
i = i + 1
TextBox1.Value = Str(i)
DoEvents
Loop Until i > 10000

End Sub

如果不用窗体，直接看excel界面。

Sub test()
For i = 1 To 10000
'DoEvents
Selection = i
Next i
End Sub

运行后选择的单元格从1到10000变化，由于doevents被注释，所以在for循环过程中是不能进行其他操作的，for循环结束后才可以操作鼠标。

如果取消doevents的注释，则每次循环都会释放控制权，点哪儿哪儿就会出现i值。

以上