概要

VBA（Visual Basic for Applications）では、プログラムの再利用性や構造化を向上させるために「クラスモジュール」を使用します。クラスモジュール内には「プロパティ」と呼ばれる変数や値を操作するための手続きが定義され、外部からのアクセス方法（読み取り専用、書き込み専用、またはその両方）を指定するために Public や Private といったアクセス修飾子を利用します。

クラスの基本

クラスは、オブジェクト指向プログラミングの基本概念であり、実世界の物事や概念をプログラム内に表現するための設計図となります。VBAでは、クラスモジュールを作成して独自のオブジェクトを定義できます。各クラスは、メソッド（処理）やプロパティ（状態）を持ちます。

例えば、「車」を表現するクラスを作成する場合、車の色や速度などの状態はプロパティとして表現し、走る、停止するなどの動作はメソッドとして実装します。

' クラスモジュール「Car」内の例
Private m_Color As String
Private m_Speed As Long

' 車の色を取得するプロパティ
Public Property Get Color() As String
    Color = m_Color
End Property

' 車の色を設定するプロパティ
Public Property Let Color(Value As String)
    m_Color = Value
End Property

' 車の速度を取得するプロパティ
Public Property Get Speed() As Long
    Speed = m_Speed
End Property

' 車の速度を設定するプロパティ（ここでは書き込み専用の例）
Public Property Let Speed(Value As Long)
    If Value < 0 Then
        m_Speed = 0
    Else
        m_Speed = Value
    End If
End Property

' 車を走らせるメソッド
Public Sub Drive()
    MsgBox "車は " & m_Speed & " km/h で走っています。"
End Sub

アクセス修飾子について

VBAでは、クラス内の変数やメソッド、プロパティに対して「Public」と「Private」の2種類のアクセス修飾子が使用されます。

• Public: クラス外部からもアクセス可能です。オブジェクトを生成した後、直接プロパティやメソッドを呼び出すことができます。
• Private: クラス内部からのみアクセス可能です。カプセル化の観点から、外部に公開したくない内部のデータや処理はPrivateとして定義します。

例えば、上記の「Car」クラスでは、内部で使用する変数 m_Color や m_Speed は Private として宣言され、直接アクセスできないようにしています。一方、外部から色や速度を設定・取得できるように、対応するプロパティが Public として定義されています。

プロパティプロシージャ（Property Get/Let/Set）

プロパティプロシージャは、クラスの外部から変数の読み書きを行うための特別な手続きです。VBAでは主に以下の3種類があります。

• Property Get: プロパティの値を取得するために使用します。
• Property Let: プロパティの値を設定するために使用します。通常、基本データ型（文字列、数値など）に用います。
• Property Set: プロパティにオブジェクトを設定する場合に使用します。

これにより、内部の変数に直接アクセスさせず、必要に応じたチェックや変換処理を組み込むことができます。

' 数値プロパティの例（Let/Get）
Private m_Age As Integer

' 年齢を取得する
Public Property Get Age() As Integer
    Age = m_Age
End Property

' 年齢を設定する（0以上のみ受け付ける）
Public Property Let Age(Value As Integer)
    If Value < 0 Then
        m_Age = 0
    Else
        m_Age = Value
    End If
End Property

' オブジェクトプロパティの例（Set/Get）
Private m_Manager As Object

' マネージャーオブジェクトを取得する
Public Property Get Manager() As Object
    Set Manager = m_Manager
End Property

' マネージャーオブジェクトを設定する
Public Property Set Manager(Value As Object)
    Set m_Manager = Value
End Property

上記の例では、数値型のプロパティ Age に対しては Property Let を用い、オブジェクト型のプロパティ Manager に対しては Property Set を用いています。

Public/Privateプロパティの例

以下は、クラスモジュールを使った具体的な例です。ここでは、従業員を表すクラス「Employee」を作成し、名前と給与というプロパティを定義します。内部変数は Private として宣言し、外部からアクセスするために Public なプロパティを実装しています。

' Employeeクラスモジュール内のコード例

' 内部変数
Private m_Name As String
Private m_Salary As Currency

' 名前の取得プロパティ
Public Property Get Name() As String
    Name = m_Name
End Property

' 名前の設定プロパティ
Public Property Let Name(Value As String)
    If Value = "" Then
        m_Name = "無名"
    Else
        m_Name = Value
    End If
End Property

' 給与の取得プロパティ
Public Property Get Salary() As Currency
    Salary = m_Salary
End Property

' 給与の設定プロパティ
Public Property Let Salary(Value As Currency)
    If Value < 0 Then
        m_Salary = 0
    Else
        m_Salary = Value
    End If
End Property

' 給与を表示するメソッド
Public Sub ShowSalary()
    MsgBox m_Name & "さんの給与は " & m_Salary & " 円です。"
End Sub

このように、Employee クラスでは内部で直接変数を操作するのではなく、プロパティプロシージャを介して値の取得や設定を行っています。これにより、不正な値が設定されるのを防ぐことができます。

応用例と注意点

クラスプロパティを使う際の応用例として、値の変換やエラーチェックを組み込むことが考えられます。例えば、日付のプロパティを設定する際に、入力された文字列が正しい日付形式かどうかを確認するなど、柔軟な実装が可能です。

' 日付プロパティの例
Private m_BirthDate As Date

Public Property Get BirthDate() As Date
    BirthDate = m_BirthDate
End Property

Public Property Let BirthDate(Value As Variant)
    ' 入力値が日付に変換可能かチェック
    On Error GoTo InvalidDate
    m_BirthDate = CDate(Value)
    Exit Property
InvalidDate:
    MsgBox "正しい日付を入力してください。", vbExclamation
End Property

また、オブジェクト指向プログラミングの概念として、プロパティを使用することでデータの隠蔽（カプセル化）が実現できます。内部の実装が変更された場合でも、外部からアクセスする際のインターフェース（プロパティやメソッド）が同じであれば、プログラム全体への影響を最小限に抑えることができます。

注意点としては、Property Let と Property Set の使い分けです。基本データ型の場合は Let を使用し、オブジェクトの場合は Set を使う必要があるため、混同しないように注意しましょう。

まとめ

VBAのクラスプロパティは、プログラムの構造を整理し、データのカプセル化を実現するための強力な機能です。Public と Private のアクセス修飾子を適切に使い分け、Property Get、Property Let、Property Set を実装することで、安全かつ柔軟なコードを書くことができます。

ここで紹介した例や解説を参考に、自身のプロジェクトに合わせたクラス設計を行ってみてください。クラスを上手に活用することで、より見通しの良い保守性の高いプログラムを作成することができるでしょう。

また、実際にコードを書いて試してみることが理解を深めるための近道です。さまざまなシナリオを想定して、プロパティの動作やエラーチェックの仕組みを実装する練習を行ってください。