条件付きでリストボックスに追加

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