Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

[40 デフォルトの名無しさん (ﾜｯﾁｮｲ 6f8e-nvoP) 2017/05/17(水) 00:45:43.01 ID:9uxtifvV0]

>>39
すまん、いけた

解決！

標準モジュール
Sub foo()
Set bar = New Class1
Debug.Print bar.get_name()
End Sub

'クラスモジュール
Public name
Private Sub Class_Initialize()
name = TypeName(Me)
End Sub
Function get_name()
Debug.Print Me.name
End Function