كيفية تعيين قيمة افتراضية في قائمة التحقق من صحة البيانات المنسدلة في Excel؟
تعيين قيمة افتراضية في قائمة التحقق من صحة البيانات المنسدلة يساعد الآخرين على تحديد خلايا القائمة المنسدلة بسهولة وبسرعة في ورقة العمل. يقدم هذا المقال طريقة VBA لتعيين قيمة افتراضية في قائمة التحقق من صحة البيانات المنسدلة بالتفصيل.
تعيين قيمة افتراضية في قائمة التحقق من صحة البيانات المنسدلة باستخدام كود VBA
تعيين قيمة افتراضية في قائمة التحقق من صحة البيانات المنسدلة باستخدام كود VBA
كما هو موضح في لقطة الشاشة أدناه، بافتراض أن جميع الخلايا في النطاق B2:C7 تحتوي على قائمة منسدلة، وتريد تعيين قيمة افتراضية (مثل - اختر من القائمة -) في هذه القوائم المنسدلة قبل اختيار القيم منها. يمكنك تجربة الكود التالي لـ VBA.
1. انقر بزر الماوس الأيمن على تبويب الورقة الذي يحتوي على القوائم المنسدلة التي تحتاج إلى تعيين قيمة افتراضية لها، ثم انقر فوق عرض الكود من القائمة.
2. في نافذة Microsoft Visual Basic for Applications، انسخ والصق الكود التالي لـ 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 لتشغيل الكود. ستلاحظ أن القيم الافتراضية قد تم إضافتها إلى جميع خلايا القائمة المنسدلة كما هو موضح في لقطة الشاشة أدناه.
ملاحظات:

اكتشف سحر Excel مع 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد