كيف يمكنك منع إدخال خلايا فارغة أو ناقصة في Excel؟
إذا كنت تنشئ جدولًا في النطاق A1:B10 من ورقة العمل وترغب في التأكد من عدم ترك أي خلايا فارغة في هذا النطاق، يمكنك تنفيذ حل يعرض تلقائيًا رسالة تنبيه عند اكتشاف إدخال فارغ أثناء التعديل. اتبع هذا الدليل خطوة بخطوة لمنع إدخال خلايا فارغة أو ناقصة في نطاق الجدول المحدد.
منع إدخال خلايا فارغة أو ناقصة باستخدام كود VBA
منع إدخال خلايا فارغة أو ناقصة باستخدام كود VBA
النطاق A1:B10 مخصص لجدولك، حيث يُستخدم الخليجان A1 وB1 كعناوين للجدول، كما هو موضح في لقطة الشاشة أدناه. اتبع الخطوات الموضحة لمنع إدخال خلايا فارغة أو ناقصة ضمن النطاق A2:B10 أثناء ملء الجدول.
1. في ورقة العمل التي تريد منع الإدخالات الفارغة ضمن نطاق معيّن فيها، انقر بزر الماوس الأيمن على تبويب الورقة، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انسخ والصق كود VBA أدناه في نافذة الكود. راجع لقطة الشاشة:
كود VBA: منع الإدخالات الفارغة أو الناقصة في نطاق من الخلايا
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
ملاحظة: في كود VBA،A2:B10 هو نطاق الخلايا الذي لا تريد أن تترك أي خلية فارغة داخله. يُرجى تعديل النطاق وفقًا لاحتياجاتك.
ابتداءً من الآن، إذا تجاهلت خلية فارغة وقمت بملء الخلية التالية ضمن نطاق محدود، فستظهر نافذة حوارKutools لـ 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل