كيفية عرض قيمة افتراضية تلقائيًا عند حذف القيمة في القائمة المنسدلة في Excel؟

في Excel، باستخدام التحقق من صحة البيانات، يمكنك إنشاء قائمة منسدلة للمستخدمين لاختيار القيم. ومع ذلك، قد ترغب في أن تظهر قيمة افتراضية مثل "-Select-" تلقائيًا عند حذف العنصر المحدد من الخلية المنسدلة. يقدم هذا المقال حلًا خطوة بخطوة باستخدام كود VBA.

عرض قيمة افتراضية تلقائيًا عند حذف القيمة في القائمة المنسدلة

عرض قيمة افتراضية تلقائيًا عند حذف القيمة في القائمة المنسدلة

1. انقر بزر الماوس الأيمن على تبويب ورقة العمل الذي يحتوي على القائمة المنسدلة، ثم حدد عرض الكود من قائمة السياق.

2. في نافذة Microsoft Visual Basic for Applications التي تظهر، قم بنسخ ولصق الكود أدناه في محرر النصوص.

VBA: عرض القيمة الافتراضية عند حذف العنصر المحدد في القائمة المنسدلة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xObjV As Validation
On Error Resume Next
Set xObjV = Target.Validation
If xObjV.Type = xlValidateList Then
 If IsEmpty(Target.Value) Then Target.Value = "-Select-"
End If
End Sub

3. احفظ الكود. بعد حذف العنصر المحدد، ستظهر القيمة الافتراضية في الخلية المنسدلة حتى يتم تحديد عنصر جديد.