تحتاج إلى استدعاء الإجراء الفرعي "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 المنطقية ، بحيث يعود اللون دائمًا إلى الوضع الافتراضي ، حتى عند إيقافه يدويًا.

مرحبًا MAB ، يجب عليك التأكد من أن مرجع الخلية في الكود النطاق ("E1") يجب أن يكون هو نفسه مع مرجع الخلية الذي أدخل الوقت. يرجى الاطلاع على لقطة الشاشة ، تحتوي الخلية A1 على الوقت ، ولكن في الرمز هو B1 ، ثم ينبثق الخطأ.

مرحبًا ، يمكنك محاولة تحديد خيار تمكين وحدات ماكرو VBA في مركز التوثيق قبل تشغيل الرمز.
انقر فوق ملف> خيارات ، في نافذة خيارات Excel ، حدد مركز التوثيق من الجزء الأيمن ، ثم انتقل إلى مركز التوثيق ، وحدد إعدادات الماكرو ، وابحث عن هذا الخيار تمكين وحدات ماكرو VBA ، وحدده ، وانقر فوق موافق> موافق.