كيفية إنشاء ساعة توقيت في ورقة عمل Excel؟
إذا كانت هناك ساعة توقيت في ورقة العمل الخاصة بك ، فستعرف الوقت اللازم لإنهاء المهمة. كيف يمكنك إنشاء ساعة توقيت في ورقة باستخدام زر البدء والإيقاف وإعادة الضبط كما هو موضح في لقطة الشاشة التالية؟ إذا قمت بالنقر فوق الزر "ابدأ" ، فسيبدأ الوقت ، وإذا قمت بالنقر فوق الزر "إيقاف" ، فسيتوقف الوقت ، ويمكن أن يساعدك الزر "إعادة تعيين" في إعادة تعيين الوقت. في هذه المقالة ، سأتحدث عن كيفية إنشاء ساعة توقيت بسيطة وسهلة الاستخدام في Excel.
قم بإنشاء ساعة توقيت بثلاثة أزرار باستخدام كود فبا
قم بإنشاء ساعة توقيت بثلاثة أزرار باستخدام كود فبا
لإنشاء ساعة توقيت بثلاثة أزرار ، ابدأ وإيقاف وإعادة تعيين ، يرجى اتباع الخطوات التالية واحدة تلو الأخرى.
أولاً ، أدخل ثلاثة أزرار أوامر.
1. انقر المطور > إدراج > زر الأوامر، انظر لقطة الشاشة:
2. ثم اسحب الماوس لرسم زر ، بعد إدخال الزر ، يمكنك تغيير تسمية الزر ، من فضلك انقر المطور > عقارات، في عقارات الحوار ، أدخل التسمية التوضيحية الجديدة "آبدأ"لهذا الزر في مربع النص بجانب شرح، انظر لقطات الشاشة:
3. كرر الخطوتين السابقتين لإدراج زرين آخرين وتعليقهما كـ "قلة النوم"و"إعادة تعيين"، انظر لقطة الشاشة:
4. بعد إدخال الأزرار ، يجب الخروج من وضع التصميم بالنقر فوق المطور > وضع التصميم.
ثانيًا ، قم بإنشاء كود VBA.
5. وبعد ذلك ، انقر بزر الماوس الأيمن فوق علامة تبويب ورقة العمل الحالية ، واختر عرض الرمز، في المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في ملف كود الورقة:
كود فبا: إنشاء ساعة توقيت:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
ملاحظات: في الكود أعلاه ، C2 هي الخلية التي سيتم إدراج وقت ساعة الإيقاف فيها ، و زر الأوامر1, زر الأوامر2, زر الأوامر3 هي أسماء الأزرار ، يمكنك عرض اسم الزر الدقيق من ملف اسم صندوق، انظر لقطة الشاشة:
ثالثًا ، قم بتنسيق الخلية الزمنية لساعة الإيقاف.
6. ثم يجب عليك تنسيق الخلية الزمنية كـ نص التنسيق ، ويمكنك تغيير حجم الخلية والخط ولون الخط والخلفية وما إلى ذلك حسب حاجتك ، انظر لقطة الشاشة:
7. بعد الانتهاء من الخطوات المذكورة أعلاه ، من الآن فصاعدًا ، عند النقر فوق آبدأ زر ، الوقت سيبدأ الآن ، وانقر قلة النوم زر ، وسوف يوقف الوقت ، و إعادة تعيين زر إعادة تعيين الوقت ، انظر لقطة الشاشة:
عرض توضيحي: قم بإنشاء ساعة توقيت بثلاثة أزرار باستخدام كود فبا
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!