VBA_Excel_教程：过程，函数

Sub s1()Debug.Print "s1"'调用过程：无括号，加call提升可读性
    s2Call s2
End SubSub s2()Debug.Print "s2"
End Sub

函数当过程用完全没有问题

Function f1()Debug.Print "f1"f2Call f2
End FunctionFunction f2()Debug.Print "f2"
End Function

函数是可以有返回值的

Function f1()Debug.Print "f1"strRet = f2("B")Debug.Print strRetstrRet = f3("C")Debug.Print strRetEnd FunctionFunction f2(inPara As String) As String'函数返回值用【函数名】表示f2 = "return f2 " & inPara
End FunctionFunction f3(inPara) '返回值、参数：加类型声明更安全，提升可读性f3 = "return f3 " & inPara
End Function