كيف يمكنني وضع عداد تنازلي (ساعة تنازلية) في اكسل 2016 ؟

كيف يمكنني وضع عداد تنازلي يشبه ساعة تنازلية في اكسل 2016 ؟

للمتابعة @DMZ @NIO @Rema

1 Like

الطريقة التي سأشرحها تحتوي على وقت و تاريخ اخذ الفكرة من المعادلة سيعطيك القدرة على التحكم بها كما تريدين

اولاً نقوم بأدخال الوقت و التاريخ المستهدف و يُطلق عليها بالانكليزية DEADLINE
و يتم الامر بكتابة المعادلة بهذه الطريقة: 14:00 2019-7-31
لقد وضعت عمداً رقم 14 لاقول لاكسل اعني ساعة 2 بعد الظهر, استخدام التوقيت ذو نظام 24 يجعل العملية اسهل.
الان وضعنا الوقت المستهدف
ناتي الان الى صنع العداد التنازلي و يعمل لحظياً اي بالوقت الفعلي.
نوقم بأدخال هذه المعادلة في حقل اخر لنصنع عداد تنازلي و تتم بهذه الطريقة
الحقل الذي يحتوي التارخ و الوقت ناقصاً معادلة الان كما في الصورة

يمكن العثور على NOW من خلال formulas ثم time and date

الان حين نكمل المعادلة و ننقر على enter ستظهر لنا ارقام عشوائية غير مفهومة مثل التي في الصورة
نحن نريد ان نصنع شيء يشبه الساعة

لكي نجعل الحقل يُظهر قيم مثل الساعة يجب ان نغير نوع الحقل الى Time و نختار صيغة لا تحتوي على الصباح و المساء لكي يظهر العداد التنازلي بشكل قياسي و يتم الامر عن طريق النقر على الحقل و اختار Time

مرة اخرى ننقر على القائمة المستندلة و لكن نختار more numbers and formulas لألغاء الصباح و المساء

من نافذة more numbers and formulas نختار صيغة لا تحتوي على الصباح و المساء و تقوم بعد الساعات المتبقية (متبقي لي 37 ساعة على سبيل المثال)
image

الان اصبح لدينا عداد تنازلي كامل و لكنه غير حي, اي ان التغير به لا يحدث بالوقت الفعلي. (العداد يحسب و لكن لا يتحرك)

الان لجعل العداد حي نقوم بالتالي:
نقوم بالضغط على Alt و F11 لفتح نافذة Microsoft Visual Basic for Applications
1- ننقر على Insert و نختار Module

في نافذة Module نقوم بلصق الشفرة في الاسفل

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("J12")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

ملاحظة: في الشفرة فوق هناك رمز J12 و هو الرمز الخاص بي, يرجى استبداله برمز الخلية الخاصة بك و يمكن العثور عليها في الصورة ادناه (المز يعود للخلية التي تحتوي العداد التنازلي)

بعد لصق الشفرة في نافذة Module ننقر على Run

الان نقوم بتخزين الشفرة و المستند

الان اصبح لدينا عداد تنازلي يعمل بشكل حي

1 Like

تظهر لي هذه الرسالة و لا يتم تخزين المستند

نذهب الى File ثم

  • Options > Trust Center > Trust Center Settings > Privacy Options >
    نزيل علامة الصح من المربع الصغير في المربع الازرق ثم ننقر OK