Excel VBAを掌握する極限の知見：クラスモジュールとPropertyプロシージャによる「鉄壁のカプセル化」
業務自動化の現場において、Excel VBAはもはや単なる「マクロ記録の延長」ではない。数万行規模の大規模な業務システムを構築する際、最も恐ろしいのは「どこでデータが書き換わったのか分からない」というスパゲッティコードの呪縛だ。
Public変数を野放しにし、シートのセルとVBAの変数を無秩序にバインドしているような設計では、仕様変更のたびにデバッグ地獄が訪れる。
今回は、クラスモジュールを用いたPrivate変数の保護と、Propertyプロシージャ（Get/Let/Set）によるカプセル化の極意を伝授する。実務で即座に使える堅牢な設計思想を叩き込んでほしい。
—
1. なぜ「Public変数」の直叩きは悪なのか？
VBA初学者や、場当たり的なコードを書くプログラマは、標準モジュールやクラスモジュール内で平然と `Public` 変数を使う。
‘ 【悪しき例】すべてが丸見えの脆弱な設計
Public 顧客ID As String
Public 請求金額 As Currency
このアプローチがなぜ地獄を生むのか。理由は明確だ。
1. 値の正当性検証（バリデーション）ができない：マイナスの請求金額や、空の顧客IDが代入されても、エラーに気づくのはデータベース登録時や印刷時、すなわち「手遅れのタイミング」になる。
2. 変更の追跡（トレーサビリティ）が不可能：どのプロシージャからこの値が書き換えられたのか、VBAの標準機能ではブレークポイントを張る以外のデバッグ手段がない。
プロフェッショナルな開発における鉄則は、「内部状態は隠蔽し、アクセスは厳格にコントロールされた窓口（インターフェース）経由でのみ行う」ことだ。これがカプセル化の本質である。
—
2. Propertyプロシージャの正しい役割（Get / Let / Set）
VBAのクラスモジュールでは、変数を `Private` にし、外部からの読み書きを以下の3つのプロシージャで制御する。
- `Property Get`：外部から値「を」取得する（Read）
- `Property Let`：外部からスカラー値（Long, String, Date等）「を」代入する（Write）
- `Property Set`：外部からオブジェクト参照（Range, Worksheet, 自作クラス等）「を」代入する（Reference）
この「Let」と「Set」の使い分けを曖昧にしているエンジニアが多いが、VBAのメモリ管理と型安全性を担保する上で極めて重要な境界線である。オブジェクトの代入に `Let` を使おうとすると、VBAは容赦なくコンパイルエラーを吐く。この厳格さを味方につけなければならない。
—
3. 【プロダクションコード】堅牢な顧客データ管理クラス
百聞は一見に如かず。実務のデータベース連携やファイル出力の前段階で、不正なデータを完全に弾き、「絶対にバグらない」状態を作り出すクラスモジュールの実装例を示す。
クラスモジュール名：`clsCustomer`
Option Explicit
‘ ==========================================
‘ 内部変数（Private宣言により外部から直接触らせない）
‘ ==========================================
Private m_CustomerID As String
Private m_CustomerName As String
Private m_CreditLimit As Currency
Private m_TargetSheet As Worksheet ‘ オブジェクト型の内部保持
‘ ==========================================
‘ Property Get: 値の読み取り
‘ ==========================================
Public Property Get CustomerID() As String
CustomerID = m_CustomerID
End Property
Public Property Get CustomerName() As String
CustomerName = m_CustomerName
End Property
Public Property Get CreditLimit() As Currency
CreditLimit = m_CreditLimit
End Property
‘ ==========================================
‘ Property Let: スカラー値の書き込み（バリデーション必須）
‘ ==========================================
Public Property Let CustomerID(ByVal Value As String)
‘ 形式チェック（例: 空文字禁止、特定のプレフィックス確認など）
Value = Trim$(Value)
If Value = “” Then
Err.Raise 5001, “clsCustomer”, “顧客IDには空文字を指定できません。”
End If
m_CustomerID = Value
End Property
Public Property Let CustomerName(ByVal Value As String)
Value = Trim$(Value)
If Len(Value) > 50 Then
Err.Raise 5002, “clsCustomer”, “顧客名は50文字以内で指定してください。”
End If
m_CustomerName = Value
End Property
Public Property Let CreditLimit(ByVal Value As Currency)
‘ ビジネスロジックの担保：マイナスの限度額は絶対に許容しない
If Value < 0 Then
Err.Raise 5003, "clsCustomer", "与信限度額に負の値は設定できません。"
End If
m_CreditLimit = Value
End Property
' ==========================================
' Property Set: オブジェクト参照の書き込み
' ==========================================
Public Property Set TargetSheet(ByVal Value As Worksheet)
If Value Is Nothing Then
Err.Raise 5004, "clsCustomer", "有効なワークシートオブジェクトを指定してください。"
End If
Set m_TargetSheet = Value
End Property
Public Property Get TargetSheet() As Worksheet
Set TargetSheet = m_TargetSheet
End Property
' ==========================================
' 業務ロジックメソッド
' ==========================================
Public Sub SaveToDatabase()
' ここにDB接続やシートへの書き込み処理をカプセル化する
' すでにバリデーションを通過した安全なデータだけが処理される
Debug.Print "保存処理実行: " & m_CustomerID & " / " & m_CustomerName
End Sub
---
4. 呼び出し側（標準モジュール）の実装
上記で作成したクラスを、標準モジュールからどのように扱うか見てみよう。極めて直感的でありながら、内部の整合性が完全に守られる構造になっている。
Option Explicit
Sub ExecuteProcess()
Dim cust As clsCustomer
Set cust = New clsCustomer
On Error GoTo ErrorHandler
‘ 値の設定（Property Let / Set経由）
cust.CustomerID = “CUST-001”
cust.CustomerName = “株式会社 鈴木商事”
cust.CreditLimit = 1500000 ‘ 正常値
‘ オブジェクトの設定
Set cust.TargetSheet = ThisWorkbook.Sheets(“Master”)
‘ 業務実行
cust.SaveToDatabase
‘ — 【実験】不正な値を代入してみる —
‘ cust.CreditLimit = -500000 ‘ -> ここで即座にエラーが発火し、不正データの混入を防ぐ
MsgBox “処理が正常に完了しました。”, vbInformation
CleanUp:
Set cust = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
5. ファイル連携・データベース連携における実務上の注意点
このカプセル化設計は、特に外部ファイル（CSV, Text, JSON）やRDB（SQL Server, SQLiteなど）との連携において真価を発揮する。
1. 「汚染されたデータ」を上流で遮断する
外部から読み込んだデータをそのまま処理せず、一旦クラスの `Property Let/Set` に流し込むことで、パースミスや型不一致、業務ルール違反のデータを「インスタンス化の段階」で検知できる。これにより、数千件のループ処理の途中で「データがおかしい」と突然クラッシュする悲劇を防げる。
2. トランザクションとオブジェクトのライフサイクル
データベースのトランザクションを扱う際、インスタンスの状態（ステータス）をクラス内部に閉じ込めることで、「未保存」「保存済み」「エラー」といった状態管理を外部から隠蔽し、安全なAPIを提供できる。
—
チーフアーキテクトからの総括
カプセル化は、面倒な決まり事ではない。「将来の自分や、チームのメンバーが犯すミスをシステム的に不可能にするための防壁」である。
Public変数を垂れ流すコードは、その場しのぎのスピードとは引き換えに、多大な技術的負債を産む。Propertyプロシージャを適切に配置し、データの門番を置くこと。この一手間を惜しまないコードベースこそが、プロダクション環境で揺るぎない信頼を獲得する唯一の道である。
