كيف تُدرج مؤقّت العد التنازلي في Excel؟
إذا كنت ترغب في التعامل مع بياناتك خلال فترة زمنية محدودة، يمكنك إدراج مؤقّت عدٍّ تنازلي مباشرةً في ورقة العمل الخاصة بك، بحيث يُظهر لك مربع حوار منبثق لتذكيرك فور انتهاء الوقت المحدد. إليك كود VBA الذي يُمكّنك من إضافة هذا المؤقّت إلى Excel.
إدراج مؤقت العد التنازلي في Excel
إدراج مؤقت العد التنازلي في Excel
لا يمكن لبرنامج Excel أن يُعدّ الوقت تنازليًا تلقائيًا، لكنك تستطيع نسخ كود VBA التالي للمساعدة في تنفيذ العد التنازلي للوقت.
1. حدد خلية وقم بتنسيقها كوقت بالنقر بزر الماوس الأيمن عليها واختيارتعيين تنسيق الخلية، ثم في مربع الحوار، انقر علىالوقتواختر13:30:55 من قائمةالنوع، ثم انقر علىموافقلإغلاق مربع الحوار. انظر لقطة الشاشة:
 |
 |
 |
2. اكتب الوقت الذي تريد العد التنازلي له في الخلية التي تم تنسيقها، كما هو موضح في لقطة الشاشة:
3. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
4. انقر علىإدراج > وحدة، ثم انسخ كود VBA التالي إلى النافذة الجديدة.
VBA: مؤقِّت العد التنازلي.
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("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
ملاحظة: تشير الخلية E1 في الكود أعلاه إلى خلية الوقت التي أدخلتها في الخطوة 2.
5. انقر على زرتشغيلأو اضغط على مفتاحF5 لتشغيل مؤقت العد التنازلي. الآن، بدأ العد التنازلي للوقت.
6. عند انتهاء العد التنازلي، سيظهر لك مربع حوار منبثق لتذكيرك.
ملاحظة: لا يمكنك إيقاف العد التنازلي أثناء تشغيله إلا بإغلاق ملف المصنف.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل