VBA_Excel_教程：过程，函数

Sub s1()

    Debug.Print "s1"
    ‘调用过程：无括号，加call提升可读性
    s2
    Call s2
End Sub

Sub s2()
    Debug.Print "s2"
End Sub

Function f1()
    Debug.Print "f1"
    f2
    Call f2
End Function

Function f2()
    Debug.Print "f2"
End Function

Function f1()
    Debug.Print "f1"
    strRet = f2
    Debug.Print strRet
    strRet = f3
    Debug.Print strRet
    
End Function

Function f2() As String
    ‘函数返回值用【函数名】表示
    f2 = "return f2"
End Function

Function f3() ‘加返回值类型声明更安全，提升可读性
    f3 = "return f3"
End Function