تنفيذ كود بعد فترة زمنيه محدده

[العبد لله فتحي]

السلام عليكم احبائي في الله اريد أن انفذ كود معين في الاكسل بس يتم التنفيذ بعد فترة محددة مثلا حفظ الملف والخروج بحيث أن انا لما استدعي الكود يقوم بتنفيذ الحفظ والخروج بس بعد دقيقه مثلا

وشاكر لحضراتكم 

[أ / محمد صالح]

يمكنك استخدام الدالة Application.OnTime لتشغيل إجراء آخر بعد دقيقة من استدعاء الكود:

 

Sub StartTimer()

'تشغيل الإجراء SaveAndClose بعد دقيقة
Application.OnTime Now + TimeValue("00:01:00"), "SaveAndClose"

End Sub

Sub SaveAndClose()

ThisWorkbook.Save 'حفظ الملف
Application.Quit 'إغلاق Excel

End Sub

 

طريقة العمل

• عند تشغيل StartTimer يبدأ المؤقت.
• ينتظر Excel دقيقة واحدة.
• يتم استدعاء الإجراء SaveAndClose.
• يتم حفظ المصنف ثم إغلاق برنامج Excel.

إذا كنت تريد إغلاق المصنف فقط دون إغلاق برنامج Excel بالكامل:

 

Sub StartTimer()

Application.OnTime Now + TimeValue("00:01:00"), "SaveAndCloseWorkbook"

End Sub

Sub SaveAndCloseWorkbook()

ThisWorkbook.Save
ThisWorkbook.Close SaveChanges:=True

End Sub

 

وإذا أردت تغيير المدة إلى 5 دقائق مثلاً:

 

Application.OnTime Now + TimeValue("00:05:00"), "SaveAndClose"

 

 

بهذه الطريقة يتم التنفيذ في الخلفية بعد المدة المحددة دون استخدام حلقات انتظار (Loop) أو Application.Wait.