قائمة منسدلة بداخل فورم

[ابو حمادة]

السلام عليكم

ارجو من الاساتذه الافاضل الاطلاع علي الملف المرفق

اريد عمل 3 قوائم منسدله بداخل فورم ارجو تعديل الملف المرفق

لكم جزيل الشكر

ComboBox-Exemple.rar

[عبد العزيز البسكري]

أخي الفاضل " أبو حمادة "

مادام الأمر مجرّد تغذية للكومبوبوكسات فقط .. و ليست تغذية و شرب و تحلية

لماذا لا تستعمل خاصية  ROWSOURCE .. و تريّح نفسك

إحتراماتي

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

أخي الكريم الجموعي

يرجى وضع الحل المقدم في موضوعك ها هنا لتعم الفائدة ويسهل على الباحث فيما بعد ان يجد بغيته في البحث ..

 

[ابو حمادة]

7 ساعات مضت, عبد العزيز البسكري said:

أخي الفاضل " أبو حمادة "

مادام الأمر مجرّد تغذية للكومبوبوكسات فقط .. و ليست تغذية و شرب و تحلية

لماذا لا تستعمل خاصية  ROWSOURCE .. و تريّح نفسك

إحتراماتي

شكرا ليك اخي الغالي بالنسبة خاصية Rowsource لا تلغي الفراغات او الاسماء  المكرره علي حد علمي

تم تعديل مارس 20, 2016 بواسطه ابو حمادة

[ابو علي و سدرة]

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

 

ComboBox-Exemple.rar

[عبد العزيز البسكري]

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

أخي الكريم " أبو حمادة " ..تفضّل المرفق ..الكومبوبوكس 2 بدون فراغات و بدون تكرار ..

الكومبوبوكس 3 .. بدون تكرار و بدون فراغات ..

كما تم وضع كود غير مفعّل .. لقائمة منسدلة بدون تكرار فقط ..راجع الأكواد داخل الفورم ..

فائق إحتراماتي

قائمة منسدلة بدون تكرار و بدون فراغات.rar

تم تعديل مارس 20, 2016 بواسطه عبد العزيز البسكري

[ابو حمادة]

منذ ساعه, rasboten said:

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

 

ComboBox-Exemple.rar

شكرا استاذي الغالي بس الملف مش عايز يفتح كل مافتحه تظهر رسالة الاكسل يقفل

منذ ساعه, rasboten said:

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

 

ComboBox-Exemple.rar

شكرا استاذي الغالي بس الملف مش عايز يفتح كل مافتحه تظهر رسالة الاكسل يقفل

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

أخي الكريم أبو حماده

إليك كود الأخ الحبيب عبد العزيز البسكري بعد تنسيقه فقط (لسهولة الإطلاع عليه)

يرجى مراعاة عملية التنسيق للأكواد المقدمة ليسهل التعامل معها

Private Sub UserForm_Initialize()
    Dim Ws As Object
    Dim I As Integer
    Dim Valeurs As Variant
    Dim sDic As Object
    Dim Cel As Range

    Set Ws = ThisWorkbook.Sheets(1)
    Set sDic = CreateObject("Scripting.Dictionary")

    With Ws
        Valeurs = .Range("A2:A100").Value
        For I = LBound(Valeurs) To UBound(Valeurs)
            If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = ""
        Next I
    End With

    If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys

    For Each Cel In Range("B2:B100")
        ComboBox2 = Cel
        If ComboBox2.ListIndex = -1 And Cel <> "" Then ComboBox2.AddItem Cel
    Next Cel

    For Each Cel In Range("C2:C100")
        ComboBox3 = Cel
        If ComboBox3.ListIndex = -1 And Cel <> "" Then ComboBox3.AddItem Cel
    Next Cel
End Sub

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

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

 

[عبد العزيز البسكري]

4 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم أبو حماده

إليك كود الأخ الحبيب عبد العزيز البسكري بعد تنسيقه فقط (لسهولة الإطلاع عليه)

يرجى مراعاة عملية التنسيق للأكواد المقدمة ليسهل التعامل معها

Private Sub UserForm_Initialize()
    Dim Ws As Object
    Dim I As Integer
    Dim Valeurs As Variant
    Dim sDic As Object
    Dim Cel As Range

    Set Ws = ThisWorkbook.Sheets(1)
    Set sDic = CreateObject("Scripting.Dictionary")

    With Ws
        Valeurs = .Range("A2:A100").Value
        For I = LBound(Valeurs) To UBound(Valeurs)
            If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = ""
        Next I
    End With

    If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys

    For Each Cel In Range("B2:B100")
        ComboBox2 = Cel
        If ComboBox2.ListIndex = -1 And Cel <> "" Then ComboBox2.AddItem Cel
    Next Cel

    For Each Cel In Range("C2:C100")
        ComboBox3 = Cel
        If ComboBox3.ListIndex = -1 And Cel <> "" Then ComboBox3.AddItem Cel
    Next Cel
End Sub

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

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

 

[ابو حمادة]

شكرا ليك استاذ ياسر الجليل لك مني تحياتي انا بالفعل طبقت الكود وميه ميه باقي حاجه واحده فقط هي ان فيه قائمة منسدله اخرى في الشيت نفسه اريد ان اطبق به نفس القائمة المنسدله في الفورم بمعني منع تكرار الاسماء والفراغات منها ايضا وكيف اغير لون الخط بداخله ونوع الخط ملحوظه دا غير الموجود بالفرم علي الشيت نفسه