関数

プロシージャを定義

Sub ProcedureName()
    Debug.Print "value"
End Sub

実行結果

value

---

他プロシージャを呼び出す

Sub Main()
    Call ProcedureName()
End Sub

Sub ProcedureName()
    Debug.Print "value"
End Sub

実行結果

value

---

Callは省略可

Sub Main()
    ProcedureName
End Sub

Sub ProcedureName()
    Debug.Print "value"
End Sub

実行結果

value

---

引数ありのプロシージャを定義

Sub Main()
    ProcedureName("value")
End Sub

Sub ProcedureName(argument AS String)
    Debug.Print argument
End Sub

実行結果

value

---

複数引数ありのプロシージャを定義

Sub Main()
    Call ProcedureName("value1", "value2")
End Sub

Sub ProcedureName(argument1 AS String, argument2 AS String)
    Debug.Print argument1 + argument2
End Sub

実行結果

value1value2

---

引数に規定値を設定

Sub Main()
    ProcedureName
End Sub

Sub ProcedureName(Optional argument AS String = "value")
    Debug.Print argument
End Sub

実行結果

value

---

戻り値を返すプロシージャを定義

Sub Main()
    Debug.Print FunctionName()
End Sub

Function FunctionName()
    FunctionName = "value"
End Function

実行結果

value