Note: The other languages of the website are Google-translated. Back to English

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

إذا كانت هناك ساعة توقيت في ورقة العمل الخاصة بك ، فستعرف الوقت اللازم لإنهاء المهمة. كيف يمكنك إنشاء ساعة توقيت في ورقة باستخدام زر البدء والإيقاف وإعادة الضبط كما هو موضح في لقطة الشاشة التالية؟ إذا قمت بالنقر فوق الزر "ابدأ" ، فسيبدأ الوقت ، وإذا قمت بالنقر فوق الزر "إيقاف" ، فسيتوقف الوقت ، ويمكن أن يساعدك الزر "إعادة تعيين" في إعادة تعيين الوقت. في هذه المقالة ، سأتحدث عن كيفية إنشاء ساعة توقيت بسيطة وسهلة الاستخدام في Excel.

doc إنشاء ساعة توقيت 1

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


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

لإنشاء ساعة توقيت بثلاثة أزرار ، ابدأ وإيقاف وإعادة تعيين ، يرجى اتباع الخطوات التالية واحدة تلو الأخرى.

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

1. انقر المطور > إدراج > زر الأوامر، انظر لقطة الشاشة:

doc إنشاء ساعة توقيت 2

2. ثم اسحب الماوس لرسم زر ، بعد إدخال الزر ، يمكنك تغيير تسمية الزر ، من فضلك انقر المطور > عقارات، في عقارات الحوار ، أدخل التسمية التوضيحية الجديدة "إبدأ"لهذا الزر في مربع النص بجانب شرح، انظر لقطات الشاشة:

doc إنشاء ساعة توقيت 3 2 doc إنشاء ساعة توقيت 4

3. كرر الخطوتين السابقتين لإدراج زرين آخرين وتعليقهما كـ "قلة النوم"و"إعادة تعيين"، انظر لقطة الشاشة:

doc إنشاء ساعة توقيت 5

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

doc إنشاء ساعة توقيت 6

ملاحظة: في الكود أعلاه ، C2 هي الخلية التي سيتم إدراج وقت ساعة الإيقاف فيها ، و CommandButton1, CommandButton2, CommandButton3 هي أسماء الأزرار ، يمكنك عرض اسم الزر الدقيق من ملف اسم صندوق، انظر لقطة الشاشة:

doc إنشاء ساعة توقيت 7

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

6. ثم يجب عليك تنسيق الخلية الزمنية كـ نص التنسيق ، ويمكنك تغيير حجم الخلية والخط ولون الخط والخلفية وما إلى ذلك حسب حاجتك ، انظر لقطة الشاشة:

doc إنشاء ساعة توقيت 8

7. بعد الانتهاء من الخطوات المذكورة أعلاه ، من الآن فصاعدًا ، عند النقر فوق إبدأ زر ، الوقت سيبدأ الآن ، وانقر قلة النوم زر ، وسوف يوقف الوقت ، و إعادة تعيين زر إعادة تعيين الوقت ، انظر لقطة الشاشة:

doc إنشاء ساعة توقيت 9


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (32)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على هذا المنشور ، لقد كان مفيدا جدا. ومع ذلك ، هل هناك طريقة لتعديل الكود لجعله حتى لا يتوقف المؤقت عند تحرير الخلية؟ من الناحية المثالية ، أود النقر على "ابدأ" ، وإجراء عدد من التغييرات على نطاق من الخلايا في نفس علامة التبويب ، ثم الضغط على "إيقاف" لإجمالي الوقت المنقضي. أي نصيحة على هذا موضع تقدير كبير!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سبق لك أن عرفت هذا؟ أنا أيضًا بحاجة إلى الاستمرار في تشغيل المؤقت أثناء إجراء تغييرات أخرى في نفس جدول البيانات. شكرًا. مايك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كانت هذه مساعدة رائعة ومن السهل جدًا اتباع الخطوات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد حاولت إنشاء ساعة التوقف باستخدام نفس الرموز في النماذج. يبدأ الموقت بشكل جيد ولكنه لا يتوقف. يرجى اقتراح كيفية تكرار نفس الشيء في النماذج
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جرب XNote Stopwatch.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أي طريقة لجعل المؤقت يقوم بالعد التصاعدي أو التنازلي لوقت محدد؟ أريد الاحتفاظ بأزرار البدء والإيقاف وإعادة الضبط ، لكنني أحتاجها للعد حتى دقيقة واحدة ثانية واحدة فقط ، بمجرد الضغط على زر البدء. أو العد التنازلي من دقيقة واحدة ثانية إلى صفر (01:01). شكرا لمساعدتك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ميليسا ،
إذا كنت بحاجة إلى إنشاء عداد للعد التنازلي في ورقة العمل ، فقد تساعدك المقالة التالية!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلا،

لقد رأيت هذا المقال ، لكنني أحتاجه ليبدو تمامًا مثل ساعة التوقف في هذه الصفحة ، لكنني أحتاجه فقط للعد التنازلي من دقيقة واحدة إلى ثانية. أحتاجها لتظهر في شكل ساعة توقيت ، ولكن تعمل كعد تنازلي. هل من نصائح أخرى؟


شكرا لكم على الرد!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنها لوحة النتائج التي صممناها في التفوق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع ، لكن هل من الممكن تشغيل ساعتين في نفس الورقة؟ لقد صنعت ساعة ثانية ببدء جديد ، وإيقاف ، وإعادة تعيين زر ، ولكن عند بدء الساعة الثانية ، تتوقف الساعة الأولى ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نفس الشيء هنا يمكنك العثور على علاج لهذا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا اصدقاء
يتم تطبيق هذه الطريقة فقط على مجموعة واحدة من الأزرار في ورقة العمل.
إذا كانت هناك أفكار أخرى جيدة ، يرجى التعليق هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن إيقاف المؤقت تلقائيًا عند قفل الشاشة وبدء تشغيل المؤقت تلقائيًا عندما نقوم بإلغاء قفل الكمبيوتر؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أي طريقة لجعل عداد الوقت يعيد ضبط العد إلى الصفر مع الاستمرار في تشغيل المؤقت؟ بمعنى آخر. عندما أضغط على "إعادة تعيين" ، لا أريد أن أضطر إلى الضغط على "ابدأ" مرة أخرى حتى يتسنى لي الضغط على زر "إعادة تعيين".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم هذا السدادة ولكن في كثير من الأحيان تبدأ الأرقام الموجودة في خلية العرض ("C2") في التلاشي وتنفجر - تظهر علامات الطرح ، والأرقام غير مكتملة ويتم فقد العدد. يحدث هذا عادة بعد حوالي ساعة أو أكثر ولكن في بعض الأحيان حتى قبل مرور ساعة. هل هذا خطأ شائع؟ وإذا كانت الإجابة بنعم ، فهل هناك طريقة لإصلاحها؟ لقد قمت بإزالة .00 (أي ميلي ثانية) من الكود ببساطة عن طريق محو: & "." & تنسيق السطر (0، "00") أينما ظهر - هل هذا له علاقة بهذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك على نصيحتك ، لقد كان يعمل بسلاسة ولكن عندما أقوم بإدخال أي بيانات في هذه الورقة ، تم إيقاف تشغيلها ، نحتاج إلى استمرارها أثناء إدخال البيانات كيف يمكننا حل هذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Nhoeun ،
قد لا يكون هناك طريقة جيدة لحل مشكلتك. عندما تقوم بتحرير خلية ، فإنها ستقاطع الماكرو المنفذ حاليًا.
إذا كان لديك أي طريقة جيدة أخرى ، يرجى التعليق هنا!
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا. لقد أنشأت ساعة الإيقاف ، لكنني بحاجة إلى أن أكون قادرًا على الحصول على الفترات الزمنية المختلفة بين البداية والتوقف ليتم حفظها حتى أتمكن من عكسها كدراسة للوقت والحركة. أي نصائح حول كيفية القيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم تنفيذ كافة الخطوات ولكن النقر فوق الزر "ابدأ" يعطي رسالة خطأ "لا يمكن تشغيل الماكرو" "file.xlsm '! CommandButton1". قد لا يتوفر الماكرو في هذا المصنف أو قد يتم تعطيل كافة وحدات الماكرو. ". تم تمكين كافة وحدات الماكرو ، والماكرو موجود في الوحدة النمطية 1. ملاحظة: أنا أقوم بتشغيل Office 2019 لنظام التشغيل Mac لذا قد تكون هذه مشكلة ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا عن إضافة ميزة "+10s" و "2x Speed" في هذا الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل "الموقت" متغير هنا؟ لا ترى أهميتها في الكود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن الحصول على عداد للثواني فقط؟
لذلك عندما تصل إلى 59 ثانية ، فإنها تستمر بـ 60 ، 61 ، 62 ، 63 ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا
اتبعت الخطوات ولكن لا يمكن الحصول على وقت للظهور في خلية المؤقت. لقد قمت بنسخ الرمز ولكن يمكنني التحقق من 1. أن أرقام الأسطر ليست مطلوبة أم أنها 2. أنني أضع الكود في الوحدة النمطية 1 وليس الورقة 1 أو هذا المصنف 3. إذا كان هناك ماكرو مدرج في قائمة الماكرو بعد القيام بكل هذا - فعملي لا يفعل ذلك.
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جانيس ، يجب أن تضع الكود في وحدة الورقة النشطة الخاصة بك كخطوة 5.
5. وبعد ذلك ، انقر بزر الماوس الأيمن فوق علامة تبويب ورقة العمل الحالية ، واختر عرض الرمز ، في نافذة Microsoft Visual Basic for Applications المنبثقة ، يرجى نسخ الكود التالي ولصقه في الوحدة النمطية.

ويجب عليك تغيير اسم الزر إلى اسمك الخاص.
ملاحظة: في الكود أعلاه ، C2 هي الخلية التي سيتم فيها إدراج وقت ساعة الإيقاف ، و CommandButton1, CommandButton2, CommandButton3 هي أسماء الأزرار ، يمكنك عرض اسم الزر الدقيق من مربع الاسم.

يرجى التحقق منها ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا عبقري! شكراً كريس إتش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن استخدام مربع تحرير وسرد أو قائمة منسدلة لبدء وإيقاف الساعة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Bonjour، j'ai voulu intégrer ce chronomètre à une autre macro، déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres code VBA؟ MerciHenry.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! شكرًا لك على هذا ، كيف أجعله يملأ الوقت في الخلايا اللاحقة ، على سبيل المثال. وقت البدء / الإيقاف للخلية C2 ، ثم وقت بدء / إيقاف مختلف للخلية c3 و c4 و c5 وما إلى ذلك 
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL