子程序（Sub Procedure）：
1. 声明格式：
Sub MySubProcedure()
' 代码块
End Sub
2. 用途：
- 子程序用于执行一系列任务，但不返回值。
- 可以在子程序中使用参数，但不返回值给调用者。
3. 示例：
Sub PrintMessage()
MsgBox "Hello, VBA Sub Procedure!"
End Sub
函数（Function）：
1. 声明格式：
Function MyFunction() As DataType
' 代码块
MyFunction = someValue
End Function
2. 用途：
- 函数用于执行一系列任务，并返回一个值给调用者。
- 函数可以接受参数，并可以包含返回语句。
3. 示例：
Function AddNumbers(num1 As Integer, num2 As Integer) As Integer
AddNumbers = num1 + num2
End Function
调用子程序和函数：
1. 调用子程序：
Sub MainProcedure()
' 调用子程序
PrintMessage
End Sub
2. 调用函数：
Sub MainProcedure()
' 调用函数
Dim result As Integer
result = AddNumbers(5, 3)
MsgBox "The sum is: " & result
End Sub
在上述代码中，PrintMessage 是一个子程序，而 AddNumbers 是一个函数。子程序和函数都有其独特的用途，具体取决于您的需求。函数常用于执行计算并返回结果，而子程序则用于执行一系列任务。
转载请注明出处：http://www.zyzy.cn/article/detail/302/VBA