VBA 오류 424 (개체 모음 포함)

Question

사용자 지정 개체 모음을 만들고 참조하는 중입니다. 이 클래스는 CProject라고하며 Name과 RefNum이라는 두 가지 속성을가집니다. 생성하고 참조하는

코드는 다음과 같습니다 : 필요한 개체 :

Dim Projects As Collection 

Sub BuildProjects() 
     Dim i As Integer 
     Set Projects = New Collection 

    For Each c In Worksheets("Active Projects").Range("A4:A750").Cells 
    If IsEmpty(c) Then 

     'Do some stuff 

    Else 
     If Projects.Count > 0 Then 
      For i = 1 To Projects.Count 
       If c.Value = Projects.Item(i).Name Then '<---Error Occurs Here 

        'Do some Duplicate Management Stuff 

       End If 
      Next i 
     End If 
    End If 
Next 
End Sub 

이 코드를 실행하면 나는 오류 424을 얻는다. 나는 자격이 된 객체 식별자를 제공하고 있다고 믿는다. 누구든지 내가 실수 한 곳을 보았나요?

Answer 1

컬렉션 항목은 변형 유형이 있습니다, 그래서 당신이로 변경할 수 있습니다

Dim Projects As Collection 

Sub BuildProjects() 
     Dim i As Integer 
     dim var_item as variant 
     dim aCProject as CProject 

     Set Projects = New Collection 

    For Each c In Worksheets("Active Projects").Range("A4:A750").Cells 
    If IsEmpty(c) Then 

     'Do some stuff 

    Else 
     For Each var_item in Projects 
      set aCProject = var_item 
      If c.Value = aCProject.Name Then 

       'Do some Duplicate Management Stuff 

      End If 
     Next 
    End If 
Next 
End Sub