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