كيفية تعبئة مربع التحرير والسرد بقيم فريدة فقط في Excel؟

عند إنشاء مربع تحرير وسرد بقائمة بيانات تتضمن بعض القيم المكررة ، فلن يتم استبعاد القيم المكررة تلقائيًا في مربع التحرير والسرد. في هذه الحالة ، كيف يمكنك عرض العناصر الفريدة فقط في مربع التحرير والسرد الخاص بك؟ قد يكون هذا البرنامج التعليمي يمكن أن يقدم لك معروفًا.

قم بتعبئة مربع التحرير والسرد بقيم فريدة فقط باستخدام رمز VBA

قم بتعبئة مربع التحرير والسرد بقيم فريدة فقط باستخدام رمز VBA

قد يساعدك رمز VBA التالي على إضافة القيم الفريدة عند إنشاء مربع تحرير وسرد ، يرجى القيام بذلك على النحو التالي:

1. أدخل مربع التحرير والسرد أولاً ، الرجاء النقر المطور > إدراج > صندوق التحرير والسرد (عنصر تحكم ActiveX)، ثم اسحب الماوس لرسم مربع تحرير وسرد ، انظر الصورة:

القيم الفريدة لـ doc combobox 1

2. ثم انقر بزر الماوس الأيمن فوق مربع التحرير والسرد ، واختر عرض الرمز من قائمة السياق ، انظر لقطة الشاشة:

القيم الفريدة لـ doc combobox 2

3. و ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة منبثقة ، يرجى نسخ ولصق الكود التالي لاستبدال الكود الأصلي.

كود فبا: مربع تحرير وسرد بقيم فريدة:

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    Dim vStr, eStr
    Dim dObj As Object
    Dim xRg As Range
    On Error Resume Next
    Set dObj = CreateObject("Scripting.Dictionary")
    Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    vStr = xRg.Value
    Application.ScreenUpdating = False
    With dObj
        .comparemode = 1
        For Each eStr In vStr
            If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
        Next
        If .Count Then
            ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود أعلاه ، ComboBox1 هو اسم مربع التحرير والسرد الذي أنشأته ، يمكنك تغييره حسب حاجتك.

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وفي مربع المطالبة ، يرجى تحديد قائمة مصدر البيانات التي تريد إضافتها إلى مربع التحرير والسرد ، انظر لقطة الشاشة:

القيم الفريدة لـ doc combobox 3

5. ثم انقر فوق OK زر ، يتم عرض القيم الفريدة فقط في مربع التحرير والسرد ، انظر الصورة:

القيم الفريدة لـ doc combobox 4

معلومه- سرية: إذا لم يكن هناك المطور علامة التبويب في الشريط ، هذه المقالة كيفية إظهار / عرض علامة تبويب المطور في شريط Excel 2007/2010/2013؟ قد تقدم خدمة لك لعرض علامة تبويب المطور.

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!