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

كيفية إدراج العد التنازلي في إكسيل؟

إذا كنت ترغب في التعامل مع بعض البيانات في وقت محدود ، يمكنك إدراج عداد للعد التنازلي في ورقة عمل البيانات الخاصة بك ، وعند الانتهاء من العد التنازلي للوقت ، سيكون هناك مربع حوار منبثق لتذكيرك. سأخبرك هنا برمز VBA لإدخال مؤقت للعد التنازلي في Excel.

أدخل مؤقت العد التنازلي في Excel

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة أدخل مؤقت العد التنازلي في Excel

في Excel ، لا يمكن العد التنازلي ، ولكن يمكنك نسخ رمز VBA التالي للمساعدة في العد التنازلي للوقت.

1. حدد خلية وقم بتنسيقها كتنسيق زمني عن طريق النقر بزر الماوس الأيمن على الخلية وتحديدها تنسيق الخلايا، ثم في مربع الحوار ، النقر فوق الوقت: واختيار 13: 30: 55 في ال النوع القائمة ، النقر في الماضي OK للخروج من هذا الحوار. انظر لقطة الشاشة:

وثيقة العد التنازلي 1
وثيقة السهم
وثيقة العد التنازلي 2

2. اكتب الوقت الذي تريده للعد التنازلي في خلية التنسيق. انظر لقطة الشاشة:

وثيقة العد التنازلي 5

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 لتشغيل مؤقت العد التنازلي. الآن يتم العد التنازلي للوقت.

وثيقة العد التنازلي 3

6. وعند انتهاء العد التنازلي ، سيذكرك مربع حوار منبثق.

وثيقة العد التنازلي 4

معلومه- سرية: لا يمكنك إيقاف العد التنازلي عندما يكون قيد التشغيل باستثناء إغلاق المصنف.


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكننا استخدام ذلك لأكثر من عد تنازلي في نفس الورقة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكنني العد التنازلي لأكثر من قيمة واحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لم يوضح كيف يبدأ المؤقت ، هل يبدأ بمجرد فتح الورقة؟ إنني أتطلع لمعرفة ما إذا كان عند إضافة قيمة 100 لقول الخلية "A1" ، سيبدأ مؤقت العد التنازلي في الخلية "G2" (ربما يومض أو يتحول إلى اللون الأحمر في آخر 30 ثانية لإظهار الإلحاح) وأريد أن يتوقف عندما أقوم بذلك أدخل قيمة في نطاق من الخلايا (B2: C57) أو إذا لم يتم إدخال أي قيمة في تلك الخلايا ، فقم بإيقافها بالنقر فوق الخلية "A1" مرة أخرى أو النقر بزر الماوس الأيمن على العد التنازلي للخلية "G2" ، أود أيضًا ترغب في الحصول على النتائج المتعلقة بالوقت الذي يستغرقه إدخال قيمة في خلايا النطاق B2: C57 باستخدام الفرق بين وقت البدء ووقت التوقف في خلية يتم تجميعها مع خلايا النطاق ، مثل D2. لست متأكدًا مما إذا كان كل هذا منطقيًا ولكني أود حقًا بعض المساعدة في ذلك. الفكرة هي عندما يقوم شخص ما بإجراء مكالمة ، يتم وضع علامة على الورقة على المبلغ الموجود في الحساب ويبدأ العد التنازلي حتى يعرفوا المدة التي قضوها في المكالمة. إذا أخذوا دفعة على المبلغ الموجود في الحساب ، فسيتم إضافته إلى خلية أخرى وستضيف الورقة بعد ذلك المدة التي استغرقتها للحصول على هذه الدفعة في خلية أخرى وستنخفض العملية في كل مرة يأخذون فيها مكالمة جديدة. لكن خلية واحدة فقط ستبدأ العملية في كل مرة. لدي بالفعل VBA يقوم بإدخال اسم المستخدم وعندما تكون الورقة ممتلئة ، يمكنهم النقر فوق زر إرسال وسيقوم بإرسال بريد إلكتروني إلي مع موضوع وتاريخ وحذف جميع المستلزمات حتى يتمكنوا من البدء مرة أخرى في اليوم التالي. أرغب فقط في إضافة ما ورد أعلاه إلى VBA الحالي إن أمكن ، وبهذه الطريقة لا يتعين علي إضافة وحدة نمطية أخرى. هل يمكن لأي شخص مساعدتي في هذا الأمر ، إرشادي خطوة بخطوة؟ مهارات VBA الخاصة بي أو أي مهارات برنامج محدودة للغاية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جوزيه ، لقد لاحظت أن المؤلف لم يرد على تعليقك ، لقد اكتشفت مؤخرًا منشوره واعتقدت أنني سأساعدك إذا كنت لا تزال بحاجة إليه. لتشغيل عداد الوقت ، تحتاج إلى استدعاء الإجراء الفرعي ، لذلك دعونا نفترض أن لديك فرعًا فرعيًا في ورقة العمل الخاصة بك يتحقق من أي تغييرات في الخلية A1 ، على سبيل المثال:


########
Sub Worksheet_Change (ByVal Target As Range)


خفت الصورة كنطاق: تعيين rInt = تقاطع (الهدف ، النطاق ("A1"))


إذا لم يكن rInt لا شيء إذن


عند الانتقال إلى الخطأ:
Dim i As Integer: i = Me.Range ("A1"). القيمة


إذا لم يكن فارغًا (vCell) ، فحينئذٍ
مؤقت الاتصال <<< هذا هو المكان الذي تتصل فيه بالمؤقت
إنهاء حالة


إنهاء حالة
خروج الفرعية
خطأ:
MsgBox "عدد صحيح فقط"
نهاية الفرعية
########


يتم استخدام الإجراء الفرعي "Timer" لتعيين الحدث ، ونريد أساسًا تشغيل هذا كل ثانية واحدة في المستقبل وهذا هو سبب استخدامنا الآن + TimeValue ("1:00:00") ، إذا كنت تريد تحديث المؤقت في خليتك كل ثانيتين أو كل دقيقة ، يمكنك ضبط TimeValue وفقًا لذلك.


الإجراء الفرعي "ResetTime" هو المكان الذي نقوم فيه بجميع عمليات الرفع الثقيلة ، في هذا الإجراء الفرعي ، إذا كنت تريد تغيير لون المؤقت إلى اللون الأحمر ، فبمجرد وصوله إلى 30 ثانية ، يمكنك القيام بذلك عن طريق إضافة عبارة if بسيطة ، تمامًا مثل الموجود بالفعل داخل الإجراء.


إذا كانت xRng.Value <= 30 ثم
xRng.Font.Color = vbRed
إنهاء حالة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحتاج إلى استدعاء الإجراء الفرعي "Timer" ، ويتم ذلك عادةً عن طريق الاتصال به ضمن وظيفة فرعية / وظيفة أخرى إذا كنت تريد أن يبدأ العد التنازلي بعد إدخال قيمة في الخلية "A1" ويتوقف عند إدخال البيانات في نطاق آخر ، ثم تحتاج إلى الاستماع إلى تغيير في تلك الخلايا وإنشاء منطقية لإجراء فرعي مؤقت ، حتى يعرف متى تتوقف ، للقيام بذلك ، قم بإنشاء إجراء فرعي "Worksheet_Change" ، وهذا سوف يستمع إلى ورقة العمل لأية تغييرات ، نحن ثم قم بإنشاء قائمة بيضاء بالنطاقات التي ستقوم بتشغيل الكود الخاص بنا.


Sub Worksheet_Change (ByVal Target As Range)

القيمة الافتراضية المنطقية
خافت TimerActive as Boolean: TimerActive = True

هذا هو المكان الذي نطلق عليه Timer ونحدد قيمتنا في G2
إذا لم يتقاطع (الهدف ، النطاق ("A1")) لا شيء إذن

إذا كان IsEmpty (الهدف) ثم TimerActive = False: Exit Sub

عند الانتقال إلى الخطأ:

خافت ط كعدد صحيح: أنا = الهدف

Me.Range ("G2"). القيمة = i

توقيت الدعوة من

ElseIf Not Intersect (الهدف ، النطاق ("B2: C57")) لا شيء إذن

TimerActive = خطأ

إذا كان فارغًا (الهدف) ، فاخرج من Sub

أضف المزيد من الكود هنا إذا لزم الأمر

إنهاء حالة

معالجة الخطأ
خروج الفرعية
خطأ:
MsgBox "يجب أن يكون A1 عددًا صحيحًا"

نهاية الفرعية

لقد قمت أيضًا بتضمين القدرة على حذف القيمة في A1 ، والذي سيؤدي أيضًا إلى إيقاف العد التنازلي ، الآن ، في الإجراء الفرعي "Timer" ، في البداية قم بإنشاء عبارة if للتحقق مما إذا كانت قيمة "TimerActive" المنطقية تساوي False أم لا ، إذا ثم نحتاج إلى الخروج من Sub. لتغيير لون Timers عند العد التنازلي ، تحتاج إلى تعديل الإجراء الفرعي "ResetTimer" ، وإضافة عبارة if ، المشابهة لتلك الموجودة بالفعل ، "If xRng <= 30" ، في هذا البيان نضيف اللون تريد استخدام "xRng.Font.Color = vbRed" ، يمكنك أيضًا تغيير اللون باستخدام "xRng.Font.Color = RGB (0,0,0،XNUMX،XNUMX)" ، افعل الشيء نفسه في إجراء "Timer" لإعادة تعيين اللون ، افعل ذلك قبل عبارة if المنطقية ، بحيث يعود اللون دائمًا إلى الوضع الافتراضي ، حتى عند إيقافه يدويًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لإيقاف المؤقت عند إدخال القيم في خلايا معينة ، يمكنك استخدام "Worksheet_Change" ، فقط قم بتضمين النطاق الذي تريد الاستماع إليه ، وستحتاج أيضًا إلى إنشاء قيمة منطقية عامة ، لذلك عند تغيير أي شيء داخل نطاق خلية ، سيضبط هذا المنطقي على خطأ ، لذا في المرة التالية التي ينتقل فيها إلى الإجراء الفرعي "الوقت" ، فإنه سيتحقق بدلاً من ذلك لمعرفة ما إذا كانت القيمة المنطقية خاطئة ، إذا أضفت "If TimerActive = False ثم Exit Sub" ، في بداية الجزء الفرعي "Timer" ، فسيخرج إذا كان ذلك المنطقي يعيد القيمة false.




ثم داخل "Worksheet_Change" ، سترغب في إضافة "TimerActive = True" في بداية الكود ، وشيء مثل الكود التالي في أي مكان.

إذا لم يتقاطع (الهدف ، النطاق ("B2: C57")) لا شيء إذن
TimerActive = خطأ
إنهاء حالة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد يا رفاق
من فضلك ، أحتاج إلى إنشاء مؤقت على ورقة Excel الخاصة بي في شكل أنه سيكون عدًا تنازليًا معينًا ، على سبيل المثال 45 يومًا كل 5 أيام ، فإنه يعطي تذكيرًا على الورقة بلون معين لكل عد تنازلي. أحتاجه في أسرع وقت ممكن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في الحصول على حوالي 100 قراءة للوقت على ورقة Excel الخاصة بي. الرجاء مساعدتي. من المستحيل كتابة رموز دائرة i2c. لا أريد شاشة LED. بلز مساعدتي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، جهاز ضبط الوقت يعمل الآن. المشكلة هي أنه يتوقف تلقائيا عند استخدام مصنفات أخرى. كيف يمكنني الاستمرار في تشغيله؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يوجد خيار بديل عن حل المشكلة. Si se para al trabajar en el excel، para que quiero un cronómetro y paraquesirve el boton parar؟ جراسياس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، tengo un problema con esta programación en donde el temporizador avanza en 2 segundos y no 1، que puedo hacer ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد تشغيل الكود يعطي خطأ على الخط

xRng.Value = xRng.Value - TimeSerial (0، 0، 5)

خطأ وقت التشغيل '1004':
معرف التطبيق أو خطأ معرف الكائن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا MAB ، يجب عليك التأكد من أن مرجع الخلية في الكود النطاق ("E1") يجب أن يكون هو نفسه مع مرجع الخلية الذي أدخل الوقت. يرجى الاطلاع على لقطة الشاشة ، تحتوي الخلية A1 على الوقت ، ولكن في الرمز هو B1 ، ثم ينبثق الخطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ейка прописана правильно. В ем причина неработоспособности؟
У меня он должен встать в ячейку R3. Строка выглядит так: Set xRng = Application.ActiveSheet.Range ("R3") но ошибка все равно есть: خطأ وقت التشغيل 1004.
то может быть не так؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يمكنك محاولة تحديد خيار تمكين وحدات ماكرو VBA في مركز التوثيق قبل تشغيل الرمز.
انقر فوق ملف> خيارات ، في نافذة خيارات Excel ، حدد مركز التوثيق من الجزء الأيمن ، ثم انتقل إلى مركز التوثيق ، وحدد إعدادات الماكرو ، وابحث عن هذا الخيار تمكين وحدات ماكرو VBA ، وحدده ، وانقر فوق موافق> موافق.
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-vba-setting.png
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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