كود صغير جدا و لكن مفيد جدا_التحديث التلقائى للوقت و التاريخ

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة  

 

  تم ارفاق كود الحل من الفاضل ا /  عبدالله باقشير

Sub Timer()
Application.OnTime Now + TimeValue("00:00:01"), "ChangeTime"
End Sub

Sub ChangeTime()
On Error Resume Next
Sheets("1").Range("E3") = Now()
Call Timer
Exit Sub
End Sub

Sub Auto_Close()
 Application.Quit
End Sub
Sub Auto_Open()
    Call Timer
    End Sub

مرفق الملف و الشرح

 

_________________________.rar

 

و لا تنسونا من صالح الدعاء

تحياتى

 

[على متولى]

السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا
وجعل كل ايامكم رضا
والسلام عليكم ورحمة الله وبركاته

[جلال الجمال_ابو أدهم]

على متولى

اخى الفاضل جزاك الله خيرا