عمل ساعة رقمية في كل الورقات (الشيتات)

[dodo222]

السلام عليكم

من فضلكم يا جماعة انا عندي ملف اكسل به برنامج اعمل به في المدرسة ويتكون من 5 شيتات

قمت بعمل ساعة بواسطة vbv فيالشيت الاولى

ولكن اردت ان اعمل الساعة في كل الورقات ولم اعرف الطريق اي نجحت في الشيت الاولى فقط

ارجو المساعدو وشكرا

دفتر التنقيط.xlsm

تم تعديل يناير 14, 2019 بواسطه dodo222

[Ali Mohamed Ali]

كيف نقوم بمساعدتك على ملف محمى بكلمة سر

[dodo222]

عفوا سامحني

كلمة السر 000

[Ali Mohamed Ali]

تفضل

 

دفتر التنقيط.xlsm

[Ali Mohamed Ali]

فقط عليك وضع هذا الكود فى موديول عادى

Public CntTme As Double
Sub StartClock()
ActiveSheet.Range("N1").Value = Now()
CntTme = Now + TimeSerial(0, 0, 1)
Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True
End Sub

ثم بعد ذلك عليك بوضع هذا الكود فى حدث This Workbook

Private Sub Workbook_Open()
StartClock
End Sub

لابد ان يكون امتداد الملف Xlsm