كيفية تعيين قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات في Excel؟
يساعد تعيين قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات الآخرين على تحديد خلايا القائمة المنسدلة بسهولة بلمحة في ورقة العمل. توفر هذه المقالة طريقة VBA لتعيين قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات بالتفصيل.
قم بتعيين قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات باستخدام رمز VBA
قم بتعيين قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات باستخدام رمز VBA
كما هو موضح أدناه ، افترض أن جميع الخلايا الموجودة في النطاق B2: C7 تحتوي على قائمة منسدلة ، وتريد تعيين قيمة افتراضية (يقول - اختر من القائمة -) في هذه القائمة المنسدلة قبل اختيار القيم منها. يمكنك تجربة رمز VBA التالي.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة مع القوائم المنسدلة التي تحتاجها لتعيين قيمة افتراضية ، ثم انقر فوق عرض الرمز من القائمة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.
كود فبا: عيّن قيمة افتراضية في القائمة المنسدلة للتحقق من صحة البيانات
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
ملاحظات: يمكنك تغيير القيمة الافتراضية في كود فبا إلى القيمة التي تحتاجها.
6. اضغط على F5 مفتاح لتشغيل الكود. يمكنك رؤية القيم الافتراضية المضافة إلى جميع خلايا القائمة المنسدلة كما هو موضح أدناه.
ملاحظة:
مقالات ذات صلة:
- كيفية الإكمال التلقائي عند الكتابة في قائمة Excel المنسدلة؟
- كيفية إنشاء تقويم قائمة منسدلة في Excel؟
- كيفية إنشاء قائمة منسدلة قابلة للبحث في Excel؟
- كيفية إنشاء قائمة منسدلة مع تحديدات أو قيم متعددة في Excel؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!