كيفية إدراج مؤقت العد التنازلي في ورقة عمل Excel

لا يحتوي Excel بمفرده على وظيفة لتضمين مؤقت للعد التنازلي. ومع ذلك ، مع لغة برمجة تسمى Visual Basic للتطبيقات، من الممكن كتابة ماكرو بسيط لأداء وظيفة العد التنازلي. توضح هذه المقالة كيفية إنشاء ماكرو يمكّن عداد الوقت من العد التنازلي حتى 12 ساعة ، وهو مناسب لإدارة الوقت داخل ورقة العمل.

تنسيق خلية المؤقت

الخطوة 1

في ورقة عمل جديدة مفتوحة ، انتقل إلى الخلية A1. سيكون هذا هو موقع مثال العداد.

فيديو اليوم

الخطوة 2

الوصول إلى تنسيق الخلية

حقوق الصورة: الصورة مجاملة من مايكروسوفت

انقر بزر الماوس الأيمن فوق الخلية أ 1 واختر تنسيق الخلايا.

الخطوه 3

تحديد تنسيق الساعات الدقيقة.

حقوق الصورة: الصورة مجاملة من مايكروسوفت

يختار زمن من مربع الفئة واختر أحد تنسيقات الساعات: الدقائق: الثواني. انقر موافق لتعيين تنسيق الخلية.

قم بإنشاء الماكرو

الخطوة 1

فتح وحدة VBA النمطية.

حقوق الصورة: الصورة مجاملة من مايكروسوفت

قم بالوصول إلى نافذة تحرير Visual Basic بالضغط على ALT-F11. انقر إدراج من شريط القائمة وانقر وحدة.

الخطوة 2

إدخال كود فبا

حقوق الصورة: الصورة مجاملة من مايكروسوفت

أدخل النص التالي في نافذة الوحدة 1:

خافت gCount كتاريخ
مؤقت فرعي ()
gCount = Now + TimeValue ("00:00:01")
طلب. OnTime gCount ، "EndMessage"


End Sub
Sub EndMessage ()
خافت xRng كمدى
تعيين xRng = التطبيق. الورقة النشطة. النطاق ("A1")
xRng. القيمة = xRng. القيمة - التسلسل الزمني (0 ، 0 ، 1)
إذا كان xRng. القيمة <= 0 ثم
MsgBox "اكتمال العد التنازلي."
خروج Sub
إنهاء إذا
إنهاء توقيت الاتصال
End Sub

أنت تستطيع نسخ و لصق نص الكود أعلاه ، أو يمكنك كتابته ، سطراً بسطر ، في نافذة الوحدة النمطية 1. يطبق محرر VBA التنسيق حسب الحاجة.

الخطوه 3

الحفظ كمصنف ممكن بماكرو

حقوق الصورة: الصورة مجاملة من مايكروسوفت

تصغير نافذة VBA بالنقر فوق - رمز في الزاوية اليمنى العليا. انقر ملف على الشريط و حفظ باسم. حدد موقعًا لحفظ ملفك. في نافذة حفظ باسم ، قم بتسمية المصنف الخاص بك وحدده مصنف Excel بماكرو (* .xlsm) من حفظ كنوع قائمة منسدلة. انقر يحفظ والعودة إلى المصنف.

باستخدام الموقت

الخطوة 1

انقر فوق الخلية أ 1 وادخل 0:3:0، ثم اضغط يدخل. هذا يضبط الوقت لمدة 0 ساعة و 3 دقائق و 0 ثانية.

الخطوة 2

انقر على رأي علامة التبويب على الشريط وانقر فوق وحدات ماكرو. يختار الموقت من قائمة الماكرو وانقر فوق يركض. ستبدأ خلية المؤقت في العد التنازلي حتى الصفر ، عندما يكون ملف اكتمل العد التنازلي يفتح الحوار. انقر موافق للعودة إلى عملك.

نصيحة

ليس عليك استخدام الخلية A1. ضع جهاز ضبط الوقت في أي مكان وقم بتغيير مرجع الخلية في السطر 8 من رمز المؤقت من A1 إلى الخلية التي تستخدمها.