اضافه بيانات في كمبو بوكس

[ابو حمادة]

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

رجاء من خبراء الاكسل

عندي ملف به يوزر فورم به كود  في حدث اليوزر فورم لملاء بيانات CoboBox4  بدون تكرار

محتاجه اضافه كلمة ( الكل ) مع القائمه التى تظهر في CoboBox4 

كما ظاهر في الصورة

يوجد ملف للتطبيق

فورم.rar

     .......... ولكم منى الف تحبه ..........

 

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

وعليكم السلام

جرب الكود بالشكل التالي

Option Explicit

Private Sub UserForm_Initialize()
    Dim sh          As Worksheet
    Dim i           As Integer
    Dim valeurs1    As Variant
    Dim sDic1       As Object

    Set sh = Sheets("add")
    Set sDic1 = CreateObject("Scripting.Dictionary")

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
        With sh
            valeurs1 = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
            valeurs1(1, 1) = "الكل"
            For i = LBound(valeurs1) To UBound(valeurs1)
                If Not IsEmpty(valeurs1(i, 1)) Then sDic1(valeurs1(i, 1)) = ""
            Next i
        End With
        If IsArray(valeurs1) Then Me.ComboBox4.List = sDic1.keys
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

 

[ابو حمادة]

الله ينور عليك اخي  الغالي استاذ ياسر

تسلم ايدك وجزاك لله خيرا

 

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

وجزيت خيراً أخي الكريم أبو حمادة بمثل ما دعوت لي

والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي