Class Collection
VBA で クラスのコレクションを使う
■コード
MyClass
---------------------
Option Explicit
Private p_name As String
Public Property Let name(ByVal name As String)
p_name = name
End Property
Public Property Get name() As String
name = p_name
End Property
---------------------
sample
---------------------
Sub main2()
Dim mc1 As MyClass
Set mc1 = New MyClass
mc1.name = "ABC"
Dim mc2 As MyClass
Set mc2 = New MyClass
mc2.name = "XYZ"
Dim student As Collection
Set student = New Collection
student.Add Item:=mc1
student.Add Item:=mc2
Dim element As MyClass
For Each element In student
Debug.Print (element.name)
Next element
Debug.Print (student.Count)
End Sub
■tags
vba class collection