【VBA】Functionプロシージャの戻り値と引数｜初心者向け解説とサンプルコード

Functionプロシージャを正しく使うために欠かせないのが 戻り値（返り値） と 引数（パラメータ） の理解です。
Sub にはない「値を返す」という機能があるため、コードをスッキリさせたり再利用しやすくしたりすることができます。

1. 戻り値とは？Function 特有の「返す値」

Functionプロシージャでは、処理の結果として 1つの値を返す ことができます。

戻り値は、Function名に値を代入することで設定します。

Function AddValue(a As Long, b As Long) As Long
    AddValue = a + b   '← これが戻り値
End Function

上記例では、

という仕組みです。

関数宣言の最後の As Long が「返す値の型」。
型を省略すると Variant になり、予期せぬ型変換が起きることがあるため 基本は必ず型を明示します。

引数（パラメータ）とは、関数が処理するために「外から渡す値」のことです。

Function GetArea(width As Double, height As Double) As Double
    GetArea = width * height
End Function

Function AddTax(price As Long, Optional rate As Double = 0.1) As Double
    AddTax = price * (1 + rate)
End Function

呼び出し元から引数を渡す時、rate を省略すれば値が 0.1 になります。

Sub Test()
    MsgBox AddTax(2000)      'rateの引数なし
    MsgBox AddTax(2000, 0.08) 'rateの引数あり
End Sub

引数には 渡し方の種類 があり、これによって処理結果が変わる場合があります。

Function Sample(ByVal x As Long)
    x = x + 10  '呼び出し元のxは変わらない
End Function

Function Sample(ByRef x As Long)
    x = x + 10   '呼び出し元のxも10増える
End Function

誤ってデータを書き換えるトラブルを防げます。

必要な材料がなければ、引数無しで定義できます。

Function GetToday() As Date
    GetToday = Date
End Function

ただし、可読性や再利用性を考えると 引数無しのFunctionは慎重に使用する方がベターです。

処理をまとめて再利用しやすいコードを書くことができます。

Function CalcTax(price As Long, Optional rate As Double = 0.1) As Long
    CalcTax = price * (1 + rate)
End Function

Sub Test()
    MsgBox CalcTax(2000)      '税込2200
    MsgBox CalcTax(2000, 0.08) '税込2160
End Sub

Function を使うと、処理がすっきりし保守性が向上します。