جدول المحتويات
غالبًا ما يكون من الضروري تحويل نطاق من التواريخ والأوقات إلى تواريخ فقط. يمكننا استخدام Excel VBA لتحويل التاريخ والوقت حتى الآن فقط. يوضح هذا المقال كيفية القيام بذلك بأبسط طريقة. الصورة التالية تعطي فكرة عن الغرض من هذه المقالة.
تنزيل Practice Workbook
يمكنك تنزيل المصنف التدريبي من زر التنزيل أدناه.
DateTime to Date Only.xlsmExcel VBA لتحويل التاريخ والوقت إلى تاريخ فقط
تخيل أن لديك مجموعة البيانات التالية من التواريخ والأوقات في العمود B .
الآن ، حدد النطاق الكامل للتواريخ والأوقات. بعد ذلك ، قم بتغيير تنسيق الأرقام إلى عام . بعد ذلك ، ستشاهد تحويل التواريخ والأوقات إلى أرقام عشرية على النحو التالي.
هنا ، تمثل الأجزاء الصحيحة من الأرقام التواريخ. وتمثل الكسور العشرية الأوقات.
الآن ، افترض أنك تريد استخدام Excel VBA لتحويل التواريخ والأوقات إلى تواريخ فقط. بعد ذلك ، اتبع الخطوات أدناه.
📌 الخطوات
- في البداية ، يمكنك الضغط على CTRL + Z للعودة إلى تنسيق التاريخ والوقت.
- ثم ، اضغط على ALT + F11 في Windows و Opt + F11 على Mac لفتح Microsoft Visual Basic for Applications . يمكنك أيضًا القيام بذلك من علامة التبويب Developer .
- الآن ، أدخل وحدة نمطية جديدة بتحديد Insert & gt؛ & gt؛ الوحدة النمطية .
- بعدذلك ، انسخ الكود التالي.
8358
- ثم الصق المنسوخة على الوحدة النمطية الفارغة كما يلي.
- بعد ذلك ، قم بتشغيل الكود بالنقر فوق الزر تشغيل أو من تشغيل
- بعد ذلك ، سيتم تحويل التواريخ والأوقات إلى تواريخ فقط كما هو موضح أدناه.
الآن ، حدد النطاق الكامل للتواريخ والأوقات والتواريخ المحولة. بعد ذلك ، قم بتغيير تنسيق الأرقام إلى عام . سترى أن التواريخ المحولة تحتوي على أعداد صحيحة فقط. هذا يتحقق من أن التواريخ والأوقات قد تم تغييرها بشكل صحيح إلى التواريخ فقط.
المحتوى المرتبط: كيفية تحويل النص من تنسيق التاريخ والوقت إلى التاريخ في Excel (7 طرق سهلة)
أشياء يجب تذكرها
- تحتاج إلى تغيير وسيطات النطاق في الكود وفقًا لمجموعة البيانات الخاصة بك.
- يمكنك تغيير تنسيق mm-dd-yy في الكود إلى تنسيق التاريخ الذي تريده .
الخاتمة
الآن ، أنت تعرف كيفية استخدام Excel VBA تحويل التاريخ والوقت حتى الآن فقط. إذا كانت لديك أسئلة أو اقتراحات أخرى ، فيرجى استخدام قسم التعليقات أدناه. يمكنك أيضًا زيارة مدونتنا Exceldemy لمعرفة المزيد حول التفوق وتحسين أدائك.