Class

VBA で クラス定義

■コード

MyClass

---

Option Explicit

Private p_name As String

Public Property Let Name(ByVal n As String)

p_name = n

End Property

Public Property Get Name() As String

Name = p_name

End Property

---

Function test()

Dim mc As MyClass

Set mc = New MyClass

mc.Name = "hiroki"

Dim Name As String

Name = mc.Name

Debug.Print ("Hello " & Name)

End Function

■tags

---

vba class 定義