Цикл для добавления членов коллекции

Question

Я не самый продвинутый профессор, когда дело доходит до петель, поэтому я немного застрял здесь.

Обычно я использовал бы его следующим образом:

    Dim ouLookup: Set ouLookup = CreateObject("MFilesAPI.Lookup")
    Dim ouLookups: Set ouLookups = CreateObject("MFilesAPI.Lookups")

    ouLookup.Item = ThisWorkbook.Sheets("Sheet1").Range("E1").Value
    ouLookup.Version = -1
    ouLookups.Add -1, ouLookup

    ouLookup.Item = ThisWorkbook.Sheets("Sheet1").Range("E2").Value
    ouLookup.Version = -1
    ouLookups.Add -1, ouLookup

    etc.

С помощью этого кода мы добавляем идентификаторы пользователей в нашу коллекцию ouLookups, которые мы будем использовать позже в этом коде:

' AssignedToUsers
oPropertyValue.PropertyDef = MFBuiltInPropertyDefAssignedTo
oPropertyValue.Value.SetValueToMultiSelectLookup ouLookups ' It is here
oPropertyValues.Add -1, oPropertyValue

Можно ли построить код цикла для добавления идентификаторов пользователей? Таким образом, он будет выполнять эту операцию в цикле от ячейки E1 до E35:

    ouLookup.Item = ThisWorkbook... ' Offset or something?
    ouLookup.Version = -1
    ouLookups.Add -1, ouLookup

Answer 1

Циклы очень просты, есть множество учебников, доступных онлайн. Определенно посмотрите на это:)

Вот как вы можете использовать цикл в вашем случае

'set range
Set myrng = ThisWorkbook.Sheets("Sheet1").Range("E1:E35")

'loop through each cell in range
For Each cel In myrng
    'this is how you cna access the value
    MsgBox cel.Value
Next