عمل Combobox على الفورم مرتبة و غير مكررة

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

اريد عمل Combobox مرتبة و غير مكررة على الفورم

 

انظر المرفق

 

 

Customers_Form.zip

[ياسر أحمد الشيخ]

للرفع

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

أخي الحبيب ياسر الشيخ

جرب الملف التالي وإن شاء الله يفي بالغرض

Unique Sorted Combox On UserForm.rar

[ياسر أحمد الشيخ]

حل رائع أخى يستاهل ألف شكر

ولكن أخى اريد تطبيق ذلك على combobox واحدة وهى الخاصة ب     Customer Name  فقط 

وشكرا مرة أخرى أخى

 

 

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

أخي الغالي أحمد الشيخ (البرنس)

إليك الملف التالي (حاولت التعديل على الماكرو الأول بتاع Jindon لكن فشلت لقلة خبرتي في التعامل مع المصفوفات) ..المهم عمنا Jindon متأخرش علينا وعدل المطلوب

 

 

Unique Sorted Combox On UserForm V2.rar

[الصـقر]

بعد أذن استاذى الحبيب 

ياسر خليل

من باب اثراء الموضوع والتنوع

جرب المرفق ربما يلبى طلبك تم التطبيق فقط على Customer Name كما طلبت فى المشاركة 4

تقبل تحياتى

Customers_Form.zip

[ياسر أحمد الشيخ]

شكرا اخى ياسر خليل

ولكنى أريد كود Combobox الخاص ب Customer Name فقط لأنى أريد تطبيق الفكرة على ملفات أخرى

وشكرا مرة أخرى أخى

[ياسر أحمد الشيخ]

حل رائع اخى الصقر

بس ممكن تشرح لى فكرة عمل الكود لأنها مش مفهمومة بالنسبة لى

وشكرا

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

أخي الحبيب ياسر إليك الملف التالي (لو كنت وضحت من الأول كنت لاقيت الحل من غير ما نروح للعم Jindon ...)

جرب الملف التالي واستخدامه سهل إن شاء الله

 

Unique Sorted Combox On UserForm V3.rar

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

الأخ الحبيب حسام عيسى

بارك الله فيك وجزاك الله خير الجزاء

هل راجعت ترتيب الأسماء في ملفك ؟ الترتيب غير صحيح على ما أعتقد

تقبل تحياتي

[ياسر أحمد الشيخ]

فعلاً أ/ ياسر الترتيب فى ملف أ/ الصقر غير سليم

ممكن ا/ياسر تشرح لى فكرة عمل الكود

شكرا جزيلا

[الصـقر]

اخى الكريم جرب المرفق تم تعديل عملية الترتيب

تقبل تحياتى

Customers_Form.zip

[ياسر أحمد الشيخ]

بالنسبة لحل أ/الصقر ليس المطلوب 

لأنى لا أريد ترتيب البيانات نفسها ، أريد فقط ترتيب البيانات الموجودة فى الكمبوبوكسCustomer Name

و شكرا اخى ياسر خليل على حلك الرائع

ولكن لى طلب أرجو شرح الكود على السريع

وشكراً مرة أخرى

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

أخي الحبيب ياسر الشيخ

أعتذر عن التأخير في الرد حيث أنني كنت مشغول حين طلبت شرح الكود .. ونسيت بسبب الزهايمر

هذا شرح متواضع حسب فهمي البسيط للمصفوفات حيث انني لست خبيراً في التعامل مع المصفوفات

Private Sub UserForm_Initialize()
'تعريف المتغيرات
    Dim A, E
    
'مسح محتويات الكومبوبوكس
    ComboBox2.Clear
    
'[Sheet1] بدء التعامل مع ورقة العمل المسماة برمجياً
    With Sheet1
'ليحمل قيم النطاق في العمود الثاني أي أنها تعتبر مصفوفة بكل القيم في هذا النطاق [A] تعيين قيمة للمتغير
        A = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).value
    End With
    
'بدء التعامل مع المصفوفات
        With CreateObject("System.Collections.ArrayList")
'[Aِ] من عناصر المصفوفة [E] عمل حلقة تكرارية لكل عنصر
            For Each E In A
'إذا كان العنصر لا يساوي فراغ ولا يوجد عنصر مماثل في المصفوفة أي يتم التعامل مع القيم الفريدة
                If (E <> "") * (Not .Contains(CStr(E))) Then
'يتم إضافة العنصر إلى المصفوفة الجديدة التي تحتوي على قيم فريدة غير مكررة
                    .Add CStr(E)
                End If
            Next
'ترتيب عناصر المصفوفة الجديدة
            .Sort
'إضافة عناصر المصفوفة الجديدة للكومبوبوكس
            ComboBox2.List = .ToArray
        End With
End Sub

تقبل تحياتي

[ياسر أحمد الشيخ]

ألف شكر أ/ياسر خليل

شرح وافى وكافى

شكرا جزيلاً

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

الحمد لله أخي الحبيب ياسر الشيخ (البرنس) أن تم المطلوب على خير

ومشكور على إظهار الموضوع مجاب ومنتهي (هذا يريح نفسياً)

تقبل ودي وتحياتي