1 执行其他过程
- sub
- call sub()
2 调用其他函数(VBA若只调用函数,并不会直接返回函数返回值)
- func1
- call function()
3 调用其他函数并使用函数返回值
- Debug.Print func1(1, 3)
- a = func1(100, 99)
4 如何关闭其他sub,用传递参数的方法
- test12 1
5如何关闭其他sub,用改变模块级变量的方法
- 过程级变量 dim y
- y = 666
Dim y
Sub test10()
Debug.Print "test10"
Debug.Print
'执行其他过程
Call test11(2, 4, 6)
'调用其他函数
func1 1, 3
Debug.Print
'调用,兵使用其他函数的返回值
Debug.Print func1(1, 3)
a = func1(100, 99)
Debug.Print a
'传递参数,停止,控制其他过程
test12 1
'通过改变模块级变量,停止,控制其他过程
y = 666
Debug.Print
End Sub
Sub test11(x, y, z)
Debug.Print "test11"
Debug.Print x + y + z
Debug.Print
End Sub
Sub test12(x)
Debug.Print "test12开始"
If x = 1 Then
Exit Sub
End If
Debug.Print "test12结束"
Debug.Print
End Sub
Sub test13()
Debug.Print "test13开始"
If y = 666 Then
Exit Sub
End If
Debug.Print "test13结束"
Debug.Print
End Sub
Function func1(a, b)
Debug.Print "func1";
func1 = a + b
Debug.Print
End Function
Sub ponymatest1()
For i = 1 To 5
If i = 3 Then
Debug.Print "i*i=" & i * i
Exit Sub
End If
Next
ponymatest2
End Sub
Sub ponymatest2()
Debug.Print "hello, I am " & "ponymatest2"
End Sub