KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تُنشئ ساعة توقيت في ورقة عمل Excel؟

المؤلفXiaoyangتاريخ التعديل

إذا كنت بحاجة إلى ساعة توقيت في ورقة عمل Excel الخاصة بك، فستساعدك على تتبع الوقت الذي تستغرقه لإكمال مهامك بدقة وسلاسة. تخيّل أن لديك أزرار «ابدأ» و«إيقاف» و«إعادة تعيين» للتحكم الكامل في ساعة التوقيت، كما يظهر في لقطة الشاشة أدناه: فبمجرد النقر على زر «ابدأ»، يبدأ المؤقّت بالعد؛ وعند النقر على زر «إيقاف»، يتوقف المؤقّت مؤقتًا؛ أما زر «إعادة تعيين» فيمحو الوقت المسجّل بالكامل. في هذه المقالة، سنرشدك خطوة بخطوة إلى كيفية إنشاء ساعة توقيت بسيطة وعملية في Excel باستخدام كود VBA.

لقطة شاشة لورقة عمل Excel مع ساعة توقيت تحتوي على أزرار بدء ووقف وإعادة تعيين

إنشاء ساعة توقيت تحتوي على ثلاثة أزرار باستخدام كود VBA

إنشاء ساعة توقيت تحتوي على ثلاثة أزرار باستخدام كود VBA

لإنشاء ساعة توقيت مزوَّدة بثلاثة أزرار — «ابدأ» و«إيقاف» و«إعادة تعيين» — يُرجى اتباع الخطوات التالية واحدةً تلو الأخرى.

أولاً، أدرج ثلاثة أزرار أوامر.

1. انقر فوق «المطوّر» > «إدراج» > «زر أمر»، كما هو موضح في لقطة الشاشة:

لقطة شاشة تُظهر تبويب المطور في Excel مع خيار إدراج زر الأمر مُحدَّدًا

2. بعد ذلك، اسحب الماوس لرسم الزر. وبعد إدراجه، يمكنك تغيير نص الزر (التسمية) بالنقر على «المطوّر» > «خصائص». في مربع حوار «الخصائص»، أدخل التسمية الجديدة «ابدأ» لهذا الزر في الحقل المقابل لخاصية «التسمية» (Caption). راجع لقطات الشاشة:

لقطة شاشة تُظهر تبويب المطور في Excel مع خيار الخصائص مُحدَّدًاسهملقطة شاشة لمربع حوار خصائص زر الأمر في Excel، تُظهر مكان تعيين خاصية التسمية إلى "بدء"

3. كرّر الخطوتين السابقتين لإدراج الزرين المتبقيين وتسميتهما بـ«إيقاف» و«إعادة تعيين»، كما هو موضح في لقطة الشاشة:

لقطة شاشة لثلاثة أزرار أوامر يتم تغيير أسمائها إلى "بدء" و"وقف" و"إعادة تعيين"

4. بعد إدراج الأزرار، اخرج من وضع التصميم بالنقر على «المطوّر» > «وضع التصميم».

ثانيًا، أنشئ كود VBA.

5. بعد ذلك، انقر بزر الماوس الأيمن على علامة تبويب ورقة العمل الحالية، ثم اختر «عرض الكود» (View Code). في نافذة «مايكروسوفت Visual Basic for Applications» التي تظهر، انسخ والصق الكود التالي في «كود الورقة» (Sheet Code):

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

لقطة شاشة لمحرر VBA مع كود ساعة التوقيت في Excel

ملاحظة: في الكود أعلاه، تمثّل الخلية "C2" الموقع المخصص لإدخال وقت ساعة التوقيت، بينما تشير "CommandButton1" و"CommandButton2" و"CommandButton3" إلى أسماء الأزرار. يمكنك التحقّق من الاسم الدقيق لكل زر عبر «مربع الاسم» (Name Box)، كما هو موضّح في لقطة الشاشة:

لقطة شاشة تُظهر مربع الاسم في Excel المستخدم للتحقق من أسماء الأزرار المضافة إلى ورقة العمل

ثالثًا، قم بتنسيق خلية وقت ساعة التوقيت.

6. بعد ذلك، قم بتنسيق خلية الوقت كـ«نص» (Text)، ثم عدّل حجم الخلية والخط ولونه ولون الخلفية وغيرها وفقًا لاحتياجاتك—كما هو موضح في لقطة الشاشة:

لقطة شاشة تُظهر كيفية تنسيق خلية لعرض وقت ساعة التوقيت في Excel، بما في ذلك تخصيص الخط والخلفية

7. بعد الانتهاء من الخطوات السابقة، سيبدأ العد التنازلي عند النقر على زر «ابدأ»، وسيتوقف عند النقر على زر «إيقاف». أما زر «إعادة تعيين» فيُعيد ضبط الوقت إلى الصفر. راجع لقطة الشاشة:

لقطة شاشة لساعة توقيت قيد التشغيل في ورقة عمل Excel مع أزرار بدء ووقف وإعادة تعيين قيد العمل

عرض توضيحي: إنشاء ساعة توقيت تحتوي على ثلاثة أزرار باستخدام كود VBA

 
Kutools لـ Excel: أكثر من 300 أداة مفيدة بين يديك! استمتع بميزات مدعومة بالذكاء الاصطناعي لإنجاز عملك بذكاء وسرعة أكبر!حمّل الآن!

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل