وظيفة وقت VBA | أمثلة لاستخدام وظيفة وقت Excel VBA

وظيفة وقت Excel VBA

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

الوقت هو نوع من الوظائف المتقلبة ، ولا يحتوي على أي بناء جملة لها.

لدينا أيضًا وظيفة مماثلة في وظيفة Excel - NOW () التي تُدرج الأوقات الحالية وكذلك التاريخ الحالي في جدول البيانات

الوقت ()

نحتاج فقط إلى إدخال الدالة ، في الواقع ، لا داعي لوضع أقواس لإحاطة TIME فقط بما يكفي لإدخال الوقت الحالي. النتيجة التي قدمتها الدالة TIME موجودة في السلسلة.

كيفية استخدام وظيفة الوقت في VBA؟

اسمحوا لي أن أريكم مثالا على TIME بسيط في وظيفة excel. اتبع الخطوات أدناه لإنشاء رمز لاستخدام وظيفة الوقت.

يمكنك تنزيل قالب وظيفة VBA Time من هنا - قالب وظيفة VBA Time

الخطوة 1: إنشاء ماكرو.

رمز:

 Sub Time_Example1 () End Sub 

الخطوة 2: قم بتعريف متغير على أنه سلسلة.

رمز:

 Sub Time_Example1 () خافت الوقت الحالي على أنه String End Sub 

الخطوة 3: قم بتعيين قيمة لهذا المتغير من خلال وظيفة الوقت.

رمز:

 Sub Time_Example1 () خافت CurrentTime كسلسلة CurrentTime = Time End Sub 

الخطوة 4: الآن اعرض النتيجة في مربع الرسالة.

رمز:

 Sub Time_Example1 () خافت الوقت الحالي كسلسلة CurrentTime = وقت MsgBox CurrentTime End Sub 

قم بتشغيل هذا الرمز باستخدام مفتاح F5 أو يدويًا سنحصل على الوقت الحالي.

لذلك ، عند تشغيل هذا الرمز ، كان الوقت 11.51.54 صباحًا.

وظيفة بديلة الآن ()

مزيج من التاريخ والوقت كبديل لوظيفة NOW

كما قلت في بداية المقال ، يمكن الآن إدراج التاريخ والوقت الحاليين. ومع ذلك ، يمكننا استخدام وظيفتين أخريين كوظيفة بديلة لوظيفة NOW ، هاتان الوظيفتان هما وظائف VBA DATE & VBA TIME.

سيعيد VBA Date التاريخ الحالي وسيعيد الوقت الوقت الحالي ، لذلك يجعل هذا وظيفة NOW. يوجد أدناه مجموعة من التعليمات البرمجية التي ستدرج التاريخ والوقت الحاليين في الخلية A1.

رمز:

 Sub Time_Example2 () Range ("A1"). القيمة = التاريخ & "" & Time End Sub 

سيقوم هذا الرمز بإدراج التاريخ والوقت الحاليين في الخلية A1.

يمكننا أيضًا تطبيق تنسيق على هذه القيم باستخدام دالة FORMAT. سيقوم الكود أدناه بتنسيق التاريخ والوقت.

رمز:

 Sub Time_Example2 () Range ("A1"). القيمة = التاريخ & "" & النطاق الزمني ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

الآن نتيجة هذا الرمز كما يلي.

تعقب السجلات المفتوحة في المصنف الخاص بك باستخدام وظيفة الوقت في VBA

في كثير من الأحيان نحتاج إلى معرفة تردد وقت فتح المصنف الخاص بنا. هناك موقف نفتح فيه المصنف كثيرًا ونقوم ببعض التغييرات. من خلال تتبع وقت وتاريخ فتح المصنف ، يمكننا تتبع وقت فتح المصنف.

قم بإنشاء ورقة جديدة وأعد تسميتها باسم "ورقة المسار".

الخطوة 1: انقر نقرًا مزدوجًا فوق هذا المصنف من محرر VBE.

الخطوة 2: حدد المصنف من القائمة المنسدلة للكائنات.

الخطوة 3: بمجرد تحديد هذا الخيار ، يمكنك رؤية ماكرو جديد تم إنشاؤه تلقائيًا بنفسه باسم "Workbook_Open ()".

الخطوة 4: داخل هذا الماكرو ، سنحتاج إلى كتابة رمز لتتبع تاريخ ووقت فتح المصنف.

لقد كتبت بالفعل رمزًا وفيما يلي رمز لك.

رمز:

 Private Sub Workbook_Open () Dim LR As Long LR = Sheets ("Track Sheet"). Cells (Rows.Count، 1). End (xlUp) .Row + 1 Sheets ("Track Sheet"). Cells (LR، 1) .Value = Date & "" & Time () Sheets ("Track Sheet"). Cells (LR، 1) .NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

سيؤدي هذا إلى تسجيل أوقات عمل المصنف الخاص بك مثل الوقت أدناه.


$config[zx-auto] not found$config[zx-overlay] not found