Functionプロシージャー｜ExcelマクロVBA入門

最終更新日：2018-02-06

第106回.Functionプロシージャー

プログラム内で特定の作業を実行し値を返すプロシージャです、

つまり、Functionプロシージャで独自の関数をつくれるということです、

Subプロシードャーとの違いは、値を返すか返さないかの違いです。
Functionプロシージャは、値を返します
Subプロシージャは、値を返さない

Functionプロシージャは、Functionステートメントで始まり、End Functionステートメントで終わります。

Functionステートメント

[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
　　・・・
End Function

スコープ（[Public,Private,Friend）は後々説明します。
第108回.変数の適用範囲（スコープ,Private,Public）

ここでは、使用例を通して、全体の雰囲気をとらえて下さい。

Exit Functionについては、
使用例を記載しませんが、Exit Subと同様の使い方になります。
Functionプロシージャを直ちに終了します。

Functionでの処理が終了した後のプログラムの実行は、
そのFunctionプロシージャを呼び出したステートメントの次のステートメントから継続されます。

使用例．

Sub sample1()
　　Dim vrt1
　　vrt1 = func1
　　MsgBox vrt1
End Sub
Function func1()
　　func1 = "func1の回答"
End Function

Functionの戻り型は省略しています。

Functionで値を戻す場合は、Functionのnameに対して値を代入します。

上記のsample1を実行すると、"func1の回答"がメッセージ表示されます。

また、上記sample1は、

MsgBox func1

と１行で書く事ができます。
上記では、動作を理解しやすいように一度変数に入れています。

Sub sample2()
　　MsgBox func2("Functionの", "サンプルです")
End Sub
Function func2(arg1, arg2) As String
　　func2 = arg1 & arg2
End Function

Functionの戻り型をStringで指定しています。

上記のsample2を実行すると、"Functionのサンプルです"とメッセージ表示されます。

Sub sample3()
　　MsgBox func3(100, 200)
End Sub
Function func3(arg1 As Long, arg2 As Long) As Long
　　func3 = arg1 + arg2
End Function

Functionの戻り型をLong、引数の型もLongで指定しています。

上記のsample3を実行すると、"300"とメッセージ表示されます。

引数の使い方については、次々回の、
第107回.プロシージャーの引数
こちらで解説しています。