تعبئة قائمة منسدلة في الفورم من بيانات مفلترة

[أنس دروبي]

السلام عليكم ورحمة الله 

أصدقائنا واخواني الكرام  بعد البحث الطويل في مواقع الانترنت الاجنبية ومنها العربية حول فكرة تعبئة "قائمة في يوزر فورم" من بيانات مفلترة في ورقة العمل 

الطرق كانت في المواقع كثيرة وجميلة ومتميزة ولكن اكثرها كانت تعتمد على مبدأ الفلترة وبعدها نسخ البيانات المفلترة ولصقها في مكان اخر 

وجعل مصدر القائمة في اليوزر فورم "البيانات الملصقة"

وكانت هناك طريقة أخرى تعبئتها عن طريق استخدام دالة for و next

الذي اريده هو طريقة اخرى قصيرة في التنفيذ لان البيانات ضخمة في الملف وأصبحت هذه الطرق تأخذ وقت طويل في التنفيذ والاداء 

نرجو منكم عرض الافكار والاراء حول الفكرة لإثراء الموضوع 

 

 

 

قائمة منسدلة من بيانات مفلترة.rar

[أبو حنــــين]

Private Sub UserForm_Activate()

Dim My_Array As Variant, x As Long, My_Rng As Range
ReDim My_Array(1 To Application.WorksheetFunction.CountA([A:A]))
    For Each My_Rng In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    x = My_Rng.Row - 1
    If Not IsEmpty(My_Rng) Then

    My_Array(i + 1) = My_Rng.Value
    i = i + 1
    End If
    Next
    ReDim Preserve My_Array(1 To i)
ComboBox1.List = My_Array

End Sub

جرب هذه الطريقة :

ملاحظة : البيانات التي ستدرج في الكمبوبكس مكررة و في حالة ما إذا اردنا القيم الفريدة فقط نضيف  : 

Application.WorksheetFunction.CountA

 

 

تم تعديل أبريل 26, 2016 بواسطه أخوكم في الله

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

أخي العزيز أنس دروبي

بعد إذن أخي الغالي أبو حنين صاحب اللمسات الفنية والحلول المتميزة

إليك حل آخر لإثراء الموضوع ، تم شرحه بالتفصيل على الرابط التالي

الرابط من هنا

تقبل تحياتي

[أنس دروبي]

السلام عليكم ورحمة الله

أعتذر عن التأخير في الرد نظراً لقطع الانترنت المفاجئ

بارك الله فيك أخي "اخوكم في الله"

كود جميل جداً وكان سريع في الاداء والتنفيذ 

اخي "ياسر خليل" الحبيب أين أنت منذ زمن لم نشاهد ابداعاتك وتحفك الفنية بارك الله فيك وجزاك كل خير

كان الكود سريع نسبياً في الاداء والتنفيذ

أتمنى أن أخذ من وقتك بضع ثواني ودقائق لأن العمل الكامل متوقف صراحة على هذا الموضوع في الرابط التالي:

http://www.officena.net/ib/topic/68912-الطريقة-المثالية-للتنقل-بين-الخلايا-ايقونة-السابق-والتالي/

أخي وحبيبي "أخوكم في الله"

كان دائماُ استاذنا ياسر خليل ينصحني بتغيير أسم الظهور لدي الى اللغة العربية فإقتداءاً باستاذنا ليس أجبار ولاكرها وإنما فضول 

أن تغيير الاسم لأنه صراحة جميعنا أخوة في الله ههههه

تقبل تحياتي ومروري