EXCEL VBA-有2个日期的While循环

Question

在Excel中用开始日期和当前日期之间的日期填充行。 人口是每周一次，以下是我的职能。 它可以正常工作直到不停止，直到出现溢出错误，然后继续无限运行，因此我认为CurrentDate无法正常工作。

使用的2个日期是StartDate = 04/1/2016和CurrentDate = 12/07/2017 StartDate = 04/1/2016 。

任何帮助或建议，将不胜感激。

Public Function PopulateStartOfWeekDates()

    Dim wsCRC As Worksheet
    Set wsCRC = Worksheets("CRC")

    Dim StartDate As Date
    Dim CurrentDate As Date
    StartDate = FirstMondayOfYear()
    CurrentDate = Date

    Dim WeekOffset As Integer
    Dim i As Integer
    i = 12
    WeekOffset = 0

    Debug.Print StartDate
    Debug.Print CurrentDate

    Do While StartDate < CurrentDate        
        wsCRC.Cells(5, i) = StartDate + WeekOffset
        wsCRC.Cells(5, i).EntireColumn.AutoFit
        i = i + 1
        WeekOffset = WeekOffset + 7                    
    Loop

End Function

Answer 1

如果您决定需要保持StartDate的值（例如，在代码的后面使用），则可以将循环替换为：

i = 0
Do While StartDate + i * 7 < CurrentDate
    wsCRC.Cells(5, i + 12) = StartDate + i * 7
    wsCRC.Cells(5, i + 12).EntireColumn.AutoFit
    i = i + 1
Loop

Answer 2

自己看完之后，我意识到我没有增加开始日期，因此循环是无限的。 感谢@Nathan_Sav在注释中也指出了这一点。