------游卖虚---------------
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出提示对话框,单击“结束”按钮或“调试”按钮结束程序的运行即可结束“死循环”现象。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)