هل تريد أن تظهر الساعه الرقميه في ملف أكسيل ؟

ببساطه هذه فكرة إضافة الساعه الي ملفات الأكسيل لديك ..

- أولاً : قم بتشغيل ملف الأكسيل لديك
- أضغط Alt + F11 لتفتح لك شاشة الفيجول بيسك
- من يسار الشاشه قم بالنقر على This WorkBook
- في الجهة اليمنى أضف هذا الكود
كود:

Private Sub Workbook_Open()
Call Timer
End Sub

- الآن من شريط الأدوات أعلى الشاشه أختر Insert ثم Module
- في الجهة اليمنى من الشاشه أضف الكود التالي
كود:

Sub Timer()
Application.OnTime Now + TimeValue("00:00:01"), "ChangeTime"
End Sub
Sub ChangeTime()
Sheets("clock").Range("C7") = Now()
Call Timer
End Sub

أغلق شاشة الفيجول بيسك وستعود لورقة العمل لديك لترى الساعه تظهر وتتغير بالثواني لديك

- ملحوظه : في الكود السابق ستجد إسم ورقة العمل ( Clock ) قم بتغييرها الي أسم ورقة العمل التي لديك في حال إضافة الكود الي ملف جديد لديك .. أو أن أردت أن لا تغير الكود فقم بتسمية ورقة العمل لديك بنفس الأسم

- الخليه التي تظهر بها الساعه هي ( C7 ) وستلاحظ أنها مكتوبه بالكود .. قم بتغييرها الي الخليه التي تريد أن تظهر بها الساعه لديك

- تنسيقات متعدده يمكنك أكتشافها إذا ضغطت بزر الماوس الأيمن على الخليه التي تظهر بها الساعه وأخترت تنسيق الخليه ومن ثم الوقت ثم أختر التنسيق كما تحب

- لا تنسى أن الأكسيل يظهر لك الساعه كما هي بجهازك وعليك تصحيح وضع الساعه إن كانت غير مظبوطه

مرفق ملف به التطبيق ... والله ولي التوفيق

الرابط هنا
http://www.hiarab.net/attachments/college69/6961d1173337712