迷宮からの脱出：なぜあなたのVBAは「Withの多重構造」で沈没するのか
現場で長年コードをレビューしていて、一つ確信していることがある。「ネストされたWithステートメントの深さは、そのコードの腐敗度と比例する」ということだ。
多くの初学者は、`With` を「コードを短く書くための魔法」と勘違いしている。だが、実務で複雑な業務自動化ツールを設計する者にとって、それは「可読性という名の人質」を取る行為に他ならない。
今日は、オブジェクトのライフサイクルとメモリ効率を意識した、プロフェッショナルな設計思想を叩き込む。
—
1. なぜ「Withのネスト」は悪なのか
直感的にコードを書いていると、ついやってしまうのがこれだ。
‘ 【アンチパターン】可読性が死んでいる例
With Workbooks(“Data.xlsx”).Worksheets(“Sheet1”)
With .Range(“A1”)
.Value = “ID”
With .Font
.Bold = True
.Color = vbRed
End With
End With
End With
このコードの何が危険か？
1. コンテキストの消失: 3層目の `With` に入った瞬間、開発者は「今、どのオブジェクトを操作しているのか」というメンタルマップを失う。
2. デバッグの困難さ: 途中で `If` 文やループが混ざった瞬間、`End With` がどこに対応しているか追うだけで時間を浪費する。
3. オブジェクト参照の隠蔽: VBAはオブジェクトへの参照を内部的に保持する。多重ネストは、意図しないオブジェクト参照の滞留（メモリリークの温床）を招く。
—
2. 極限の設計：オブジェクトの「抽出」という考え方
プロフェッショナルなコードにおいて、`With` は「単一のコンテキスト」に限定して使うべきだ。階層構造が深い場合は、オブジェクト変数に「名前」をつけて切り出すのが鉄則である。
オブジェクトに名前を与えることは、コードに「意味」を与えることと同義だ。
推奨されるリファクタリング例
Public Sub FormatHeader()
‘ オブジェクトを明示的に定義する
Dim targetSheet As Worksheet
Dim headerRange As Range
‘ 参照の解決を明確に行う
Set targetSheet = Workbooks(“Data.xlsx”).Worksheets(“Sheet1”)
Set headerRange = targetSheet.Range(“A1”)
‘ 目的を絞った操作
headerRange.Value = “ID”
‘ 属性操作のみにWithを使用（ネストさせない）
With headerRange.Font
.Bold = True
.Color = vbRed
End With
End Sub
この書き方であれば、`targetSheet` がどのブックを参照しているのか、`headerRange` はどこを指しているのかが一目でわかる。さらに、このオブジェクト変数を別のプロシージャへ引数として渡すことも可能になる。これが「疎結合」な設計の第一歩だ。
—
3. 堅牢な自動化ツールを作るための3つの規律
実務でバグを起こさないために、以下の規律を徹底してほしい。
① オブジェクトの明示的な解放（クリーンアップ）
VBAはガベージコレクションが優秀とは言えない。特にExcelと外部アプリ（OutlookやWordなど）を連携させる場合、参照を放置すると「プロセスが残る」という致命的なバグを生む。
‘ 処理終了時には確実にNothingを代入
Set headerRange = Nothing
Set targetSheet = Nothing
② 階層を深くするなら「関数（Function）」へ切り出せ
もし `With` を3階層以上使いたくなったとしたら、それは「そのプロシージャが複数の責務を負いすぎている」というサインだ。
処理を細分化し、それぞれの責任を関数に委譲せよ。
③ Error Handlingと結びつける
オブジェクト参照を切り出しておけば、エラーハンドリング時のデバッグが劇的に楽になる。
Public Sub SafeOperation()
On Error GoTo Cleanup
Dim wb As Workbook
Set wb = Workbooks.Open(“C:\Data.xlsx”)
‘ 処理…
Cleanup:
If Not wb Is Nothing Then wb.Close SaveChanges:=False
Set wb = Nothing
End Sub
—
結論：コードは「読み手」のためにある
あなたが書いたコードは、半年後のあなた自身、あるいは後任の担当者が読むものだ。
「短く書くこと」よりも、「誰が読んでも迷わないこと」の方が、業務自動化の現場では圧倒的に価値が高い。
`With` のネストを捨て、オブジェクトを正しく変数へ格納せよ。
それだけで、あなたの書くコードは「動くもの」から「運用に耐えうる資産」へと進化するはずだ。
次は、あなたのコードで「名前のないオブジェクト」を撲滅することから始めてほしい。それが、伝説のアーキテクトへの第一歩だ。
