كيف تعبئ مربع التحديد بالقيم الفريدة في Excel؟
عند إنشائك مربع تحديد يحتوي على قائمة بيانات تتضمّن قيمًا مكررة، لن تُستبعد هذه القيم المكررة تلقائيًا من مربع التحديد. فكيف يمكنك عرض العناصر الفريدة فقط في مربع التحديد الخاص بك؟ قد يكون هذا البرنامج التعليمي مفيدًا لك.
تعبئة مربع التحديد بـ القيم الفريدة باستخدام كود VBA
تعبئة مربع التحديد بـ القيم الفريدة باستخدام كود VBA
قد يساعدك كود VBA التالي على إضافة القيم الفريدة عند إنشاء مربع تحديد، يرجى اتباع الخطوات التالية:
1. أولاً، لإدراج مربع تحديد، انقر فوقالمطوّر > إدراج > مربع التحديد (عنصر تحكم ActiveX)، ثم اسحب الماوس لرسم مربع التحديد. انظر لقطة الشاشة:
2. بعد ذلك، انقر بزر الماوس الأيمن على مربع التحديد، ثم اخترعرض الكودمن القائمة السياقية. انظر لقطة الشاشة:
3. ستظهر نافذةمايكروسوفت 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 لتشغيل هذا الكود. في مربع الحوار الظاهر، يُرجى تحديد قائمة نطاق المصدر التي تريد إضافتها إلى مربع التحديد. انظر لقطة الشاشة:
5. ثم انقر على زرموافق، وستُعرض القيم الفريدة فقط في مربع التحديد. انظر لقطة الشاشة:
تلميح: إذا لم تظهر علامة تبويبالمطوّرفي الشريط، فقد يساعدك هذا المقالكيفية إظهار/عرض علامة تبويب المطوّر في Excel 2007/2010/2013 الشريط؟على عرضها.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل