كيف تسمح بإدخال تنسيق التاريخ فقط في خلايا محددة في Excel؟
يمكن أن يساعد تقييد خلايا معيّنة في Excel للسماح فقط بإدخال تواريخ على ضمان اتساق البيانات. ويقدّم هذا الدليل طريقتين فعّالتين لتحقيق ذلك: استخدام ميزة «التحقق من صحة البيانات» أو تطبيق كود VBA بسيط لفرض إدخال التواريخ حصريًا في الخلايا المحددة.
السماح فقط بـ تنسيق التاريخ في خلايا محددة باستخدام وظيفة التحقق من صحة البيانات
السماح فقط بـ تنسيق التاريخ في خلايا محددة باستخدام كود VBA
السماح فقط بـ تنسيق التاريخ في خلايا محددة باستخدام وظيفة التحقق من صحة البيانات
في Excel، تُعد خاصيةالتحقق من صحة البياناتوظيفة قوية تساعدك في إنشاء قوائم منسدلة، ومنع إدخال القيم المكررة، وغيرها الكثير! كما يمكنها أيضًا منع إدخال أي بيانات لا تتبع تنسيق التاريخ في خلايا معيّنة. يُرجى اتباع الخطوات التالية:
1. انقر فوقبيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، كما هو موضح في لقطة الشاشة:
2. في مربع حوارالتحقق من صحة البيانات، انقر فوق علامة التبويبالإعدادات، ثم اخترمخصصمن القائمة المنسدلة لـالسماح، وأدخل الصيغة التالية: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)=«D») في مربع نصالصيغة، كما هو موضح في لقطة الشاشة:
ملاحظة: في الصيغة أعلاه،B2 هي الخلية الأولى في العمود الذي تريد تقييد تنسيق بياناته.
3.بعد ذلك، انقر فوق علامة التبويبتنبيه الخطأفي مربع الحوار واتبع الخطوات التالية:
(1.) تحقق من خيارإظهار تنبيه الخطأ بعد إدخال بيانات غير صالحة؛
(2.) ضمن قائمةالنمطالمنسدلة، اختر يرجى التحديدإيقاف؛
(3.) اكتبالعنوانورسالة الخطأاللذين تريد عرضهما في مربع التنبيه.
4. بعد الانتهاء من الإعدادات، انقر فوق زرموافق. الآن، عند إدخال بيانات بتنسيق تاريخ غير صالح، سيظهر مربع تنبيه لإعلامك، كما هو موضح في لقطة الشاشة التالية:
السماح فقط بـ تنسيق التاريخ في خلايا محددة باستخدام كود VBA
تعرض الطريقة الثانية كود VBA لإنجاز هذه المهمة.
1. فعِّل ورقة العمل التي تريد استخدامها.
2. ثم انقر بزر الماوس الأيمن على لسان الورقة، وحددعرض الكودمن القائمة السياقية، كما هو موضح في لقطة الشاشة:
3. في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمعروضة، انسخ والصق الكود أدناه فيالوحدة البرمجية (Module)، كما هو موضح في لقطة الشاشة:
كود VBA: السماح فقط بإدخال تنسيق التاريخ في خلايا محددة:
Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
4. احفظ الكود وأغلقه. الآن، عند إدخال قيمة في النطاق B2:B12 لا تتوافق مع تنسيق التاريخ، سيظهر مربع تنبيه لتذكيرك وستُمسح قيمة الخلية تلقائيًا في الوقت نفسه، كما هو موضح في لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل