【原创】VBA学习笔记（315）VBA 程序之间的调用，执行，关闭控制等基础

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