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