جلال الجمال_ابو أدهم قام بنشر فبراير 6, 2017 مشاركة قام بنشر فبراير 6, 2017 تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير 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 و لا تنسونا من صالح الدعاء تحياتى 1 رابط هذا التعليق شارك More sharing options...
على متولى قام بنشر فبراير 8, 2017 مشاركة قام بنشر فبراير 8, 2017 السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته 1 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر فبراير 8, 2017 الكاتب مشاركة قام بنشر فبراير 8, 2017 على متولى اخى الفاضل جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.