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