السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله
بعد طول غياب نعود لكم بدرس بسيط ، وهو لإنشاء ساعة رقمية على ورقة العمل ، وسيكون الدرس بسيط في خطوات محددة ويسيرة إن شاء الله
* افتح برنامج الإكسيل وقم بإنشاء مصنف جديد


* قم بعمل دمج للنطاق A1 إلى E5 (يمكنك تغيير النطاق كما تشاء فالأمر متروك لك)


* اجعل حجم الخلية 72 ونوع الخط Digital-7 (يوجد في الملف المرفق أنواع الخطوط التي يمكن استخدامها)
* غير لون الخلفية لأي لون تريده وغير لون الخط لأي لون تريده


* كليك يمين على الخلية ثم تنسيق خلايا ثم اختر تنسيق الوقت




* اذهب لمحرر الأكواد وضع الكود التالي في موديول عادي وأخيراً قم بتشغيل الكود

Sub RunClock()
    Range("A1").Value = Now
    Application.OnTime Now + TimeValue("00:00:01"), "RunClock"
End Sub</div>

<div style="text-align: center;">

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

وكود آخر لإيقاف الساعة الرقمية ، وهو نفس السطر المستخدم مضاف إليه جزئية تقوم بعملية الإيقاف وهي Schedule:=False

Sub StopClock()
    On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:01"), "RunClock", Schedule:=False
    On Error GoTo 0
End Sub</div>

<div style="text-align: center;">

أرجو أن يكون الدرس بسيط وسهل التطبيق إن شاء الله

تحميل الملف المرفق والخطوط المستخدمة من هنا

أخوكم في الله / ياسر خليل أبو البراء