تعبئة قائمة منسدلة في الفورم من بيانات مفلترة Fill ComboBox With Unique From Filtered Range

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

أقدم لكم كود يوضع في حدث الفورم ، ويقوم الكود بتعبئة الكومبوبوكس أو القائمة المنسدلة بالقيم الفريدة في نطاق تم تصفيته أو فلترته.

بفرض أن لديك النطاق A2:A25 به بيانات وقد قمت بفلترة النطاق بعدة شروط وليكن الأرقام 1 و 4 و 8 و 7 ، والمطلوب تعبئة الكومبوبوكس بتلك القيم بدون تكرارها في القائمة المنسدلة ، لتصبح بهذا الشكل

قم بوضع أداة الكومبوبوكس على الفورم ، ثم ضع الكود التالي في حدث الفورم 

Private Sub UserForm_Initialize()
    Dim Cel As Range
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        
        For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
            .Item(Cel.Value) = 1
        Next Cel
        
        Me.ComboBox1.List = .Keys
    End With
    
    Me.ComboBox1.ListIndex = 0
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء