【VBA】引数を持つFunction（関数）の作り方と使い方｜戻り値の返し方

2025年8月16日2025年12月22日

はじめに

VBAのプロシージャには、これまで見てきた Sub の他に、もう一つ「Function」があります。Sub と Function の最大の違いは、Function は処理の結果として「戻り値（返り値）」を返すことができる点です。

Function を自作することで、Excelの SUM 関数や VLOOKUP 関数のようによく使う計算や処理を、再利用可能な「オリジナル関数」として部品化できます。

この記事では、引数を受け取り、処理結果を戻り値として返す、基本的な Function の作り方と使い方を解説します。

引数を持つ`Function`のサンプルコード

この例では、税抜きの価格と税率を引数として受け取り、税込価格を計算して返す CalculatePriceWithTax というオリジナル関数を作成します。

完成コード

' === 税込価格を計算するFunction ===
' 2つの引数を受け取り、Currency(通貨型)の値を返す
Function CalculatePriceWithTax(basePrice As Double, taxRate As Double) As Currency
    ' Function名と同じ名前の変数に値を代入すると、それが戻り値になる
    CalculatePriceWithTax = basePrice * (1 + taxRate)
End Function


' === 作成したFunctionを呼び出すSubプロシージャ ===
Sub Test_CalculateFunction()

    Dim priceA As Currency
    Dim priceB As Currency
    
    ' --- マクロ内からFunctionを呼び出し、戻り値を変数に格納 ---
    priceA = CalculatePriceWithTax(1000, 0.1) ' 1000円, 税率10%
    priceB = CalculatePriceWithTax(basePrice:=5000, taxRate:=0.08) ' 5000円, 税率8%
    
    ' --- 結果をシートに出力 ---
    With Worksheets("Sheet1")
        .Range("B2").Value = "税込価格A:"
        .Range("C2").Value = priceA
        
        .Range("B3").Value = "税込価格B:"
        .Range("C3").Value = priceB
    End With
    
End Sub

コードの解説

`Function CalculatePriceWithTax(...) As Currency`

これが Function の定義です。

Function ... End Function: プロシージャの種類が Function であることを示します。
(basePrice As Double, taxRate As Double): Sub と同様に、処理に必要な値を引数として受け取ります。
As Currency: Function の最後にデータ型を指定すると、その Function が返す戻り値のデータ型を定義できます。ここでは、お金を扱うのに適した Currency（通貨型）を指定しています。

**`CalculatePriceWithTax = basePrice * (1 + taxRate)`**

Function の中で、Function 自身と同じ名前の変数に値を代入すると、その値が Function の戻り値になります。これが Function の最も重要なルールです。計算結果（1000 * (1 + 0.1) = 1100）が、CalculatePriceWithTax という名前の特別な変数に格納され、呼び出し元に返されます。