كيفية إنشاء ساعة توقيت في ورقة عمل 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 هي الخلية التي سيتم إدراج وقت ساعة الإيقاف فيها ، و CommandButton1, CommandButton2, CommandButton3 هي أسماء الأزرار ، يمكنك عرض اسم الزر الدقيق من ملف اسم صندوق، انظر لقطة الشاشة:
ثالثًا ، قم بتنسيق الخلية الزمنية لساعة الإيقاف.
6. ثم يجب عليك تنسيق الخلية الزمنية كـ نص التنسيق ، ويمكنك تغيير حجم الخلية والخط ولون الخط والخلفية وما إلى ذلك حسب حاجتك ، انظر لقطة الشاشة:
7. بعد الانتهاء من الخطوات المذكورة أعلاه ، من الآن فصاعدًا ، عند النقر فوق إبدأ زر ، الوقت سيبدأ الآن ، وانقر قلة النوم زر ، وسوف يوقف الوقت ، و إعادة تعيين زر إعادة تعيين الوقت ، انظر لقطة الشاشة:
عرض توضيحي: قم بإنشاء ساعة توقيت بثلاثة أزرار باستخدام كود فبا
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!




























