Question

我有Collection存储Date个对象。我想检查一个月份对象的月份是否与1不同，如果是，则将其设置为1.

Sub displayColl()
    Dim globals As Object
    Set globals = getGlobalVariables()

    Dim dates As Collection
    Set dates = getResultDates(globals("MIN_DATE"), globals("MAX_DATE"), False)

    Dim i As Integer
    For i = 1 To dates.Count
         Debug.Print dates(i)
    Next

    Debug.Print "After"

    For i = 1 To dates.Count
        Debug.Print dates(i)
        dates(i) = DateSerial(year(dates(i)), 1, Day(dates(i)))
    Next
End Sub

但是，此代码不起作用 - 我得到Object requered error。这是为什么？什么是正确的方法？

编辑：

getResultDates功能并不重要。它只返回Collection Dates。
同样适用于getGlobalVariables - 它返回一个包含用户信息的字典，包括用户编写的最小和最大日期。
错误发生在Set dates(i) = DateSerial(year(dates(i)), 1, Day(dates(i)))行。
删除Set并没有取得任何成就。
我确信dates Collection包含日期。

调试输出：

Answer 1

根据微软的VBA文档： https://msdn.microsoft.com/en-us/library/f26wd2e5(v=vs.100).aspx 您可以添加，删除和检索集合的项目。它并不建议您可以直接替换项目，例如使用Java List。

您可以添加新日期并删除旧日期。

这也在讨论中 How to change value of an item of a collection

Excel vba：重新分配收集成员

1 个答案: