Class
VBA で クラス定義
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 定義