انتقل إلى المحتوى الرئيسي

كيفية تعبئة مربع التحرير والسرد بقيم فريدة فقط في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would be great if we could sort before adding too
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations