vba 怎么结束运行中的进程

vba 怎么结束运行中的进程,第1张

------游卖虚---------------

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

------------------配颤

while-Wend循环语句的语法格式为

While<逻辑表达式>

<循环体>

Wend

在VBA中执行WhiIe-Wend循环语句的过程是先判断逻辑表达式的值是否为True,如果为True则执行循环体并执行Wend语句,再返回While语句对逻辑表达式进行判断。直到逻辑表达式的值

为False时,不执行循环体,直接执行Wend后面的语句。

While-Wend循环语句没有塌亏自动修改循环条件的功能,因此在循环体内必须有设置修闭衫肢改循环条件的语句,否则会出现“死循环”。例如我在VBA代码窗口输入以下代码。

Sub求和()

Dim i As Long

 

 Dim s As Integer

 

 While s<=100

 

 i=i+s

 

 s=S+1

Wend

 

 Debug.Print”

1至100的整数之和为:”&i

在上述程序中的“S=S+1”语句即为修改循环轿世条件的语句。运行这段程序后,选择“视图”→“立即菜单”,即可在立即窗口中显示运行结果。

如果在程序运行时出现“死循环”现象,或想要提前结束程序的运行,则按“Ctd+Break”组合键,即可d出提示对话框,单击“结束”按钮或“调试”按钮结束程序的运行即可结束“死循环”现象。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12370997.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存