تطبيق قائمة منسدله مرتبه ابجديا بلا فراغات وبلا تكرار

[ابوحمزه المصرى]

اخوانى عمالقة اوفيسنا حصلت على الكود لكن كيف تطبيقه على هذا المثال مرفق ملف به شيت العملاء وشيت كشف الحسابكشف الحساب.rarاريد عمل قائمه منسدله مرتبه ابجديا فى شيت كشف الحساب  من شيت العملاء وحصلت على هذا الكود منالإصدار الأخير من المكتبة من اخي وحبيبي استاذ ياسر الغالي بارك الله فيه ولكن كيف التطبيق

الكود 

 

Sub NoBlanks_NoDuplicates_Sorted_List()

    Dim Arr, X As Object

    With CreateObject("System.Collections.ArrayList")

        Set X = .Clone

        For Each Arr In Range("A2", Range("A" & Rows.Count).End(xlUp)).Value

            If Arr <> "" Then

                If IsNumeric(Arr) Then

                    If Not .contains(Arr) Then .Add Arr

                Else

                    If Not X.contains(Arr) Then X.Add Arr

                End If

            End If

        Next

        .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",")

    End With

    With Range("D6").Validation

        .Delete

        .Add xlValidateList, 1, 1, Arr

    End With

End Sub

 

[ابوحمزه المصرى]

 

اخوانى عمالقة اوفيسنا حصلت على الكود لكن كيف تطبيقه على هذا المثال مرفق ملف به شيت العملاء وشيت كشف الحسابكشف الحساب.rarاريد عمل قائمه منسدله مرتبه ابجديا فى شيت كشف الحساب  من شيت العملاء وحصلت على هذا الكود منالإصدار الأخير من المكتبة من اخي وحبيبي استاذ ياسر الغالي بارك الله فيه ولكن كيف التطبيق

الكود 

 

Sub NoBlanks_NoDuplicates_Sorted_List()

    Dim Arr, X As Object

    With CreateObject("System.Collections.ArrayList")

        Set X = .Clone

        For Each Arr In Range("A2", Range("A" & Rows.Count).End(xlUp)).Value

            If Arr <> "" Then

                If IsNumeric(Arr) Then

                    If Not .contains(Arr) Then .Add Arr

                Else

                    If Not X.contains(Arr) Then X.Add Arr

                End If

            End If

        Next

        .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",")

    End With

    With Range("D6").Validation

        .Delete

        .Add xlValidateList, 1, 1, Arr

    End With

End Sub

 

قائمة منسدله.rar

[بن علية حاجي]

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

 

أخي الكريم، تم إرفاق الكود بحدث الشيت "عملاء 1" مع تعديل طفيف عليه، وبمجرد التعديل على الشيت يقوم الكود بإدراج قائمة منسدلة لأسماء العملاء عناصرها مرتبة أبجديا في الخلية E2 من شيت "كشف العميل"... بهذه الطريقة (إدراج قائمة منسدلة في خلية بخاصية التحقق من الصحة Validation) لا يمكن التحكم في حجم خط القائمة المنسدلة إلا بواسطة خاصية "نسبة تحجيم الشيت"  Zoom (قم بتكبير نسبة حجم الشيت -حجم العرض- لتكبير حجم الخط)... والله أعلم

 

 

أخوك بن علية

 

 

المرفق : كشف الحساب_2.rar 

تم تعديل مارس 28, 2015 بواسطه بن علية حاجي

[ابوحمزه المصرى]

بارك الله فيك استاذنا 

بن علية حاجي

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