احمد محمد على قام بنشر ديسمبر 5, 2016 قام بنشر ديسمبر 5, 2016 هل ممكن استعمال المعادلات داخل اللست بوكس 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
احمد محمد على قام بنشر ديسمبر 5, 2016 الكاتب قام بنشر ديسمبر 5, 2016 الكود الموجود كما تصورته لكنه لا يعمل
ياسر خليل أبو البراء قام بنشر ديسمبر 15, 2016 قام بنشر ديسمبر 15, 2016 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.