Использование объекта Range с NewEnum () вместо класса Collection (то есть с For Each)

Question

Я создаю собственный класс коллекции Record.

В настоящее время я включил перечисление моего класса с помощью:

private pRecord as Collection

'
' Enables enumeration of the pRecords Collection (ie using For Each).
'
Public Property Get NewEnum() As IUnknown
    Attribute NewEnum.VB_UserMemId = -4
    Attribute NewEnum.VB_MemberFlags = "40"

    Set NewEnum = pRecord.[_NewEnum]
End Property

В настоящее время pRecord - это коллекция, содержащая отдельные ячейки, которыенаходится в строке некоторого объекта Range, например Range ("A1: C6"). Rows (1).

Можно ли установить фактическую строку Range в качестве объекта, который перечисляется вместо pRecordsколлекция?Если да, то как ты это делаешь?

Я полагаю, что это должно быть возможно как-то, как ты уже можешь использовать For Each для объектов диапазона.

Answer 1

Вы пытались заменить объект Range для вашей коллекции?