VBAでカスタムクラスプロパティを読み取ることができません

Question

私はGetとLetでテストクラスを設定しましたが、割り当てられた値は返されません。

'Set up test class 

Private lTargetName As String 

Public Property Get TargetName() As String 
TargetName = ITargetName 
End Property 

Public Property Let TargetName(value As String) 
lTargetName = value 
End Property 

Sub test() 
Dim sharedColumn As TestClass 
Set sharedColumn = TestClass 

sharedColumn.TargetName = "test" 
Debug.Print sharedColumn.TargetName ' returns blank 
End Sub 

Answer 1

コードに2つの問題があります。最初はクラスそのものです。あなたのProperty GetはlTargetNameではなくiTargetNameを割り当てています。また、あなたのサブテストでは、あなたはTestClassをNewingしていません。これらの2つの変更を行うと、あなたは行くのが良いでしょう。

1つの推奨事項：これらのエラーをキャッチするために、ソースファイルの上部にOption Explicitを指定すること。