VBAで「Workbook / Worksheet / Range」などのオブジェクトを引数に渡すベストプラクティス
Excel VBAでは、プロシージャにオブジェクトを渡すことで柔軟な処理が可能になります。ただし、参照の扱い方や安全性に注意しないと、意図しないシートやブックを操作してしまうことがあります。以下に整理しました。
基本ルール
- オブジェクトは参照渡し（ByRef）が基本
VBAのオブジェクトは「参照型」なので、引数に渡すときはコピーではなく参照が渡されます。
→ プロシージャ内で変更すると呼び出し元にも影響します。 - ByValを付けても参照自体のコピー
ByValを付けても「参照のコピー」が渡されるだけで、オブジェクトそのものは共有されます。
→ プロパティやセル値を変えると元のオブジェクトも変わる。 - 型を明示する
As Workbook/As Worksheet/As Rangeのように型を指定すると、意図しない型が渡されるのを防げます。
例題1：Rangeを渡す
Sub TestRange()
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1:A10")
HighlightRange rng
End Sub
Sub HighlightRange(ByVal target As Range)
target.Interior.Color = vbYellow
End Sub
rngを渡すと、その範囲が黄色に塗られる。- ByValでもByRefでも結果は同じ（参照先のセルが変わる）。
例題2：Workbookを渡す
Sub TestWorkbook()
Dim wb As Workbook
Set wb = Workbooks("Book2.xlsx")
SaveWorkbook wb
End Sub
Sub SaveWorkbook(ByVal wb As Workbook)
wb.Save
End Sub
wbを渡して保存処理をまとめる。- 型を
Workbookにしておくと、間違ってRangeを渡すなどのエラーを防げる。
例題3：Worksheetを渡す
Sub TestWorksheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
ClearSheet ws
End Sub
Sub ClearSheet(ByVal ws As Worksheet)
ws.Cells.ClearContents
End Sub
wsを渡してシート全体をクリア。Worksheet型を指定しているので、他の型は渡せない。
注意点とベストプラクティス
- 型を必ず指定する
As ObjectではなくAs Range/As Worksheet/As Workbookを使う。
→ 型安全性が高まり、IntelliSenseも効く。 - Optionalで省略可能にする場合はVariantにする
Optional ws As Worksheetは不可。省略可能にしたいならOptional ws As Variantにして、Is Nothingで判定。 - Nothingチェックを必ず行う
渡されたオブジェクトが存在しない場合に備えて、
If ws Is Nothing Then Exit Sub
- 参照の寿命に注意
閉じたWorkbookや削除したWorksheetを渡すとエラーになる。
→ 呼び出し前に存在確認をする。 - ByVal/ByRefの誤解に注意
- 値型（Integer, Stringなど）はByValでコピーされる
- オブジェクト型はByValでも「参照のコピー」なので、結局同じオブジェクトを操作する
✅ まとめ
- オブジェクトは参照渡しが基本（ByValでも実質参照）
- 型を明示することで安全性と可読性を高める
- Nothingチェックを必ず入れる
- Optionalにしたい場合はVariantで受ける
👉 実際の用途に合わせて「Rangeを渡すか、Worksheetを渡すか」を決めるのがポイントです。
例えば「セル操作をしたい」ならRange、「シート全体を対象にしたい」ならWorksheet、「ファイル単位の処理」ならWorkbookを渡すのがベストです。
