كيفية إدراج سجلات الأحداث التلقائية باستخدام الطابع الزمني لـ Excel VBA

تعد الطوابع الزمنية موردًا رائعًا لتحديد وقت وقوع الحدث. يمنحك Microsoft Excel خيار إضافة طوابع زمنية بتنسيق dd: mm: yyyy hh: mm: ss. تحتاج في الغالب إلى استخدام اختصارات لوحة المفاتيح أو تنفيذ وظائف Excel لإضافة الطوابع الزمنية ، وهي مهمة يدوية ومعرضة للأخطاء.

يأتي محرر التعليمات البرمجية لـ Excel Visual Basic لإنقاذك من خلال تمكينك من أتمتة المهمة بأكملها باستخدام البرامج النصية للطابع الزمني لـ VBA. يمكنك أيضًا إضافة شروط معقدة لأتمتة المهمة بشكل أكبر دون الاعتماد على عامل إدخال البيانات أو المتعاون. تابع القراءة لتتعلم بعض الحيل البسيطة لاستخدام VBA لإضافة طوابع زمنية في Excel.

1. كيفية إضافة الطابع الزمني لـ VBA: QAT Macro

يتيح لك رمز VBA التالي تشغيل وظيفة سجل الأحداث وقتما تشاء بنقرة واحدة من شريط أدوات الوصول السريع لـ Excel أو QAT. إنه مشابه لتشغيل ماكرو Excel VBA ، لذلك تحتاج إلى حفظ ورقة العمل الحالية باستخدام ملحق ملف ممكن بماكرو بعد تطبيق كود VBA:

• انقر بزر الماوس الأيمن فوق علامة تبويب ورقة العمل وانقر فوق "عرض الرمز" من قائمة السياق.
• انسخ رمز VBA والصقه في محرر الكود ، ثم انقر فوق حفظ .

Sub vba_timeStamp () Dim ts كتاريخ مع التحديد. القيمة = التاريخ + الوقت الذي ينتهي مع End Sub

• احفظ المصنف كملف ممكن بماكرو.
• الآن ، انقر فوق علامة التبويب "ملف" واختر "خيارات" من قائمة "ملف".
• انقر فوق شريط أدوات الوصول السريع (QAT) ثم قم بالتمرير في القائمة للعثور على عرض وحدات الماكرو .
• أضف عرض وحدات الماكرو إلى QAT وأغلق قائمة الخيارات بالنقر فوق موافق .
• الآن ، قم بتشغيل الماكرو من QAT عندما تحتاج إلى إضافة طابع زمني عن طريق تنفيذ كود VBA.

لأتمتة مهمة إنشاء الطابع الزمني بالكامل ، يمكنك استخدام البرامج النصية لـ VBA المذكورة أدناه.

2. كيفية إضافة الطابع الزمني لـ VBA: عندما تتغير ورقة العمل

سيضيف رمز VBA التالي طابعًا زمنيًا في خلايا العمود B عندما يكتشف التغييرات في الخلايا المقابلة للعمود A :

Private Sub Worksheet_SelectionChange (ByVal Target As Range) If Target.Column = 1 And Target.Value <> "" ثم Application.EnableEvents = False Target.Offset (0، 1) = Format (Now ()، "dd-mm-yyyy hh: mm: ss ") Application.EnableEvents = True End If End Sub

اتبع الخطوات المذكورة في الطريقة الأولى لفتح محرر كود VBA. الآن ، انقر نقرًا مزدوجًا فوق Sheet1 (Sheet1) ضمن قائمة VBAProject (Book1) لتنشيط تتبع تغييرات ورقة العمل.

يجب أن يعرض محرر الكود ورقة العمل في القائمة المنسدلة على الجانب الأيسر و SelectionChange في القائمة المنسدلة على الجانب الأيمن. يمكنك الآن نسخ رمز فبا أعلاه ولصقه. بمجرد الانتهاء من ذلك ، لا تنس حفظ الملف كمصنف Excel ممكّن بماكرو.

عندما تقوم بتشغيل هذا الماكرو ، سيضيف Excel تلقائيًا طابعًا زمنيًا في العمود B إذا كتبت شيئًا ما في العمود A. يمكنك أيضًا إضافة الماكرو إلى QAT باتباع الخطوات المذكورة في الطريقة السابقة لإضافة البرنامج النصي VBA.

الكلمات الأخيرة

الآن بعد أن عرفت كيفية استخدام محرر أكواد Excel VBA مع أكواد الطابع الزمني لـ VBA المذكورة أعلاه ، يمكنك البدء في تعديل مصنف Excel لإدراج الطوابع الزمنية تلقائيًا عندما تريد.

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