كيف تعيين قيمة افتراضية في قائمة منسدلة خاضعة للتحقق من صحة البيانات في Excel؟
يساعد تعيين قيمة افتراضية في التحقق من صحة البيانات عبر القائمة المنسدلة الآخرين على التعرّف بسهولة على الخلايا التي تحتوي على قائمة منسدلة عند إلقاء نظرة سريعة على ورقة العمل. وتقدّم هذه المقالة طريقة مفصّلة باستخدام VBA لتعيين قيمة افتراضية في التحقق من صحة البيانات للقائمة المنسدلة.
تعيين قيمة افتراضية في التحقق من صحة البيانات قائمة منسدلة باستخدام كود VBA
تعيين قيمة افتراضية في التحقق من صحة البيانات قائمة منسدلة باستخدام كود VBA
كما في لقطة الشاشة أدناه، لنفترض أن جميع الخلايا في النطاق B2:C7 تحتوي على قائمة منسدلة، وتريد تعيين قيمة افتراضية (مثل)- اختر من القائمة -) في هذه الخلايا المزوَّدة بقائمة منسدلة قبل اختيار القيم منها. جرّب كود VBA التالي!
1. انقر بزر الماوس الأيمن على لسان ورقة العمل التي تحتوي على القائمة المنسدلة التي تريد تعيين قيمة افتراضية لها، ثم اخترعرض الكودمن القائمة.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انسخ والصق كود VBA التالي في نافذة الكود.
كود VBA: تعيين قيمة افتراضية في التحقق من صحة البيانات قائمة منسدلة
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Subملاحظة: يمكنك تغيير القيمة الافتراضية في كود VBA إلى القيمة التي تناسب احتياجاتك.
6. اضغط على مفتاحF5 لتشغيل الكود، وسترى أن القيم الافتراضية قد أُضيفت تلقائيًا إلى جميع خلايا القائمة المنسدلة، كما هو موضح في لقطة الشاشة أدناه.
ملاحظات:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن إكمال النص تلقائيًا أثناء الكتابة في قائمة منسدلة في Excel؟
- كيف تُنشئ تقويمًا كقائمة منسدلة في Excel؟
- كيف تُنشئ قائمة منسدلة قابلة للبحث في Excel؟
- كيف تُنشئ قائمة منسدلة في Excel تسمح باختيار قيم متعددة؟
- كيف يمكن ملء الخلايا الأخرى تلقائيًا عند اختيار قيمة من القائمة المنسدلة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل