كيفية إدراج طابع زمني باستخدام vba (مع مثال)

يمكنك استخدام بناء الجملة الأساسي التالي في VBA لإدراج طابع زمني في خلية معينة في Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

يقوم هذا الماكرو المحدد بإدراج الوقت الحالي بتنسيق mm/dd/yyyy hh:mm:ss في الخلية A1 .

ملاحظة : تقوم وظيفة VBA Now بإرجاع التاريخ والوقت الحاليين بناءً على تاريخ ووقت نظام الكمبيوتر الخاص بك.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية إدراج طابع زمني باستخدام VBA

لنفترض أننا أنشأنا الماكرو التالي لإدراج التاريخ والوقت الحاليين كطابع زمني في الخلية A1 من الورقة الحالية في Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

تعرض الخلية A1 الآن التاريخ والوقت الحاليين لتشغيل هذا الماكرو.

في هذا المثال تحديدًا، يكون التاريخ والوقت بالتنسيق mm/dd/yyyy hh:mm:ss .

لاحظ أنه يمكننا أيضًا تحديد تنسيق مختلف لاستخدامه.

على سبيل المثال، يمكننا إنشاء الماكرو التالي لعرض الوقت الحالي بتنسيق dd-mm-yyyy hh:mm:ss في الخلية B1 :

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

تعرض الآن الخليتان A1 و B1 التاريخ والوقت الحاليين بتنسيقات مختلفة.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة التنسيق في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية مقارنة التواريخ في VBA
كيفية تنسيق الوقت في VBA
كيفية حساب فرق التوقيت في VBA