ExcelVBAでClassの返り値について

質問

• ExcelVBAでクラスを使用してメソッドチェーンを実現する場合、メソッドチェーンの後ろにメソッドが存在する場合はクラス自体を返し、メソッドとして使用する場合は別の値を返すことができるかを検討します。
• ExcelVBAでは、メソッドチェーンを使って複数のメソッドを連続して実行することができます。しかし、クラスを使ってメソッドチェーンを実現する場合、後ろにメソッドが控えている場合はクラス自体を返し、メソッドとして使いたい場合は別の値を返す必要があります。
• 例えば、Workbooksメソッドをクラスとして実装する場合、メソッドチェーンの後ろにメソッドがある場合はクラス自体を返し、メソッドとして使いたい場合は別の値を返すようにします。これにより、メソッドチェーンを使ってスムーズなコーディングを実現することができます。

回答No.2

nofx35 · ベストアンサー

イメージだけですが、参考になりますか。

Class1

Private m_Items As Collection

Private Class_Initialize()
Set m_Items = New Collection
End Sub

Public Sub Add(ByVal obj As Class2)
m_Items.Add obj, CStr(obj.Name)
End Sub

Public Property Get Item(Byval vValue As Variant) As Class2
Set Item = m_Items(vVlaue)
End Property

Public Sub Method()
MsgBox "これはClass1のメソッドです"
End Sub

Class2
Private m_Name As String

Public Function Init(Byval strName As String) As Class2
m_Name = strName
Set Init = Me
End Function

Public Property Get Name() As String
Name = m_Name
End Property

Public Sub Method()
MsgBox "これはClass2(" & Name & ")のメソッドです"
End Sub

Sub Try()
Dim o As Class1
Dim oo As Class2

Set o = New Class1

Set oo = New Class2
o.Add oo.Init("1")

Set oo = New Class2
o.Add oo.Init("2")

o.Method

o.Item("1").Method
'上の行は Class1のItemプロパティを既定のプロパティに設定すれば
o("1").Method 'とメソッドチェーンが記述出来ます
'WorkBooks("hoge").WorkSheets・・・・と同じですね

End Sub

oだけならClass1への参照
o. ならClass1のメンバへアクセス
o.Item("1") はClass1が持つItemプロパティ（型はClass2型)によりClass2の参照を得る
Itemを省略可能なプロパティに設定すれば
o("1")だけでClass2への参照が得られる
o("1"). でClass2が持つメンバへアクセス可能になる

コンパイルしてませんので、適宜修正願いますm(_ _)m

お礼

クラスを２つ使いで表現ですか！
なかなか面白いアプローチですね
参考にいじくってみます！