VBAでByVal(値渡し)とByRef(参照渡し)の違いを理解しよう｜Callステートメントの使い方を徹底解説

VBAを使っていると、コードが複雑になってよく分からなくなる。。。
そんな悩みありませんか？

お悩みポイント

• 複数の処理をまとめて呼び出す方法がわからない…
• 関数に渡したデータをそのまま使いたい、でもどうすればいい？
• 関数にデータを渡した後、そのデータを呼び出し元にも反映させたい！

VBAでプログラムを書く際、最初は簡単な1つの処理を組み立てることから始めます。
しかし、プログラムが大きくなると、処理を分けたり、複数のプロシージャを使って再利用できるようにしたりすることが重要です。

ここで「Callステートメント」を使うことで、複数のプロシージャ（処理のかたまり）をうまく呼び出し、VBAコードをすっきり整理できます。

この記事では、初心者の方でも理解しやすいように「Callステートメント」を使ったプロシージャの呼び出し方法、そして「ByVal」と「ByRef」の使い方を詳しく解説していきます。

最後まで読んでいただければ、VBAのコードがよりシンプルに、柔軟に書けるようになります。

【　この記事の概要　】

この記事を読むとできること

複数の処理をまとめる「Callステートメント」とは？

「Callステートメント」は、簡単に言うと、他のプロシージャ（処理のまとまり）を呼び出して実行するためのコマンドです。

例えば、同じ処理を何度も書く代わりに、1つのプロシージャにまとめておいて、必要な時にそのプロシージャを「Call」することで処理を行うことができます。
また、プロシージャを分けて書くことで、コードの変更やデバッグを簡単に行うこともできます。

callを使わないと管理が大変。。。

callを使うと管理が容易

Callステートメントの基本的な使い方

例として、2つのプロシージャを使って、1つ目のプロシージャで「こんにちは」と表示し、2つ目のプロシージャで「さようなら」と表示する例を考えてみましょう。

Sub MainProcedure()
    Call Greet '// Greetプロシージャを呼び出し
    Call Farewell '// Farewellプロシージャを呼び出し
End Sub
Sub Greet()
    MsgBox "こんにちは"
End Sub
Sub Farewell()
    MsgBox "さようなら"
End Sub

処理結果

どのように動作したのか？

このように、「Callステートメント」を使うことで、他のプロシージャを実行することができます。

これにより、処理を分けて整理し、コードを簡潔に保つことができます。

ByVal (値渡し)とByRef (参照渡し)の違いって？

VBAでは、プロシージャにデータを渡す際に「ByVal (値渡し)」または「ByRef (参照渡し)」という方法を使います。

この2つの方法は、渡したデータの扱い方に違いがあります。

ByVal (値渡し)とは？

ByValは「値渡し」です。
データをコピーしてプロシージャに渡します。
元のデータはそのままで、呼び出し元には影響を与えません。

コード例：

Sub MainProcedure()
    Dim num As Long
    num = 5
    Call ChangeValueByVal(num)
    MsgBox "呼び出し元の値: " & num
End Sub


Sub ChangeValueByVal(ByVal num As Long)
    num = num + 10
    MsgBox "内部の値（ByVal）: " & num
End Sub

処理結果

解説

このように、「ByVal (値渡し)」を使用すると、呼び出し先(ChangeValueByVal)で、変数「num」を変更しても、呼び出し元(MainProcedure)に戻ってきた際に、変数「num」の値は変化しません。

ByRef (参照渡し)とは？

ByRefは「参照渡し」です。
データそのものを渡します。
プロシージャ内でデータが変更されると、呼び出し元のデータも変更されます。

コード例：

Sub MainProcedure()
    Dim num As Long
    num = 5
    Call ChangeValueByRef(num)
    MsgBox "呼び出し元の値: " & num
End Sub


Sub ChangeValueByRef(ByRef num As Long)
    num = num + 10
    MsgBox "内部の値（ByRef）: " & num
End Sub

処理結果

解説

このように、「ByRef (参照渡し)」を使用すると、呼び出し先(ChangeValueByRef)で、変数「num」を変更すると、呼び出し元(MainProcedure)に戻ってきた際に、変数「num」の値が変化します。

ByVal (値渡し)とByRef (参照渡し)を指定しなかった場合

「ByVal (値渡し)」や「ByRef (参照渡し)」について解説しました。

この「ByVal (値渡し)」や「ByRef (参照渡し)」は、記述しなくても問題なく動作します。
その場合は「何も指定しない場合、デフォルトで「ByRef (参照渡し)」になる」ということを覚えておきましょう。

しかし、常に「ByRef (参照渡し)」にするべきではありません。
理由として、予期しない変更が発生する可能性があるためです。

たとえば、別のプロシージャで変数の値を意図せず変更してしまうと、後続の処理に悪影響を与えることがあるためです。

意図的に値を変更したくない場合は、「ByVal (値渡し)」を明示的に指定するようにしましょう。

ByVal (値渡し)・ByRef (参照渡し)を使用する際の注意ポイント

Callステートメントを使う際のByVal (値渡し) とByRef (参照渡し) の注意ポイントを解説します。

「ByVal (値渡し)」と「ByRef (参照渡し)」の使い分け

呼び出し元の値を保持したい場合は、「ByVal (値渡し)」を使いましょう。
逆に、値を変更し呼び出し元にも反映させたい場合は「ByRef (参照渡し)」を使います。

しかし、すべてを「ByRef (参照渡し)」にすると予期しない変更が発生することがあるので注意が必要です。
「ByRef (参照渡し)」は慎重に使用しましょう。

デフォルトは「ByRef (参照渡し)」

明示的に指定しない場合は、デフォルトで「ByRef (参照渡し)」になります。
意図しない変更を避けるため、変更を加えたくない場合は「ByVal (値渡し)」を指定する習慣をつけましょう。

ByVal (値渡し)・ByRef (参照渡し)の使用例をご紹介

ここからは、「動的配列」の使用例を紹介します。
どれも実際に動作するコードなので、ぜひ実行してみてください。

使用例1: 表の削除と後続処理　…　ByVal (値渡し)

指定された範囲の表を削除し、その後の処理を実行する方法を紹介します。
この例では、CurrentRegionを使って範囲を指定し、ByVal (値渡し)を用いて削除処理を行います。

主な使用用途
表全体を一時的に操作し、その後の処理に影響を与えないようにする場合に便利です。

Sub MainProcedure()
    Dim targetRange As Range
    Set targetRange = Sheet1.Range("A1").CurrentRegion
    
    '// ByValを使って表を削除
    Call DeleteTable(ByVal targetRange)
    
    '// 他の処理を続ける
    MsgBox "表が削除されました。"
End Sub


Sub DeleteTable(ByVal rng As Range)
    rng.ClearContents
    MsgBox "指定された範囲の内容が削除されました。"
End Sub

処理結果

このコードで使用している機能

• Dim (オブジェクト変数)
• CurrentRegion (セル範囲を自動選択)
• ClearContents (クリア)
• MsgBox (メッセージボックス)

1行ずつ解説

ByValを使うことで、削除操作が呼び出し元に影響を与えないように処理されます。
削除後にメッセージボックスを表示して、処理が正常に完了したことをユーザーに知らせることで、簡単で効果的なフィードバックが得られます。

また、DeleteTableサブルーチンでは、指定された範囲内のセルの内容をクリアし、もう一度メッセージボックスで操作の結果を通知しています。
このサブルーチンは、簡潔で効果的なコードの構造を示しており、特定の処理を別のサブルーチンに分けることで、コードの可読性と再利用性が向上します。

使用例2: 配列を条件分岐する　…　ByRef (参照渡し)

配列を別のサブルーチンに渡し、その内容を条件分岐で処理して結果を返す方法を紹介します。
この例では、ByRef (参照渡し) を使用して配列を直接操作し、その結果を呼び出し元に反映させます。

主な使用用途
ByRef (参照渡し) を使用して、配列の内容をサブルーチン内で変更し、その結果を呼び出し元に反映させたい場合に便利です。
たとえば、配列内のデータを条件に基づいて加工し、その変更を後続の処理に利用したい場合に、この方法が有効です。

Sub MainProcedure_使用例2()
    Dim numArray() As Variant
    numArray = Array(1, 2, 3, 4, 5)
    
    '// ByRefを使って配列を処理
    Call ProcessArray(numArray)
    
    '// 処理後の結果を表示
    MsgBox "配列の処理が完了しました: " & Join(numArray, ", ")
End Sub


Sub ProcessArray(ByRef arr() As Variant)
    Dim i As Long
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) Mod 2 = 0 Then
            arr(i) = arr(i) * 2 '// 偶数なら2倍にする
        Else
            arr(i) = arr(i) + 5 '// 奇数なら5を加える
        End If
    Next i
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• Array関数 (配列とは？)
• For (繰り返し)
• If (条件分岐)
• MsgBox (メッセージボックス)

1行ずつ解説

ByRefを使用することで、配列そのものがサブルーチンに渡され、処理結果が呼び出し元にも反映される仕組みを理解できました。
これにより、配列の内容をサブルーチン内で自由に操作し、その変更を次の処理に活かすことが可能になります。

SubプロシージャとFunctionプロシージャの使い分け

Callステートメントを使う際、もう1つ重要なのが「Sub」と「Function」の使い分けです。

プロシージャには、「Subプロシージャ」と「Functionプロシージャ」の2種類があり、それぞれ用途が異なります。
これらは使い方が異なるため、使い分けが重要です。

「Sub」は処理を行うだけで結果を返しませんが、「Function」は結果を返します。
そのため、計算結果や処理結果を返す必要がある場合は、「Function」を使う方が適しています。

Subプロシージャを使うべき場合

Sub を使うべき場合

• 処理を行うだけで、結果を返す必要がない場合。
• 例えば「セルの値を変更」「メッセージを表示」したりする場合に使います。

引用元：VBAのFunctionプロシージャの使い方｜結果を返す処理の基本と応用

Functionプロシージャを使うべき場合

Function を使うべき場合

• 計算や条件分岐によって結果を返す必要がある場合。
• 複数のプロシージャで同じ計算ロジックを使いたい場合。

引用元：VBAのFunctionプロシージャの使い方｜結果を返す処理の基本と応用

「Functionプロシージャ」を使用すると、結果を返すことができます。
結果が必要な場合は「Function プロシージャ」、処理を行うだけであれば「Sub プロシージャ」を使うようにしましょう。

「Functionプロシージャ」については、別記事で解説を行っています。
合わせてご覧ください。

VBA Functionプロシージャ入門｜結果を返してコードをシンプルに

VBAのFunctionプロシージャを使って、処理結果を返し、再利用性と効率を高めましょう。

zangyo-free.com

2024.08.28

まとめ

Callステートメントを使うことで、VBAのコードを整理してシンプルに書くことができました。

また、ByVal (値渡し)とByRef (参照渡し)を使い分けることで、データの渡し方に柔軟性を持たせることができます。

ポイントのおさらい

このように、CallステートメントやByVal (値渡し)とByRef (参照渡し)の使い分けを理解することで、複数の処理を効率よく整理し、プログラム全体を柔軟かつ効率的に作成できます。