أب مارية قام بنشر أبريل 1, 2015 مشاركة قام بنشر أبريل 1, 2015 السلام عليكم لدي فورم مدرج به تسع ComboBox كل واحد مخصص لجلب بينات معينة كما هو موضح في الكود لكن المشكل الذي أواجهه هو عدم جلب البيانات في حالة ما إذا كانت مكررة. أرجو من الاخوة المساعدة في جعل الكود يجلب جميع البيانات المتعلقة بالكومبو بوكس حتى ولو كانت مكررة. Private Sub UserForm_Initialize() Set ws = Sheets("Stocks") lrw = ws.Cells(Rows.Count, "B").End(xlUp).Row Ary = ws.Range("B12:B" & lrw).Value ListCmb "Boitie", "ComboBox7" ListCmb "Carte Mére", "ComboBox8" ListCmb "Processeur", "ComboBox9" ListCmb "Ventilateur", "ComboBox10" ListCmb "Disque Dur", "ComboBox11" ListCmb "Graveur", "ComboBox12" ListCmb "Ram", "ComboBox13" ListCmb "Carte graphique", "ComboBox14" ListCmb "Ecran", "ComboBox15" End Sub رابط هذا التعليق شارك 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.