有条件地添加到列表框

今天我已经拼命奋斗了大约8个小时，试图让这个工作，似乎无法解决我出错的地方。

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

列A保存帐号J列保存date

以下是我目前使用的代码，这些代码已经提供给我，我一整天都在修改，但没有成功

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 

我还包括了一个链接到我的文档，所以你可以看到，如果它的任何其他编码，可能会导致它不工作。

先谢谢你

点击这里下载我的文档

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