用于添加集合成员的循环答案

【问题标题】：Loop for adding collection members用于添加集合成员的循环
【发布时间】：2020-02-02 16:48:22
【问题描述】：

当谈到循环时，我不是最先进的教授，所以我有点卡在这里。

通常我会这样使用它：

    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.

通过这段代码，我们将用户 ID 添加到我们的集合 ouLookups 中，稍后我们将在这段代码中使用：

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

是否可以为添加用户 ID 构建循环代码？所以它将在单元格E1 到E35 的循环中执行此操作：

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

【问题讨论】：

标签： excel vba m-files-api

【解决方案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

【讨论】：