Skip to main content

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

Author: Xiaoyang Last Modified: 2025-05-30

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

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


arrow blue right bubble املأ مربع التحرير والسرد بقيم فريدة فقط باستخدام كود VBA

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

1. أولاً، قم بإدراج مربع تحرير وسرد، يرجى النقر فوق تطوير > إدراج > مربع التحرير والسرد (ActiveX Control)، ثم اسحب الماوس لرسم مربع التحرير والسرد، انظر إلى لقطة الشاشة:

click Developer > Insert > Combo Box to insert a combo box

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

right click the combo box, and choose View Code

3. ستظهر نافذة Microsoft Visual Basic for Applications، يرجى نسخ ولصق الكود التالي لتحل محل الكود الأصلي.

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

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 لتشغيل هذا الكود، وفي مربع الحوار المنبثق، يرجى تحديد قائمة مصدر البيانات التي تريد إضافتها إلى مربع التحرير والسرد، انظر إلى لقطة الشاشة:

vba code to select the data list

5. وبعد ذلك، انقر فوق زر موافق، سيتم عرض القيم الفريدة فقط في مربع التحرير والسرد، انظر إلى لقطة الشاشة:

only the unique values are displayed in the combo box

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

a screenshot of kutools for excel ai

اكتشف سحر Excel مع Kutools AI

  • التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
  • الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
  • برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
  • تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
  • ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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