VBAで「ByRefの引数の型が一致しません」エラーが出る原因と引数の渡し方

VBAでマクロを実行しようとしたとき、「コンパイルエラー: ByRefの引数の型が一致しません」というメッセージが表示されて処理が止まってしまう――このエラーは、プロシージャ（SubまたはFunction）に引数を渡すとき、呼び出し側の変数の型と、受け取り側のプロシージャが期待する型が一致していない場合に発生するコンパイルエラーです。「ByRef」という言葉が含まれているため「参照渡しが悪いのか？」と混乱しやすいですが、本質は型の不一致にあります。本記事では、エラーの仕組みから始まり、発生するすべての主要パターンと修正方法を、その場でコピーして使えるコードとともに体系的に解説します。

「ByRefの引数の型が一致しません」とは何か
ByRefとByValの違いを正しく理解する
原因1：呼び出し側の変数型と受け取り側の引数型が異なる
原因2：リテラル値・式・関数の戻り値を直接渡している
原因3：数値型のサブタイプの不一致（Integer・Long・Doubleなど）
原因4：オブジェクト型の不一致
原因5：配列引数の渡し方のミス
原因6：省略可能引数（Optional）の型と渡し方
Variant型を使った柔軟な引数設計
引数設計のベストプラクティス
デバッグ手順：型の不一致を素早く特定する
ByRefエラー原因チェックリスト
まとめ

「ByRefの引数の型が一致しません」とは何か

このエラーはコンパイルエラーであり、実行時エラーとは異なりマクロを動かす前の段階で検出されます。VBAがコードを解析するとき、プロシージャ呼び出しの引数の型を事前にチェックし、ByRef渡しの場合に型が厳密に一致しないと判断するとこのエラーを出します。

エラーメッセージに「ByRef」と入っている理由は、ByRef渡し（参照渡し）の場合にのみ型の厳密な一致が要求されるからです。ByVal渡し（値渡し）の場合はVBAが自動的に型変換を行うため、多少の型の違いは許容されます。この仕組みの違いがエラーの核心です。

主な発生パターンは次のとおりです。

呼び出し側の変数が Long 型なのに受け取り側が Integer 型を期待している（または逆）
Double 型変数を Single 型引数にByRefで渡している
リテラル値（100・"文字"）や計算式の結果を直接ByRef引数に渡している
Worksheet 型変数を Object 型引数にByRefで渡している（または逆）
配列を引数に渡すときの宣言方法が間違っている

ByRefとByValの違いを正しく理解する

引数の渡し方には ByRef（参照渡し） と ByVal（値渡し） の2種類があります。この違いを正しく理解することが、エラーを根本から解消するための第一歩です。

ByRef（参照渡し）：VBAのデフォルト

ByRefはVBAのデフォルトの引数渡し方式です。引数を明示しない場合、VBAは自動的にByRefとして扱います。ByRefで渡すと、呼び出し側の変数そのもの（メモリアドレス）がプロシージャに渡されるため、プロシージャ内で値を変更すると呼び出し側の変数も変更されます。

' ByRefの動作確認
Sub TestByRef()

    Dim x As Long
    x = 10

    Debug.Print "呼び出し前: " & x   ' → 10
    DoubleValue x
    Debug.Print "呼び出し後: " & x   ' → 20（プロシージャ内で変更されている）

End Sub

Sub DoubleValue(ByRef num As Long)
    num = num * 2   ' 呼び出し側の変数も変更される
End Sub

ByVal（値渡し）：コピーを渡す

ByValで渡すと、変数の値のコピーがプロシージャに渡されます。プロシージャ内で値を変更しても呼び出し側の変数には影響しません。また、ByValの場合はVBAが自動的に型変換を行うため、型の厳密な一致は要求されません。

' ByValの動作確認
Sub TestByVal()

    Dim x As Long
    x = 10

    Debug.Print "呼び出し前: " & x   ' → 10
    DoubleValueByVal x
    Debug.Print "呼び出し後: " & x   ' → 10（変更されない）

End Sub

Sub DoubleValueByVal(ByVal num As Long)
    num = num * 2   ' コピーを変更するだけなので呼び出し側に影響しない
    Debug.Print "プロシージャ内: " & num   ' → 20
End Sub

ByRefとByValの使い分け基準

ByRefを使う場面：プロシージャ内での変更を呼び出し側に反映させたい場合。複数の値を「返す」ために出力引数として使う場合。大きな配列やオブジェクトをコピーせずに渡してパフォーマンスを確保する場合
ByValを使う場面：プロシージャ内での変更が呼び出し側に影響しないようにしたい場合。関数の引数として値を読み取るだけの場合。型の自動変換を活用したい場合
基本方針：変更を呼び出し元に返す必要がない引数は ByVal を明示する。意図を明確にするために ByRef・ByVal は省略せず必ず明示的に書く

' 引数の意図を明示した書き方（推奨）
Sub ProcessData( _
    ByVal  inputData  As String, _   ' 読み取りのみ（変更を返さない）
    ByVal  targetRow  As Long, _     ' 読み取りのみ
    ByRef  resultCode As Long, _     ' 処理結果コードを返す出力引数
    ByRef  errorMsg   As String)     ' エラーメッセージを返す出力引数

    ' inputDataとtargetRowは呼び出し側に影響しない
    ' resultCodeとerrorMsgの変更は呼び出し側に反映される
    resultCode = 0
    errorMsg   = ""

    If Len(inputData) = 0 Then
        resultCode = -1
        errorMsg   = "入力データが空です"
        Exit Sub
    End If

    ' ... 処理 ...
    resultCode = 1

End Sub

原因1：呼び出し側の変数型と受け取り側の引数型が異なる

ByRefエラーの最も基本的な原因です。呼び出し側で Long 型として宣言した変数を、Integer 型の引数を期待するプロシージャにByRefで渡そうとするとエラーになります。VBAは型変換なしに渡そうとするため、サイズの異なる型は受け付けません。

エラーが起きるコード例

' 受け取り側のプロシージャ
Sub PrintNumber(ByRef num As Integer)
    Debug.Print num
End Sub

' 呼び出し側
Sub CallerSub()

    Dim x As Long     ' Long型で宣言
    x = 100

    PrintNumber x     ' → コンパイルエラー：ByRefの引数の型が一致しません
    '              ↑ Long型変数をInteger型ByRef引数に渡せない

End Sub

' 別パターン：Double型をSingle型に渡す
Sub CalcArea(ByRef result As Single)
    result = result * 2
End Sub

Sub CallerSub2()
    Dim area As Double   ' Double型で宣言
    area = 3.14

    CalcArea area   ' → コンパイルエラー：ByRefの引数の型が一致しません
End Sub

修正方法（4つのアプローチ）

' ========================================
' 修正方法1：呼び出し側の変数型をプロシージャの引数型に合わせる
' ========================================
Sub CallerFix1()

    Dim x As Integer   ' IntegerをLongに変えるのではなく、引数型に合わせる
    x = 100

    PrintNumber x   ' OK：型が一致している
End Sub

Sub PrintNumber(ByRef num As Integer)
    Debug.Print num
End Sub

' ========================================
' 修正方法2：プロシージャ側の引数型を呼び出し側の変数型に合わせる（推奨）
' VBAではIntegerよりLongのほうが処理が速いため、Longを使うほうが良い
' ========================================
Sub PrintNumberFixed(ByRef num As Long)   ' LongをIntegerに合わせるのではなくLongに統一
    Debug.Print num
End Sub

Sub CallerFix2()
    Dim x As Long
    x = 100
    PrintNumberFixed x   ' OK
End Sub

' ========================================
' 修正方法3：ByValに変更する（型変換が自動で行われる）
' プロシージャ内での変更を呼び出し元に返す必要がない場合
' ========================================
Sub PrintNumberByVal(ByVal num As Integer)   ' ByValにする
    Debug.Print num
End Sub

Sub CallerFix3()
    Dim x As Long
    x = 100
    PrintNumberByVal x   ' OK：ByValなのでLong→Integerの自動変換が行われる
End Sub

' ========================================
' 修正方法4：呼び出し時にCInt()などで明示的に型変換する
' （ByRefで渡したい場合、一時変数を作って型を合わせる）
' ========================================
Sub CallerFix4()

    Dim x       As Long
    Dim tempInt As Integer   ' 一時変数で型を合わせる

    x       = 100
    tempInt = CInt(x)

    PrintNumber tempInt   ' OK：Integer型変数をInteger型引数に渡す
    x = CLng(tempInt)    ' 必要なら変更結果をx に戻す

End Sub

Sub PrintNumber(ByRef num As Integer)
    num = num + 1
    Debug.Print num
End Sub

型統一の推奨方針：VBAではプロジェクト全体で数値型を Long に統一することが一般的なベストプラクティスです。Integer 型は16ビット（最大32,767）で範囲が狭く、64ビット環境では内部的に Long に変換されて処理されるため、Integer を使う積極的な理由はほとんどありません。

原因2：リテラル値・式・関数の戻り値を直接渡している

ByRef引数には変数のみを渡すことができます。リテラル値（100・"文字列"・True）、計算式（x + 1）、関数の戻り値（Len(str)）などを直接ByRef引数に渡そうとするとエラーになります。これはByRefが「変数のメモリアドレスを渡す」仕組みであるため、アドレスを持たないリテラルや式は渡せないためです。

エラーが起きるコード例

' 受け取り側
Sub AddTen(ByRef num As Long)
    num = num + 10
End Sub

' 呼び出し側
Sub CallerSub()

    AddTen 100          ' → コンパイルエラー（リテラル値はByRefに渡せない）
    AddTen 50 + 50      ' → コンパイルエラー（式の結果はByRefに渡せない）
    AddTen Len("Hello") ' → コンパイルエラー（関数の戻り値はByRefに渡せない）

End Sub

修正方法

' ========================================
' 修正方法1：一時変数に代入してから渡す（ByRefを維持したい場合）
' ========================================
Sub CallerFix()

    Dim temp As Long

    temp = 100
    AddTen temp
    Debug.Print temp   ' → 110（ByRefなので変更が反映される）

    temp = 50 + 50
    AddTen temp
    Debug.Print temp   ' → 110

    temp = Len("Hello")
    AddTen temp
    Debug.Print temp   ' → 15

End Sub

Sub AddTen(ByRef num As Long)
    num = num + 10
End Sub

' ========================================
' 修正方法2：ByValに変更する（変更を返す必要がない場合）
' ByValならリテラル・式・関数の戻り値を直接渡せる
' ========================================
Sub PrintDouble(ByVal num As Long)
    Debug.Print num * 2
End Sub

Sub CallerFixByVal()

    PrintDouble 100          ' OK：ByValならリテラルも渡せる
    PrintDouble 30 + 20      ' OK：式の結果も渡せる
    PrintDouble Len("Hello") ' OK：関数の戻り値も渡せる

End Sub

' ========================================
' 修正方法3：括弧で囲んでByValに強制する
' 括弧は「値のコピーを渡す」という意味になる
' ========================================
Sub CallerForceByVal()

    Dim x As Long
    x = 100

    ' 括弧なし：ByRefとして渡る（プロシージャ内での変更がxに反映される）
    AddTen x
    Debug.Print x   ' → 110

    ' 括弧あり：値のコピーが渡る（プロシージャ内での変更はxに反映されない）
    x = 100
    AddTen (x)      ' 括弧で囲むとByValと同じ動作になる
    Debug.Print x   ' → 100（変更されない）

End Sub

Sub AddTen(ByRef num As Long)
    num = num + 10
End Sub

括弧による強制ByValは便利ですが、コードの読み手には意図が伝わりにくい場合があります。明示的に ByVal を使うほうがコードの意図が明確です。

原因3：数値型のサブタイプの不一致（Integer・Long・Doubleなど）

VBAの数値型には Byte・Integer・Long・Single・Double・Currency・LongLong（64ビット環境のみ）があります。これらは別の型であり、ByRef渡しのときに型が違うとエラーになります。特に Integer と Long の混用が最も多いパターンです。

数値型の違いと起きやすいエラーパターン

' NG パターン一覧
Sub TypeMismatchPatterns()

    Dim intVal  As Integer   ' -32,768 ～ 32,767
    Dim lngVal  As Long      ' -2,147,483,648 ～ 2,147,483,647
    Dim sngVal  As Single    ' 単精度浮動小数点
    Dim dblVal  As Double    ' 倍精度浮動小数点
    Dim curVal  As Currency  ' 通貨型

    ' Integer変数をLong引数にByRefで渡す → エラー
    ProcessLong intVal   ' → コンパイルエラー

    ' Long変数をInteger引数にByRefで渡す → エラー
    ProcessInt lngVal    ' → コンパイルエラー

    ' Single変数をDouble引数にByRefで渡す → エラー
    ProcessDouble sngVal ' → コンパイルエラー

    ' Double変数をSingle引数にByRefで渡す → エラー
    ProcessSingle dblVal ' → コンパイルエラー

    ' Currency変数をDouble引数にByRefで渡す → エラー
    ProcessDouble curVal ' → コンパイルエラー

End Sub

Sub ProcessLong(ByRef n As Long)    : Debug.Print n : End Sub
Sub ProcessInt(ByRef n As Integer)  : Debug.Print n : End Sub
Sub ProcessDouble(ByRef n As Double) : Debug.Print n : End Sub
Sub ProcessSingle(ByRef n As Single) : Debug.Print n : End Sub

修正後のコード（プロジェクト全体でLongとDoubleに統一）

' ========================================
' 数値型の統一方針（推奨）
' ========================================
' 整数値  → Long に統一（Integerは使わない）
' 小数値  → Double に統一（Singleは使わない）
' 通貨・金額 → Currency または Double
' ※ ただし外部APIやOfficeのプロパティがInteger/Singleを返す場合は
'    ByValまたは一時変数で対処する

' 統一後のコード例
Sub ProcessData( _
    ByRef count  As Long, _    ' 整数はLongで統一
    ByRef amount As Double, _  ' 小数はDoubleで統一
    ByRef name   As String)    ' 文字列はString

    count  = count + 1
    amount = amount * 1.1
    name   = Trim(name)

End Sub

Sub CallerAfterUnification()

    Dim count  As Long    ' Long
    Dim amount As Double  ' Double
    Dim name   As String

    count  = 10
    amount = 1500.5
    name   = "  山田太郎  "

    ProcessData count, amount, name

    Debug.Print count   ' → 11
    Debug.Print amount  ' → 1650.55
    Debug.Print name    ' → "山田太郎"

End Sub

Officeオブジェクトのプロパティが返す型への対処

' ExcelのプロパティがIntegerを返す場合の安全な受け取り方
Sub HandleExcelIntegerProperties()

    ' ColumnプロパティはLongを返すが、古いコードではIntegerで受けているケースがある
    Dim col As Long   ' LongならOK（Integerにしない）
    col = ActiveCell.Column

    ' CountプロパティもLong
    Dim cnt As Long
    cnt = ActiveSheet.UsedRange.Rows.Count

    ' ColorIndexはLong
    Dim colorIdx As Long
    colorIdx = ActiveCell.Interior.ColorIndex

    ' ByRef引数に渡す前に型を確認して合わせる
    ProcessLongValue col
    ProcessLongValue cnt

End Sub

Sub ProcessLongValue(ByRef val As Long)
    Debug.Print "値: " & val
End Sub

原因4：オブジェクト型の不一致

オブジェクト型の引数でもByRef渡しでは型の厳密な一致が求められます。Worksheet 型変数を Object 型のByRef引数に渡す、または Object 型変数を Worksheet 型のByRef引数に渡すとエラーになります。

エラーが起きるコード例

' 受け取り側がObject型
Sub ProcessSheet(ByRef sh As Object)
    Debug.Print sh.Name
End Sub

' 受け取り側がWorksheet型
Sub ProcessWorksheet(ByRef ws As Worksheet)
    Debug.Print ws.Name
End Sub

Sub CallerSub()

    Dim ws  As Worksheet
    Dim obj As Object

    Set ws  = ThisWorkbook.Sheets(1)
    Set obj = ThisWorkbook.Sheets(1)

    ' Worksheet型変数をObject型ByRef引数に渡す → エラー
    ProcessSheet ws        ' → コンパイルエラー

    ' Object型変数をWorksheet型ByRef引数に渡す → エラー
    ProcessWorksheet obj   ' → コンパイルエラー

End Sub

修正方法

' ========================================
' 修正方法1：引数の型を呼び出し側の変数型に合わせる（最も推奨）
' ========================================

' 具体的な型（Worksheet）をByRefで受け取る場合は具体的な型で統一
Sub ProcessWorksheetTyped(ByRef ws As Worksheet)
    ws.Cells(1, 1).Value = "処理済"
    Debug.Print ws.Name
End Sub

Sub CallerFix1()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ProcessWorksheetTyped ws   ' OK：型が一致している
    Set ws = Nothing
End Sub

' ========================================
' 修正方法2：ByValに変更する（型が自動変換される）
' 変更を返す必要がないオブジェクト引数はByVal推奨
' ========================================

' ByValにすればWorksheet型をObject型引数に渡せる
Sub ProcessSheetByVal(ByVal sh As Object)
    Debug.Print TypeName(sh) & ": " & sh.Name
End Sub

Sub CallerFix2()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ProcessSheetByVal ws   ' OK：ByValなので自動変換
    Set ws = Nothing
End Sub

' ========================================
' 修正方法3：引数の型をVariantにする（最も柔軟・オーバーロード的な使い方）
' ========================================
Sub ProcessAnyObject(ByRef target As Variant)

    If TypeName(target) = "Worksheet" Then
        Dim ws As Worksheet
        Set ws = target
        ws.Cells(1, 1).Value = "Worksheetとして処理"

    ElseIf TypeName(target) = "Range" Then
        Dim rng As Range
        Set rng = target
        rng.Interior.Color = vbYellow

    Else
        Debug.Print "未対応の型: " & TypeName(target)
    End If

End Sub

Sub CallerFix3()
    Dim ws  As Worksheet
    Dim rng As Range

    Set ws  = ThisWorkbook.Sheets(1)
    Set rng = ws.Range("A1:A5")

    ProcessAnyObject ws    ' OK
    ProcessAnyObject rng   ' OK

    Set rng = Nothing
    Set ws  = Nothing
End Sub

原因5：配列引数の渡し方のミス

配列を引数として渡す場合、受け取り側の引数宣言に括弧 () が必要です。また、固定長配列と動的配列の宣言の違いでエラーが起きるケースもあります。

エラーが起きるコード例

' NG：配列を受け取る引数に括弧がない
Sub SumArray(ByRef arr As Long)   ' 括弧なし → 配列を渡すとエラー
    Dim i As Long
    Dim total As Long
    For i = LBound(arr) To UBound(arr)
        total = total + arr(i)
    Next i
    Debug.Print "合計: " & total
End Sub

Sub CallerSub()
    Dim nums(1 To 5) As Long
    nums(1) = 10 : nums(2) = 20 : nums(3) = 30
    nums(4) = 40 : nums(5) = 50

    SumArray nums   ' → コンパイルエラー（または実行時エラー）
End Sub

修正後のコード（配列引数の正しい宣言方法）

' ========================================
' 配列引数の正しい受け取り方
' ========================================

' 動的配列（推奨）：括弧内は空にする
Sub SumArrayFixed(ByRef arr() As Long)   ' ← 括弧()が必要
    Dim i     As Long
    Dim total As Long

    For i = LBound(arr) To UBound(arr)
        total = total + arr(i)
    Next i

    Debug.Print "合計: " & total
End Sub

' Variant型で配列を受け取る（最も汎用的）
Sub PrintArrayVariant(ByRef arr As Variant)

    If Not IsArray(arr) Then
        MsgBox "配列ではありません。", vbExclamation
        Exit Sub
    End If

    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        Debug.Print i & ": " & arr(i)
    Next i

End Sub

Sub CallerArrayFixed()

    ' 動的配列を使う（ReDimで後から大きさを決める）
    Dim nums() As Long
    ReDim nums(1 To 5)
    nums(1) = 10 : nums(2) = 20 : nums(3) = 30
    nums(4) = 40 : nums(5) = 50

    SumArrayFixed nums          ' OK：動的配列と動的配列引数が一致
    PrintArrayVariant nums      ' OK：Variantで受け取る

    ' 固定長配列を動的配列引数に渡す場合の注意
    Dim fixedNums(1 To 3) As Long
    fixedNums(1) = 1 : fixedNums(2) = 2 : fixedNums(3) = 3

    ' 固定長配列は動的配列引数（括弧あり）にByRefで渡せる
    SumArrayFixed fixedNums    ' OK

End Sub

' ========================================
' 配列を返す関数（Function）の実装パターン
' ========================================
Function CreateNumberArray(startVal As Long, endVal As Long) As Long()

    Dim result() As Long
    Dim size     As Long
    Dim i        As Long

    size = endVal - startVal + 1
    ReDim result(1 To size)

    For i = 1 To size
        result(i) = startVal + i - 1
    Next i

    CreateNumberArray = result

End Function

Sub UseArrayFunction()

    Dim nums() As Long
    nums = CreateNumberArray(1, 10)   ' 1〜10の配列を取得

    Dim i As Long
    For i = LBound(nums) To UBound(nums)
        Debug.Print nums(i)
    Next i

End Sub

原因6：省略可能引数（Optional）の型と渡し方

Optional キーワードを使った省略可能引数にも、ByRef/ByValの規則と型一致の規則が適用されます。Optional ByRef は実用上問題が生じやすいため、省略可能引数は原則 ByVal で定義するのがベストプラクティスです。

エラーが起きるコード例

' NG：Optional ByRefは省略時の動作が曖昧になる
Sub FormatCell( _
    ByRef  targetCell As Range, _
    Optional ByRef fontSize As Integer = 11)   ' Optional ByRefは問題になりやすい

    targetCell.Font.Size = fontSize
End Sub

Sub CallerSub()

    Dim rng As Range
    Dim sz  As Long   ' Longで宣言

    Set rng = ActiveSheet.Range("A1")
    sz = 14

    ' Long型変数をInteger型Optional ByRef引数に渡す → コンパイルエラー
    FormatCell rng, sz

End Sub

修正後のコード（Optional引数はByValで定義する）

' ========================================
' Optional引数の正しい設計パターン
' ========================================
Sub FormatCellFixed( _
    ByRef  targetCell  As Range, _
    ByVal  fontSize    As Long, _      ' 型をLongに統一
    ByVal  isBold      As Boolean, _   ' Boolean引数
    Optional ByVal fontColor As Long = 0, _    ' Optional ByVal（推奨）
    Optional ByVal bgColor   As Long = -1)     ' -1は「変更しない」の意味

    If targetCell Is Nothing Then Exit Sub

    With targetCell.Font
        .Size  = fontSize
        .Bold  = isBold
        If fontColor <> 0 Then .Color = fontColor
    End With

    If bgColor <> -1 Then
        targetCell.Interior.Color = bgColor
    End If

End Sub

Sub CallerFixOptional()

    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:C3")

    ' 必須引数のみ指定（Optional引数は省略可能）
    FormatCellFixed rng, 12, True

    ' Optional引数を指定する場合
    FormatCellFixed rng, 14, True, _
        fontColor:=RGB(0, 0, 128), _   ' 名前付き引数で渡す（順序に依存しない）
        bgColor:=RGB(240, 248, 255)

    Set rng = Nothing

End Sub

' ========================================
' IsMissingを使った省略確認パターン
' Optional ByVal As Variantを使うことでIsMissingが使える
' ========================================
Sub ProcessWithOptional( _
    ByVal  requiredArg As String, _
    Optional ByVal optArg As Variant)   ' VariantにするとIsMissingが使える

    Debug.Print "必須引数: " & requiredArg

    If IsMissing(optArg) Then
        Debug.Print "省略可能引数は省略されました"
    Else
        Debug.Print "省略可能引数: " & optArg
    End If

End Sub

Sub CallerMissing()
    ProcessWithOptional "テスト"              ' optArgを省略
    ProcessWithOptional "テスト", "追加データ" ' optArgを指定
    ProcessWithOptional "テスト", 42           ' 数値でも渡せる
End Sub

Variant型を使った柔軟な引数設計

複数の型を受け取る可能性がある引数や、型チェックを自分でコントロールしたい場合は、引数を Variant 型で受け取ると柔軟に対処できます。ByRefのVariant引数はどの型の変数でも受け取れるため、ByRefエラーが発生しません。

' ========================================
' Variant引数を使った汎用プロシージャのパターン
' ========================================

' 数値・文字列・日付など複数の型を安全に処理する
Sub WriteToCell( _
    ByRef  targetCell As Range, _
    ByVal  value      As Variant, _   ' どんな型でも受け取れる
    Optional ByVal format As String = "")

    If targetCell Is Nothing Then Exit Sub
    If IsError(value) Or IsNull(value) Then Exit Sub

    targetCell.Value = value

    If Len(format) > 0 Then
        targetCell.NumberFormat = format
    End If

End Sub

Sub UseWriteToCell()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    WriteToCell ws.Range("A1"), "テキスト"
    WriteToCell ws.Range("A2"), 12345,         "#,##0"
    WriteToCell ws.Range("A3"), 0.085,         "0.0%"
    WriteToCell ws.Range("A4"), Date,          "yyyy/mm/dd"
    WriteToCell ws.Range("A5"), Now(),         "yyyy/mm/dd HH:mm:ss"
    WriteToCell ws.Range("A6"), True

    Set ws = Nothing

End Sub

' ========================================
' 型を動的に判定して処理を分岐する
' ========================================
Function ConvertToString(ByVal val As Variant) As String

    If IsNull(val) Or IsEmpty(val) Then
        ConvertToString = ""
        Exit Function
    End If

    If IsError(val) Then
        ConvertToString = "エラー値"
        Exit Function
    End If

    Select Case VarType(val)
        Case vbDate
            ConvertToString = Format(val, "yyyy/mm/dd")
        Case vbBoolean
            ConvertToString = IIf(val, "はい", "いいえ")
        Case vbDouble, vbSingle, vbCurrency
            ConvertToString = Format(val, "#,##0.##")
        Case vbLong, vbInteger, vbByte
            ConvertToString = Format(val, "#,##0")
        Case Else
            ConvertToString = CStr(val)
    End Select

End Function

Sub TestConvert()
    Debug.Print ConvertToString(Now())         ' → "2024/06/01"
    Debug.Print ConvertToString(True)          ' → "はい"
    Debug.Print ConvertToString(1234567.89)    ' → "1,234,567.89"
    Debug.Print ConvertToString(42)            ' → "42"
    Debug.Print ConvertToString("テスト")      ' → "テスト"
    Debug.Print ConvertToString(Empty)         ' → ""
End Sub

引数設計のベストプラクティス

ByRefエラーを根本から防ぐためのプロシージャ引数設計の原則をまとめます。これらのルールをプロジェクト全体で守ることで、引数に関するトラブルを大幅に減らせます。

原則1：ByRef・ByValを必ず明示する

' NG：ByRef/ByValを省略している（デフォルトはByRef）
Sub ImplicitByRef(num As Long, name As String)   ' 省略はByRef
    num  = num + 1
    name = Trim(name)
End Sub

' OK：意図を明示する
Sub ExplicitArgs( _
    ByRef num  As Long, _     ' 変更を返すのでByRef
    ByVal name As String)     ' 変更を返さないのでByVal
    num  = num + 1
    name = Trim(name)   ' この変更は呼び出し元に反映されない（意図どおり）
End Sub

原則2：変更を返す必要がない引数はByVal

' 読み取り専用の引数は全てByVal
Function CalcTax( _
    ByVal price    As Double, _   ' 読み取りのみ
    ByVal taxRate  As Double, _   ' 読み取りのみ
    ByVal quantity As Long) As Double   ' 読み取りのみ

    CalcTax = price * taxRate * quantity

End Function

原則3：整数型はLong、小数型はDoubleに統一

' プロジェクト全体での型統一ルール
' Integer → Long（速度・互換性・ByRef互換性の面でLongが優れる）
' Single  → Double（精度・ByRef互換性の面でDoubleが優れる）

' 統一後のプロシージャ定義
Sub ProcessSalesData( _
    ByRef  totalAmount  As Double, _   ' 金額はDouble
    ByRef  itemCount    As Long, _     ' 個数はLong
    ByVal  productName  As String, _   ' 商品名はString（読み取り）
    ByVal  unitPrice    As Double, _   ' 単価はDouble（読み取り）
    ByVal  qty          As Long)       ' 数量はLong（読み取り）

    totalAmount = totalAmount + (unitPrice * qty)
    itemCount   = itemCount + qty

End Sub

原則4：複数の値を返すときはByRef出力引数を使う

' 複数の値を返したい場合のByRef出力引数パターン
Sub ParseFullName( _
    ByVal  fullName  As String, _   ' 入力（読み取りのみ）
    ByRef  lastName  As String, _   ' 出力（苗字）
    ByRef  firstName As String)     ' 出力（名前）

    Dim parts() As String
    parts = Split(fullName, " ")

    If UBound(parts) >= 1 Then
        lastName  = parts(0)
        firstName = parts(1)
    Else
        lastName  = fullName
        firstName = ""
    End If

End Sub

Sub UseParseFullName()

    Dim last  As String
    Dim first As String

    ParseFullName "山田 太郎", last, first
    Debug.Print "苗字: " & last    ' → "山田"
    Debug.Print "名前: " & first   ' → "太郎"

End Sub

原則5：引数が多い場合はUDT（ユーザー定義型）またはクラスを使う

' 引数が5個以上になる場合はUDT（Type）にまとめると管理しやすい
Type SalesRecord
    ProductName  As String
    UnitPrice    As Double
    Quantity     As Long
    Discount     As Double
    TaxRate      As Double
End Type

Sub ProcessSalesRecord(ByRef rec As SalesRecord)

    Dim subtotal  As Double
    Dim discounted As Double
    Dim tax       As Double

    subtotal   = rec.UnitPrice * rec.Quantity
    discounted = subtotal * (1 - rec.Discount)
    tax        = discounted * rec.TaxRate

    Debug.Print rec.ProductName & ": " & Format(discounted + tax, "#,##0.##")

End Sub

Sub UseSalesRecord()

    Dim rec As SalesRecord
    rec.ProductName = "商品A"
    rec.UnitPrice   = 1500
    rec.Quantity    = 10
    rec.Discount    = 0.1     ' 10%引き
    rec.TaxRate     = 0.1     ' 消費税10%

    ProcessSalesRecord rec

End Sub

デバッグ手順：型の不一致を素早く特定する

ステップ1：エラーが起きているプロシージャ呼び出し行を確認する

コンパイルエラーが発生すると、問題のある引数がハイライトされます。どの引数がハイライトされているかを確認し、その引数の型と、受け取り側のプロシージャが期待する型を照合します。

ステップ2：呼び出し側と受け取り側の型を並べて比較する

' デバッグ用：引数の型を確認するためのコード
Sub DebugArgumentTypes()

    ' 問題のある変数の型をイミディエイトウィンドウで確認
    Dim x  As Long
    Dim y  As Integer
    Dim d  As Double

    x = 100
    y = 200
    d = 3.14

    ' TypeNameで型を確認
    Debug.Print "x の型: " & TypeName(x)   ' → Long
    Debug.Print "y の型: " & TypeName(y)   ' → Integer
    Debug.Print "d の型: " & TypeName(d)   ' → Double

    ' VarTypeで型番号を確認
    Debug.Print "x のVarType: " & VarType(x)   ' → 3 (vbLong)
    Debug.Print "y のVarType: " & VarType(y)   ' → 2 (vbInteger)
    Debug.Print "d のVarType: " & VarType(d)   ' → 5 (vbDouble)

End Sub

ステップ3：受け取り側プロシージャのシグネチャを確認する

問題のあるプロシージャ名にカーソルを置き、F12キー（または右クリック→「定義へ移動」）を押すと、そのプロシージャの定義箇所にジャンプします。引数の型宣言を直接確認してください。

ステップ4：VarType定数の早見表

vbEmpty（0）：Empty
vbNull（1）：Null
vbInteger（2）：Integer（-32,768〜32,767）
vbLong（3）：Long（-2,147,483,648〜2,147,483,647）
vbSingle（4）：Single（単精度浮動小数点）
vbDouble（5）：Double（倍精度浮動小数点）
vbCurrency（6）：Currency
vbDate（7）：Date
vbString（8）：String
vbObject（9）：Object
vbBoolean（11）：Boolean
vbVariant（12）：Variant
vbByte（17）：Byte（0〜255）
vbLongLong（20）：LongLong（64ビット環境のみ）

ByRefエラー原因チェックリスト

「ByRefの引数の型が一致しません」エラーが発生したとき、以下のリストを上から順番に確認してください。

呼び出し側の変数型と受け取り側の引数型が完全に一致しているか（TypeNameで両方を確認する）
特に Integer と Long・Single と Double を混用していないか
ByRef引数にリテラル値・計算式・関数の戻り値を直接渡していないか（変数に代入してから渡す）
変更を呼び出し元に返す必要がない引数に ByRef を使っていないか（ByValに変更する）
オブジェクト引数で Worksheet型とObject型、Range型とVariant型 を混在させていないか
配列を引数に渡すとき、受け取り側の宣言に 括弧 () が付いているか
Optional引数を ByVal で定義しているか（Optional ByRefは問題が起きやすい）
プロジェクト全体で整数型を Long に統一しているか（Integer は極力使わない）
ByRef/ByVal を 省略せず明示的に書いているか（省略するとByRefになる）
括弧で囲んで渡している場合（CallSub (x)）、意図せずByValになっていないか
引数の数が多い場合、UDT（Type）またはクラスにまとめることを検討したか

まとめ

「ByRefの引数の型が一致しません」エラーは、ByRef渡しのときに型の厳密な一致が要求されるというVBAの仕様から発生します。ByValに変更するだけで解消するケースが多いですが、それよりもプロジェクト全体で型を統一して設計することが根本的な予防策です。本記事の要点をまとめると次のとおりです。

ByRef vs ByVal の本質：ByRefはメモリアドレスを渡すため型の厳密な一致が必要。ByValは値のコピーを渡すため自動型変換が行われる
型の統一：整数型は Long、小数型は Double にプロジェクト全体で統一することでByRef型不一致エラーを大幅に減らせる
リテラル・式の直接渡し：ByRef引数には変数しか渡せない。リテラルや式は一時変数に入れてから渡す。または引数をByValに変更する
オブジェクト型：WorksheetとObject、RangeとVariantなどの混在に注意。変更を返す必要がないオブジェクト引数はByValにする
配列引数：受け取り側の引数宣言には必ず括弧 () を付ける。動的配列同士で渡すのが最も安全
Optional引数：省略可能引数は Optional ByVal で定義する。型をVariantにすると IsMissing() による省略判定も使える
設計の改善：ByRef/ByValを必ず明示し、変更を返す引数はByRef、読み取りのみの引数はByValと意図を明確にする。引数が多いときはUDTやクラスに整理する

エラーが出たときの即効薬は「ByRefをByValに変える」「型を合わせる」の2つです。しかし長期的には、本記事で紹介した引数設計の原則をプロジェクト全体で実践することで、ByRef関連のエラーをほぼゼロにすることができます。

目次

「ByRefの引数の型が一致しません」とは何か

ByRefとByValの違いを正しく理解する

ByRef（参照渡し）：VBAのデフォルト

ByVal（値渡し）：コピーを渡す

ByRefとByValの使い分け基準

原因1：呼び出し側の変数型と受け取り側の引数型が異なる

エラーが起きるコード例

修正方法（4つのアプローチ）

原因2：リテラル値・式・関数の戻り値を直接渡している

エラーが起きるコード例

修正方法

原因3：数値型のサブタイプの不一致（Integer・Long・Doubleなど）

数値型の違いと起きやすいエラーパターン

修正後のコード（プロジェクト全体でLongとDoubleに統一）

Officeオブジェクトのプロパティが返す型への対処

原因4：オブジェクト型の不一致

エラーが起きるコード例

修正方法

原因5：配列引数の渡し方のミス

エラーが起きるコード例

修正後のコード（配列引数の正しい宣言方法）

原因6：省略可能引数（Optional）の型と渡し方

エラーが起きるコード例

修正後のコード（Optional引数はByValで定義する）

Variant型を使った柔軟な引数設計

引数設計のベストプラクティス

原則1：ByRef・ByValを必ず明示する

原則2：変更を返す必要がない引数はByVal

原則3：整数型はLong、小数型はDoubleに統一

原則4：複数の値を返すときはByRef出力引数を使う

原則5：引数が多い場合はUDT（ユーザー定義型）またはクラスを使う

デバッグ手順：型の不一致を素早く特定する

ステップ1：エラーが起きているプロシージャ呼び出し行を確認する

ステップ2：呼び出し側と受け取り側の型を並べて比較する

ステップ3：受け取り側プロシージャのシグネチャを確認する

ステップ4：VarType定数の早見表

ByRefエラー 原因チェックリスト

まとめ

ByRefエラー原因チェックリスト