كيفية إدراج العد التنازلي في إكسيل؟
إذا كنت ترغب في التعامل مع بعض البيانات في وقت محدود ، يمكنك إدراج عداد للعد التنازلي في ورقة عمل البيانات الخاصة بك ، وعند الانتهاء من العد التنازلي للوقت ، سيكون هناك مربع حوار منبثق لتذكيرك. سأخبرك هنا برمز VBA لإدخال مؤقت للعد التنازلي في Excel.
أدخل مؤقت العد التنازلي في Excel
أدخل مؤقت العد التنازلي في Excel
في Excel ، لا يمكن العد التنازلي ، ولكن يمكنك نسخ رمز VBA التالي للمساعدة في العد التنازلي للوقت.
1. حدد خلية وقم بتنسيقها كتنسيق زمني عن طريق النقر بزر الماوس الأيمن على الخلية وتحديدها تنسيق الخلايا، ثم في مربع الحوار ، النقر فوق الوقت: واختيار 13:30:55 في ال النوع القائمة ، النقر في الماضي OK للخروج من هذا الحوار. انظر لقطة الشاشة:
2. اكتب الوقت الذي تريده للعد التنازلي في خلية التنسيق. انظر لقطة الشاشة:
3. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
4. انقر إدراج > وحدة ثم قم بنسخ التالي 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 for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!