有条件地添加到列表框

Question

我今天已经挣扎了大约8个小时试图让这个工作起来，似乎无法解决我出错的地方。

我有listbox1，希望用14天以上的帐号填充。

A栏保留帐号 J列保存日期

这是我到目前为止使用的代码，我很好地提供给我，我一整天都在修改它没有成功

Private Sub UserForm_Initialize()
        Dim I As Integer
    Dim maxRow As Integer

    maxRow = 100
    ListBox1.Clear
    For I = 1 To maxRow
        If (DateDiff("d", Now, Range("J" & I).Value) > 14) Then
            ListBox1.AddItem Range("A" & I)
        End If
    Next I
    End Sub

我还提供了一个指向我的文档的链接，以便您可以查看是否有任何其他编码可能导致其无效。

提前谢谢

Click here to download my document

Answer 1

也许这对你有用：

Private Sub UserForm_Initialize()

Dim I As Long
Dim maxRow As Long

ListBox1.Clear

With Worksheets("Sheet1")
    maxRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For I = 1 To maxRow
        If IsDate(.Range("J" & I).Value) Then
            If Now() - .Range("J" & I).Value2 > 14 Then
                Reporting.ListBox1.AddItem .Range("A" & I).Value2
            End If
        End If
    Next I
End With

End Sub