اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

هل ترغب بوضع ساعة في ورقة العمل الخاصة بك؟؟

يتم تحديثها كل ثانية مثل ساعة النظام تماما

الحل تجده في المرفق

لا تنسوا أخاكم

محمد صالح

من صالح دعائكم

clock.rar

الإصدار الأحدث ويوجد في المشاركة 14 من الموضوع

clock3.rar

والآن تم تطوير الملف بصورة أكثر احترافية

ليعرض ساعة رقمية وساعة عقارب

وإذا رغب أحبابي في الله يتم شرح فيديو للطريقة وخصوصا الساعة العقارب

لا تحكم في رغبتك لعمل شرح إلا بعد مشاهدة هذا المرفق

 

mas digital and analog clock.rar

  • Like 5
قام بنشر

السلام عليكم أخي محمد صالح

العمل جيد لكن صادفتني مشكلة

إذا كان العمل مفتوح مع ملف آخر لا يمكن اغلاقه أبدا

فهل صادفتك؟؟

والسلام ختام

قام بنشر

أشكر جميع الإخوة على المرور الطيب

نفعنا الله وإياكم بما علمنا

وعلمنا ما ينفعنا

تأخري في الرد نظرا لتثبيت نسخة ويندوز جديدة

وجاري تحليل المشكلة

وحلها بإذن الله

للعلم

للكود استخدامات أخرى

application.ontime

سأتعرض لأمثلة منها

إن شاء الله

  • Like 1
قام بنشر (معدل)

مشكلة ظهور الساعة في كل ورقات العمل ذات الاسم sheet1 التي عرضها الأخ يحيى

يكمن حلها في أن الكود يتعامل مع التطبيق إكسل كله

ولذا يجب تخصيص ورقة العمل المحددة في الملف clock.xls بهذا الكود

Workbooks("clock.xls").Sheets("sheet1").Range("d1").Value = Format(Now(), "h:n:s ampm")

أما موضوع أنها لا تغلق الذي عرضه الأخ قطان فيرجع لأنها تتعامل مع التطبيق أيضا

ولحل ذلك يجب وضع هذا الكود في حدث قبل غلق workbook وهو إيقاف الساعة stopmasclock الموجود في الموديول

على العموم

هذا هو المرفق بعد التعديل

هنـــا

تم تعديل بواسطه mas123
  • Like 1
قام بنشر

إسمح لي في أول مشاركاتي في المنتدى أن أشكرك على العمل الجميل

بارك الله تعالى فيك يا أخي

قام بنشر (معدل)

أكرر شكري لجميع من رد أو ساهم في تطوير الكود

وهذا هو تعديل آخر بوضع زر لإيقاف الساعة وإغلاق الملف

كل عام أنتم بخير

clock3.rar

تم تعديل بواسطه mas123
  • Like 1
قام بنشر

أشكركم على المرور أخي قطان وأخي نادر

نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

  • Like 1
قام بنشر

يعطيك العافية أخي بس وين المرفقات؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

قام بنشر

يعطيك العافية أخي بس وين المرفقات؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

في المشاركة رقم 14

هذا هو الرابط

هنـــــــــــــــــتا

  • Like 1
قام بنشر

الاخ والاستاذ الفاضل : محمد صالح

بارك الله فيك وجعلة فى ميزان حسناتك

عمل رائع جدا 

ودائما الى الامام ان شاء الله 

قام بنشر

الاخ والاستاذ الفاضل : محمد صالح

بارك الله فيك وجعلة فى ميزان حسناتك

عمل رائع جدا 

ودائما الى الامام ان شاء الله 

بارك الله فيك أخي صفوت

أنا وأنت بإذن الله في تقدم مستمر

اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا

  • Like 1
قام بنشر

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

الاستاذ الفاضل / محمد صالح

مجهود رائع و جزاك الله خيرا

و لكن كنت أود أن اضيف معلومة , أن الساعه في تحديثها كل ثانيه يقوم يتثقيل الأوفيس لانه يعمل ( Ub Date ) كل ثانيه

و بارك الله فيك

تحياتى

قام بنشر

ملف جميل جدا

بس الملف ده قديم شفته في اكتر من منتدى و نفس اخطوات و الاجارءات بتاعته

جزاك الله كل خير

قام بنشر

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

الاستاذ الفاضل / محمد صالح

مجهود رائع و جزاك الله خيرا

و لكن كنت أود أن اضيف معلومة , أن الساعه في تحديثها كل ثانيه يقوم يتثقيل الأوفيس لانه يعمل ( Ub Date ) كل ثانيه

و بارك الله فيك

تحياتى

أشكرك على مرورك أخي محمد

الفكرة في مثال على استعمال الخاصية ontime الموجودة ضمن خواص التطبيق

  • Like 1
قام بنشر

ملف جميل جدا

بس الملف ده قديم شفته في اكتر من منتدى و نفس اخطوات و الاجارءات بتاعته

جزاك الله كل خير

شاكر لمرورك الطيب أختي

وهذا مثال من وحي فهمي للخاصية ontime ولم أقتبسه من أي موقع

فهل تعطينا روابط لهذه المواقع التي تحتوي على استعمال الخاصية ontime في عمل ساعة في ورقة العمل؟؟؟

حتى نستفيد جميعا

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information