هل ممكن استعمال المعادلات داخل اللست بوكس

[احمد محمد على]

هل ممكن استعمال المعادلات داخل اللست بوكس

k = 0
With Me.ListBox2
For i = 0 To .ListCount - 1
.AddItem
.List(k, 0) = WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 0)), Sheets("dalel").Range("b5:k200"), 9, 0)
.List(k, 1) = WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 1)), Sheets("dalel").Range("b5:k200"), 10, 0)
k = k + 1
Next
End With

 

[احمد محمد على]

الكود الموجود كما تصورته لكنه لا يعمل

[ياسر خليل أبو البراء]

k = 0
With Me.ListBox2
For i = 0 To .ListCount - 1
.AddItem
.List(k, 0) = Application.WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 0)), Sheets("dalel").Range("b5:k200"), 9, 0)
.List(k, 1) = Application.WorksheetFunction.VLookup(Val(Me.ListBox1.List(i, 1)), Sheets("dalel").Range("b5:k200"), 10, 0)
k = k + 1
Next
End With