【2026年7月最新】VBA Function完全ガイド｜定義・引数・戻り値・ByVal/ByRef・実務活用まで徹底解説

この記事の内容

1. 01VBA Functionとは何か（SubとFunctionの違い）
2. 02Functionの基本構文と書き場所
3. 03引数なし・戻り値なしの最小パターン
4. 04引数あり・戻り値ありの定義と呼び出し
5. 05複数引数とOptional・デフォルト値の使い方
6. 06ByVal（値渡し）とByRef（参照渡し）の違い
7. 07配列を戻り値として返すパターン
8. 08エラーハンドリング（On Error GoTo）
9. 09Functionを組み合わせた実務Excel自動化
10. 10【独自データ】GENAI実運用での業務自動化効果
11. 11Claude CodeにVBA Functionを書かせる方法
12. FAQよくある質問

📚 用語解説

Sub（サブルーチン）：VBAで「処理のまとまり」に名前をつけたもの。「セルを色で塗る」「データを並べ替える」など、実行して終わりの命令セットに使う。戻り値を返す機能はない。マクロとしてボタンに登録して実行する場合にも使われる。

📚 用語解説

Function（関数）：処理のまとまりに名前をつけつつ、処理の結果を「値として返す」ことができる仕組み。呼び出し元に数値・文字列・配列などを返せる。Excelのシート関数（SUM、IFなど）に近いイメージで作る自作の処理部品。

1つのFunctionは「1つのことだけ」をするよう設計しましょう。「消費税計算＋セルへの書き込み＋色の変更」を1つのFunctionに詰め込まないこと。処理が1つだと、テストが楽になり、別の場所での再利用も簡単になります。

Function 関数名(引数1 As データ型, 引数2 As データ型) As 戻り値のデータ型
    '処理内容
    関数名 = 戻り値  '★ここで関数名に値を代入するのが「戻り値を返す」構文
End Function

📚 用語解説

データ型（As 〜）：変数や引数・戻り値が扱う値の種類を指定するキーワード。Long（整数）、String（文字列）、Double（小数）、Boolean（True/False）、Variant（何でも可）などがある。型を明示すると処理が速くなり、型の不一致によるバグも防げる。

📚 用語解説

VBE（Visual Basic Editor）：ExcelやAccessでVBAコードを書くための専用エディタ。Alt+F11で起動する。左側のプロジェクトツリーでシート・モジュール・フォームを選択し、右側のコード画面でVBAを記述する。

ExcelシートからFunctionを直接呼ぶ（UDF）場合、そのFunctionの中でセルの値を変更したり、ActiveSheetを操作する処理は書けません（エラーになります）。UDFは「計算して値を返すだけ」の純粋な関数として設計してください。

Function SayHello()
    MsgBox "こんにちは！"
End Function

'呼び出し側
Sub TestHello()
    Call SayHello  'Callキーワードで呼ぶ
    'または
    SayHello        'Callなしでも呼べる
End Sub

戻り値なしのFunctionを「Function名（）=値」を書かずに使うのは技術的には動きますが、SubとFunctionの設計思想が混在してコードが読みにくくなります。「値を返さないならSub」「値を返すならFunction」を徹底することで、チームでのコードレビューが楽になります。

'イミディエイトウィンドウに入力
?SayHello()    '→ メッセージボックスが表示される

'戻り値ありのFunctionなら結果が表示される
?CalcTax(10000)  '→ 1000 (10%の場合) が表示される

'消費税計算Function（税抜価格を受け取り、税込価格を返す）
Function CalcTax(price As Long) As Long
    CalcTax = price + (price * 0.1)  '税込価格を関数名に代入＝戻り値
End Function

'呼び出し側
Sub TestCalcTax()
    Dim taxIncluded As Long
    taxIncluded = CalcTax(10000)  '10000を渡す
    MsgBox "税込価格: " & taxIncluded & "円"  '→ 11000円
End Sub

📚 用語解説

Long型とInteger型の違い：IntegerはVBAで±32,767までの整数を扱う型。一見コンパクトに見えるが、現代の64ビットPC環境ではLong（±2,147,483,647）の方が処理が速い。Excelの行数は最大104万行なので、行番号を扱う変数はLongを使うのが安全。

'フルネームを返すFunction
Function GetFullName(lastName As String, firstName As String) As String
    GetFullName = lastName & "　" & firstName  '全角スペースで結合
End Function

'呼び出し側
Sub TestGetFullName()
    Dim fullName As String
    fullName = GetFullName("菅澤", "孝平")
    MsgBox fullName  '→ 「菅澤　孝平」と表示
End Sub

'メールアドレスの簡易バリデーション
Function IsValidEmail(email As String) As Boolean
    If InStr(email, "@") > 0 And InStr(email, ".") > 0 Then
        IsValidEmail = True
    Else
        IsValidEmail = False
    End If
End Function

'呼び出し側
Sub CheckEmails()
    Dim i As Long
    For i = 2 To 100
        If IsValidEmail(Cells(i, 1).Value) Then
            Cells(i, 2).Value = "有効"
        Else
            Cells(i, 2).Value = "無効"
        End If
    Next i
End Sub

Boolean型を返すFunctionは「Is〜」「Has〜」「Can〜」という名前にするのが慣習です。IsValidEmail、HasData、CanProcessのように命名すると、呼び出し元でIf IsValidEmail(email) Thenと読みやすいコードになります。

'複数引数の例：割引後の価格を計算する
Function CalcDiscountPrice(price As Long, discountRate As Double) As Long
    CalcDiscountPrice = CLng(price * (1 - discountRate))
End Function

'呼び出し側
Sub TestDiscount()
    Dim result As Long
    result = CalcDiscountPrice(10000, 0.2)  '10000円、20%オフ
    MsgBox "割引後: " & result & "円"  '→ 8000円
End Sub

📚 用語解説

CLng関数：VBAの変換関数の1つ。Doubleなどの小数を含む値をLong（整数）に変換する際に使う。四捨五入ではなく「銀行型丸め（最近偶数丸め）」が適用されるため、厳密な金額計算には独自の丸め処理が必要な場合もある。

'消費税計算（税率を省略した場合は10%をデフォルト）
Function CalcTaxCustom(price As Long, Optional taxRate As Double = 0.1) As Long
    CalcTaxCustom = CLng(price * (1 + taxRate))
End Function

'呼び出し側
Sub TestCalcTaxCustom()
    MsgBox CalcTaxCustom(10000)         '→ 11000（税率省略→10%）
    MsgBox CalcTaxCustom(10000, 0.08)  '→ 10800（8%を明示）
End Sub

Optional引数は必ず引数リストの後ろに置いてください。Function Test(Optional a As Long, b As Long)のように必須引数（b）をOptional（a）の後に置くとコンパイルエラーになります。Function Test(b As Long, Optional a As Long = 0)が正しい順序です。

Function CalcWithCheck(price As Long, Optional discountRate As Variant) As Long
    If IsMissing(discountRate) Then
        '引数が省略された場合の処理
        CalcWithCheck = price
    Else
        '引数が渡された場合の処理
        CalcWithCheck = CLng(price * (1 - discountRate))
    End If
End Function

📚 用語解説

ByVal（値渡し）：引数として渡す変数の「値のコピー」をFunctionに渡す。Function内で引数を書き換えても、呼び出し元の変数には影響しない。安全だが、大きなデータを扱う場合はメモリを余分に消費する。

📚 用語解説

ByRef（参照渡し）：引数として渡す変数の「メモリアドレス（参照先）」をFunctionに渡す。Function内で引数を書き換えると、呼び出し元の変数も同時に書き変わる。VBAのデフォルトの挙動。

'ByVal の例（呼び出し元の変数は変わらない）
Function DoubleByVal(ByVal n As Long) As Long
    n = n * 2  'ローカルコピーを変更（呼び出し元には影響なし）
    DoubleByVal = n
End Function

'ByRef の例（呼び出し元の変数が変わる）
Function DoubleByRef(ByRef n As Long) As Long
    n = n * 2  '参照先（呼び出し元の変数）を変更
    DoubleByRef = n
End Function

'比較テスト
Sub TestByValByRef()
    Dim x As Long
    x = 10
    Debug.Print DoubleByVal(x)  '→ 20 が返る
    Debug.Print x               '→ 10（変わらない！）

    x = 10
    Debug.Print DoubleByRef(x)  '→ 20 が返る
    Debug.Print x               '→ 20（変わってしまった！）
End Sub

VBAのデフォルトはByRefです。引数に何も書かないとByRefとして動きます。コードの意図を明確にするため、「この引数は変更しない」場合は明示的にByValと書く習慣をつけましょう。他の人がコードを読んだとき、意図が伝わりやすくなります。

'最大値と最小値を同時に返すFunction（ByRefを使って2値を返す）
Function GetMinMax(arr() As Long, ByRef minVal As Long, ByRef maxVal As Long) As Boolean
    If UBound(arr) < LBound(arr) Then
        GetMinMax = False  '空配列エラー
        Exit Function
    End If
    minVal = arr(LBound(arr))
    maxVal = arr(LBound(arr))
    Dim i As Long
    For i = LBound(arr) + 1 To UBound(arr)
        If arr(i) < minVal Then minVal = arr(i)
        If arr(i) > maxVal Then maxVal = arr(i)
    Next i
    GetMinMax = True  '正常終了
End Function

'呼び出し側
Sub TestMinMax()
    Dim data(4) As Long
    data(0) = 50: data(1) = 10: data(2) = 80: data(3) = 30: data(4) = 60
    Dim mn As Long, mx As Long
    If GetMinMax(data, mn, mx) Then
        MsgBox "最小: " & mn & " / 最大: " & mx  '→ 最小: 10 / 最大: 80
    End If
End Sub

'文字列配列を返すFunction（スペース区切りで分割）
Function SplitText(text As String) As Variant
    SplitText = Split(text, " ")  'スペースで分割した配列を返す
End Function

'呼び出し側
Sub TestSplitText()
    Dim result As Variant
    result = SplitText("VBA Function 完全ガイド")
    Dim i As Long
    For i = LBound(result) To UBound(result)
        Debug.Print result(i)  '→ VBA / Function / 完全ガイド
    Next i
End Sub

'シートの指定列のデータを配列で返すFunction
Function GetColumnData(ws As Worksheet, col As Long, startRow As Long, endRow As Long) As Variant
    Dim arr() As Variant
    Dim rowCount As Long
    rowCount = endRow - startRow + 1
    ReDim arr(1 To rowCount)
    Dim i As Long
    For i = 1 To rowCount
        arr(i) = ws.Cells(startRow + i - 1, col).Value
    Next i
    GetColumnData = arr
End Function

'呼び出し側
Sub TestGetColumnData()
    Dim data As Variant
    data = GetColumnData(Sheet1, 1, 2, 10)  'Sheet1のA列、2行目から10行目
    Dim i As Long
    For i = LBound(data) To UBound(data)
        Debug.Print data(i)
    Next i
End Sub

📚 用語解説

ReDim（配列の再定義）：VBAで動的配列のサイズを実行時に変更するキーワード。事前に要素数が分からない場合に使う。ReDim arr(1 To 10)で1〜10の要素を持つ配列を作成。既存のデータを保持しながらサイズを変えたい場合はReDim Preserveを使う。

VBAでは配列型（Long()やString()）を戻り値型として直接指定しても動作しますが、呼び出し元での受け取りが複雑になります。As Variantで受け取る方が柔軟で、LBound/UBoundでのサイズ確認もそのまま使えるため実務では推奨されます。

'ゼロ除算エラーを安全に処理するFunction
Function SafeDivide(numerator As Double, denominator As Double) As Variant
    On Error GoTo ErrorHandler
    
    If denominator = 0 Then
        SafeDivide = "ERROR: ゼロ除算"
        Exit Function
    End If
    
    SafeDivide = numerator / denominator
    Exit Function  '★ 正常終了時はここでExitしてErrorHandlerを飛ばす

ErrorHandler:
    SafeDivide = "ERROR: " & Err.Number & " - " & Err.Description
End Function

'呼び出し側
Sub TestSafeDivide()
    Debug.Print SafeDivide(10, 3)   '→ 3.33...
    Debug.Print SafeDivide(10, 0)   '→ ERROR: ゼロ除算
End Sub

📚 用語解説

On Error GoTo ラベル：VBAのエラーハンドリング構文。エラーが発生したとき、指定したラベル（ErrorHandler:など）の行にジャンプして処理を続ける。On Error Resume Next（エラーを無視）は使わないのが原則——バグを隠蔽して後から大きな問題になることが多い。

Function YourFunction(arg1 As String) As Variant
    On Error GoTo ErrorHandler  '1. 先頭でエラーハンドラを設定
    
    '2. 引数チェック（事前条件）
    If arg1 = "" Then
        YourFunction = Null  'または False / "" など
        Exit Function
    End If
    
    '3. 本処理
    YourFunction = DoSomething(arg1)
    
    Exit Function  '4. 正常終了（ErrorHandlerをスキップ）

ErrorHandler:  '5. エラー発生時のみここに来る
    Debug.Print "エラー in YourFunction: " & Err.Number & " " & Err.Description
    YourFunction = Null  'エラー時の戻り値を明示
End Function

On Error Resume Nextはエラーを無視して次の行に進むため、問題のある行が何の表示もなくスキップされてしまいます。デバッグが非常に困難になり、データ破損のリスクもあります。特別な理由がない限りOn Error GoToを使い、エラーは必ず検知・記録してください。

'税込金額計算Function
Function CalcTaxIncluded(unitPrice As Long, qty As Long, taxRate As Double) As Long
    CalcTaxIncluded = CLng(unitPrice * qty * (1 + taxRate))
End Function

'金額を「¥1,000」形式にフォーマットするFunction
Function FormatYen(amount As Long) As String
    FormatYen = "¥" & Format(amount, "#,##0")
End Function

'請求書の明細を一括処理するSub（Functionを呼び出す）
Sub ProcessInvoice()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("請求書")
    Dim i As Long
    For i = 5 To 20  '5行目〜20行目を処理
        Dim unitPrice As Long
        Dim qty As Long
        unitPrice = ws.Cells(i, 3).Value  'C列: 単価
        qty = ws.Cells(i, 4).Value         'D列: 数量
        If unitPrice > 0 And qty > 0 Then
            Dim taxIncluded As Long
            taxIncluded = CalcTaxIncluded(unitPrice, qty, 0.1)
            ws.Cells(i, 5).Value = FormatYen(taxIncluded)  'E列に書き込み
        End If
    Next i
    MsgBox "請求書の計算が完了しました。"
End Sub

'指定月の売上合計を返すFunction
Function SumSalesByMonth(ws As Worksheet, targetYear As Integer, targetMonth As Integer) As Long
    On Error GoTo ErrorHandler
    Dim total As Long
    total = 0
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Dim i As Long
    For i = 2 To lastRow
        Dim cellDate As Date
        cellDate = CDate(ws.Cells(i, 1).Value)  'A列: 日付
        If Year(cellDate) = targetYear And Month(cellDate) = targetMonth Then
            total = total + ws.Cells(i, 3).Value  'C列: 売上金額
        End If
    Next i
    SumSalesByMonth = total
    Exit Function
ErrorHandler:
    Debug.Print "SumSalesByMonth エラー: " & Err.Description
    SumSalesByMonth = -1  'エラー時は-1を返す
End Function

'月次レポートシートに集計結果を書き込むSub
Sub GenerateMonthlyReport()
    Dim salesWs As Worksheet
    Dim reportWs As Worksheet
    Set salesWs = ThisWorkbook.Sheets("売上記録")
    Set reportWs = ThisWorkbook.Sheets("月次レポート")
    Dim m As Integer
    For m = 1 To 12
        Dim total As Long
        total = SumSalesByMonth(salesWs, 2026, m)
        reportWs.Cells(m + 1, 2).Value = IIf(total >= 0, total, "エラー")
    Next m
    MsgBox "月次レポートを作成しました。"
End Sub

'在庫アラート判定Function
Function IsLowStock(currentStock As Long, reorderPoint As Long) As Boolean
    IsLowStock = (currentStock <= reorderPoint)
End Function

'在庫シートの全行にアラート色を適用するSub
Sub ApplyStockAlert()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("在庫管理")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Dim i As Long
    For i = 2 To lastRow
        Dim stock As Long
        Dim reorder As Long
        stock = ws.Cells(i, 3).Value    'C列: 現在庫数
        reorder = ws.Cells(i, 4).Value  'D列: 発注点
        If IsLowStock(stock, reorder) Then
            ws.Rows(i).Interior.Color = RGB(255, 200, 200)  '赤背景
            ws.Cells(i, 5).Value = "要発注"
        Else
            ws.Rows(i).Interior.ColorIndex = xlNone  '色なし
            ws.Cells(i, 5).Value = ""
        End If
    Next i
    MsgBox "在庫チェック完了 (" & (lastRow - 1) & "件処理)"
End Sub

IsLowStockというFunctionに判定ロジックを分離することで、「発注点の計算方法が変わった」「安全在庫係数を加味したい」という仕様変更も、Functionだけを修正すれば完結します。Subに判定ロジックを直書きしていたら、複数の場所を探して直す必要があります。

本番データに適用する前に、必ずコピーシートやテスト用ブックで動作確認してください。VBAは元に戻せない破壊的操作（セルの上書き・シートの削除など）もできてしまうため、「テストで完全に動くことを確認してから本番」が鉄則です。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？