VBA الآن (دليل خطوة بخطوة) | كيفية استخدام وظيفة الآن في Excel VBA؟
وظيفة Excel VBA Now
NOW هي دالة التاريخ والوقت في كل من VBA والتي تُستخدم للحصول على تاريخ النظام الحالي ووقته ، تمامًا مثل وظيفة ورقة العمل التي لا تأخذ أي وسيطات فيها ، في VBA الآن لا تأخذ الوظيفة أيضًا أي وسيطات ، ناتج الإرجاع لهذه الوظيفة هو التاريخ.
تشبه وظيفة VBA NOW تلك الموجودة في دالة ورقة عمل Excel. مثل وظيفة DATE في VBA "NOW" أيضًا لا تحتوي على معلمات لتمريرها ، نحتاج فقط إلى تمرير الدالة بأقواس مغلقة أو لا حاجة للأقواس أيضًا. باستخدام وظيفة DATE في VBA ، يمكننا إنشاء التاريخ الحالي كإظهار النظام الذي نعمل عليه. ومع ذلك ، فقد رأيت مواقف نحتاج فيها إلى الوقت الحالي جنبًا إلى جنب مع التاريخ أيضًا. في Excel ، يمكننا القيام بالعديد من الأشياء ، وبالمثل ، يمكننا إنشاء التاريخ والوقت الحاليين باستخدام وظيفة بسيطة تسمى NOW in excel.
صيغة VBA NOW بسيطة.
حاليا ()
مثال على دالة NOW في VBA Excel
انظر إلى المثال البسيط لوظيفة NOW في VBA. اتبع الخطوات التالية لكتابة كود VBA ولديك قدر لا بأس به من المعرفة حول NOW بالإضافة إلى كتابة الكود.
الخطوة 1: ابدأ الإجراء الفرعي بإعطاء اسم ماكرو.
رمز:
Sub Now_Example1 () End Sub
الخطوة 2: قم بتعريف المتغير على أنه "تاريخ". سبب حاجتنا إلى إعلان المتغير كـ "تاريخ" لأن النتيجة النهائية في تنسيق التاريخ والوقت.
رمز:
Sub Now_Example1 () خافت k كتاريخ انتهاء فرعي
الخطوة 3: قم بتعيين القيمة إلى المتغير "k" عن طريق تطبيق وظيفة VBA NOW.
رمز:
Sub Now_Example1 () Dim k كتاريخ k = Now End Sub
الخطوة 4: اعرض الآن قيمة الدالة NOW التي قمنا بتعيينها للمتغير "k" في مربع الرسالة في VBA.
رمز:
Sub Now_Example1 () Dim k كتاريخ k = الآن MsgBox k End Sub
حسنًا ، انتهينا.
قم بتشغيل الكود باستخدام المفتاح F5 أو يدويًا وشاهد النتيجة.
تظهر النتيجة 4/15/2019 الساعة 5:03:35.
تنسيق تاريخ الكمبيوتر الخاص بي هو "mm-dd-yyyy".
يمكننا أيضًا تغيير تنسيق التاريخ باستخدام وظيفة FORMAT. يوجد أدناه رمز لتغيير تنسيق التاريخ.
رمز:
Sub Now_Example1 () خافت k كتاريخ k = الآن تنسيق MsgBox (k، "DD-MMM-YYYY HH: MM: SS") End Sub
قم بتشغيل الكود وشاهد الفرق.
الآن لدينا تنسيق التاريخ والوقت المناسب. باستخدام هذا التنسيق ، يمكن لأي شخص فهم تنسيق التاريخ والوقت.
متقلب في الطبيعة:
كما ترى في المثال الأول ، حصلنا على نتيجة الوقت 5:03:35 وفي المثال الثاني ، ننتقل إلى النتيجة 17:19:02. هذا يدل على أن وظيفة NOW هي وظيفة متقلبة تتغير كل ثانية.
بديل لوظيفة المؤقت في VBA
كبديل لـ VBA TIMER ، يمكننا استخدام وظيفة "VBA NOW" لحساب الوقت الإجمالي الذي يستغرقه الماكرو لإكمال المهمة.
استخدم الكود أدناه لحساب الوقت الذي يستغرقه الرمز الخاص بك.
C0de:
Sub TotalDuration () Dim k As Date k = Now '' 'أدخل الرمز الخاص بك هنا' '' MsgBox "إجمالي الوقت الذي يستغرقه الماكرو لإكمال المهمة هو:" & _ Format ((Now - k)، "HH: MM : SS ") End Sub
في المنطقة ذات اللون الأخضر ، انسخ الكود والصقه.
نفّذ الكود بالضغط على مفتاح F5 أو الضغط على زر التشغيل. بمجرد اكتمال التنفيذ ، سنحصل على الوقت الذي يستغرقه الماكرو لإكمال رسالة المهمة في مربع الرسالة. أدناه مثال على ذلك.
مثل هذا ، يمكننا استخدام وظيفة NOW بعدة طرق في VBA.
يمكنك تنزيل قالب وظيفة Excel VBA Now من هنا - قالب وظيفة VBA Now
