【VBA入門】Functionの基本構文と書き方｜戻り値・引数・実例付き

Functionプロシージャは、値を返しながら処理をまとめることができる便利な仕組みです。
この記事では、Function の書き方を「構文 → 実例 → 使用例」の流れでわかりやすく解説します。

1. Function の基本構文

まずは最もシンプルな構文

Function 関数名(引数1 As 型, 引数2 As 型, ...) As 戻り値の型
    '処理
    関数名 = 戻り値
End Function

まずは小さく理解できる例

Function AddValue(ByVal a As Long, ByVal b As Long) As Long
    AddValue = a + b
End Function

Sub Test()
    MsgBox AddValue(3, 5)   '→ 8が表示される
End Sub

引数を省略可能にすると、関数の使い勝手が大幅に向上します。

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

Sub Test()
    MsgBox CalcTax(2000)        '税込2200（10％）
    MsgBox CalcTax(2000, 0.08)  '税込2160（8％）
End Sub

Optional を使うことで「デフォルト動作」と「カスタム動作」の両方に対応できます。

Function は数値だけでなく、文字列や日付などあらゆる型を返せます。

Function MakeMessage(ByVal name As String) As String
    MakeMessage = "こんにちは、" & name & "さん！"
End Function

Sub Test()
    MsgBox MakeMessage("田中")
End Sub

「処理とメッセージ組み立て」を分離できるため、コードの再利用性が大きく向上します。

条件判定を Function に切り出すと、読みやすさ・保守性が段違いに良くなります。

Function IsPositive(ByVal num As Long) As Boolean
    IsPositive = (num > 0)
End Function

Sub Test()
    If IsPositive(10) Then
        MsgBox "正の数です"
    Else
        MsgBox "0以下です"
    End If
End Sub

判定ロジックを Function にすると、複数の場所で使い回せます。

Function IsWeekday(ByVal dt As Date) As Boolean
    IsWeekday = (Weekday(dt, vbMonday) <= 5)
End Function

Sub Test()
    If IsWeekday(Date) Then
        MsgBox "今日は平日です"
    Else
        MsgBox "今日は休日です"
    End If
End Sub

こうした小さな判定関数を持っておくと、大きな処理でも読みやすくなります。

Function を使うことで、コードの明確化・再利用性・バグ防止につながります。