كيفية تعبئة مربع التحرير والسرد بقيم فريدة فقط في 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؟ قد تقدم خدمة لك لعرض علامة تبويب المطور.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!