vba 怎么结束运行中的进程

－－－－－－游卖虚－－－－－－－－－－－－－－－

Public x As String　'申明一个神燃公共变量

Sub A()

End Sub

---------------------------------

Private Sub CommandButton1_Click()'  窗体1控件程序代码

'

'你的过程

'

Dim m%

UserForm2.Show

'

'

If x = "CommandButton2" Then

MsgBox x

Exit Sub

End If

If x = "CommandButton1" Then

MsgBox x

End If

'你的过程'

'

End Sub

－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click()‘’窗体1控件代码

Unload Me

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

x = Me.ActiveControl.Name

End Sub

－－－－－－－－－－－－－－－－－－配颤

利用禁用屏幕刷新即可，即在程序开头加上一句代码：差悉Application.ScreenUpdating=False程序结尾前加上Application.ScreenUpdating=True关于此例中用到的ScreenUpdating属性的相关知识：如虚腊乎果屏幕更新功能是打开的，则该值为True。Boolean类型，可读写。说明：关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。当宏结束运行后，请记住将ScreenUpdating属性设回到True。 *** 作说明：当为True时，局茄屏幕上会显示每个单元格数值的变化情况；当为False时，屏幕上只会等运算完成后，才显示结果。

---