البحث في الموقع
Showing results for tags 'تحديث تلقائى للوقت و التاريخ'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير 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 و لا تنسونا من صالح الدعاء تحياتى
