كيفية تعبئة مربع التحرير والسرد بقيم فريدة فقط في Excel؟
عند إنشاء مربع تحرير وسرد بقائمة بيانات تتضمن بعض القيم المكررة ، فلن يتم استبعاد القيم المكررة تلقائيًا في مربع التحرير والسرد. في هذه الحالة ، كيف يمكنك عرض العناصر الفريدة فقط في مربع التحرير والسرد الخاص بك؟ قد يكون هذا البرنامج التعليمي يمكن أن يقدم لك معروفًا.
قم بتعبئة مربع التحرير والسرد بقيم فريدة فقط باستخدام رمز VBA
قم بتعبئة مربع التحرير والسرد بقيم فريدة فقط باستخدام رمز VBA
قد يساعدك رمز VBA التالي على إضافة القيم الفريدة عند إنشاء مربع تحرير وسرد ، يرجى القيام بذلك على النحو التالي:
1. أدخل مربع التحرير والسرد أولاً ، الرجاء النقر المطور > إدراج > صندوق التحرير والسرد (عنصر تحكم ActiveX)، ثم اسحب الماوس لرسم مربع تحرير وسرد ، انظر الصورة:
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 مفتاح لتشغيل هذا الرمز ، وفي مربع المطالبة ، يرجى تحديد قائمة مصدر البيانات التي تريد إضافتها إلى مربع التحرير والسرد ، انظر لقطة الشاشة:
5. ثم انقر فوق OK زر ، يتم عرض القيم الفريدة فقط في مربع التحرير والسرد ، انظر الصورة:
معلومه- سرية: إذا لم يكن هناك المطور علامة التبويب في الشريط ، هذه المقالة كيفية إظهار / عرض علامة تبويب المطور في شريط 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
