اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

أيها الأخوة الكرام

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

أرجو من الجميع التكرم شرح لي طريقة إظهار الساعة في الأكسل وهي تعمل (بالساعة- والدقائق- والثواني) وهي تتحرك أمامي؟ أرجو أن يكون السؤال واضح.

شاكرا ومقدرا لكم .

تم تعديل بواسطه الصامت
قام بنشر (معدل)

يمكنك ببساطه إضافة ساعه رقمية Digital الي أي ملف أكسيل تريد . وسوف تتغير الساعه كل ثانيه ودقيقه وساعه لحظياً . وبالطبع هذا وفقاً لوضع الساعة بجهازك ولهذا عليك أن تظبط الساعه بجهاز الكمبيوتر لديك أولاً .

الخطوات ...

- أفتح ملف الأكسيل المراد التنفيذ به

- في لوحة المفاتيح لديك أضغط 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 وتجد الأسم بين قوسين في السطر الخامس ويمكنك تغييره حسب أسم ورقة العمل لديك ..

ملحوظه 2 : ولاحظ أيضاً أننا أخترنا أن تظهر الساعه في الخليه C7 وستجد هذا الخيار في نفس السطر في الكود ويمكنك أيضاً تغييره حسب الخليه المراد التطبيق عليها

مرفق ملف

Time.zip

تم تعديل بواسطه حسام نور
قام بنشر

- ملحوظه : كانت هناك مشكله في ظهور الكود الأول بالرد وتم الآن التصحيح ...

وشكراً

قام بنشر

أخي العزيز/ حسام نور

الله ينور عليك في الدنيا والآخرة

أخي العزيز/ أولا: أشكرك على سرعة التجاوب والرد على طلبي.

والثانيا: لقد جربت الطريقة التي شرحتها ولكن مع الأسف لم ينفذ شيئ يظهر أن فيه خطاء .

وثالثا: النموذج المرفق. هو عبارة عن صورة فقط لشكل الوقت الذي ظهر عندك.

ورابعا: أن ذكرت في الملاحظات أنه يوجد خطاء في الكود الأول وتم التصحيح. فلا أدري أين الخطاء وأين الصح. الذي أشرت إليه.

وخامسا: أرجو التكرم بإعادة الشرح خطوة خطوة. والتأكد من الأكواد. حفظك الله ورعاك وجعل ما تقدمه في موازين حسناتك يوم القيامة.آمين.

وشكرا

قام بنشر

الله ينور عليك في الدنيا والآخرة

- آمين يارب العالمين .. تقبل الله دعاؤك .

أخي العزيز/ أولا: أشكرك على سرعة التجاوب والرد على طلبي.

- العفو أخي الفاضل بهذا واجبنا

والثانيا: لقد جربت الطريقة التي شرحتها ولكن مع الأسف لم ينفذ شيئ يظهر أن فيه خطاء .

- المعذره فقد نسيت أن أخبرك بأمور هامه .. أريدك أن تتبع خطوات الشرح كما في الرد السابق ( وبكل دقه ) وبعد أن تنتهي منها قم بأغلاق ملف الأكسيل وحفظ المتغيرات .. شغل الملف مرة أخرى وأذهب للخليه التي أخترتها في الكود لظهور الساعه بها وستجد بها تاريخ ووقت . قم بالضغط بزر الماوس الأيمن عليها وأختر تنسيق خلايا ثم من ( الفئه ) أضغط على ( الوقت ) وأختر التنسيق الذي تريد أن تكون عليها الساعه كما تريد . ثم موافق وستلاحظ ظهور الساعه تتحرك في الخليه الآن . ويمكنك تكبير الخط وتغيير اللون حسب الرغبه

وثالثا: النموذج المرفق. هو عبارة عن صورة فقط لشكل الوقت الذي ظهر عندك.

- قمت بفحص الملف المرفق وهو يعمل بشكل ممتاز ولا مشاكل

ورابعا: أن ذكرت في الملاحظات أنه يوجد خطاء في الكود الأول وتم التصحيح. فلا أدري أين الخطاء وأين الصح. الذي أشرت إليه.

- لا مشكله في ظهور الكود الآن وعليك أتباع الخطوات ( بدقه تامه )

وخامسا: أرجو التكرم بإعادة الشرح خطوة خطوة. والتأكد من الأكواد. حفظك الله ورعاك وجعل ما تقدمه في موازين حسناتك يوم القيامة.آمين.

- أرجوا أن يكون الشرح السابق واضح .. وإن أستعصى عليك الأمر أرفق لي الملف المراد التطبيق عليه هنا لأضع لك الساعة به .. وحدد الخليه التي تريد أن تظهر بها الساعه

بالتوفيق

وشكرا

قام بنشر

أخي العزيز/ حسام نور

لقد تابعت الشرح ووجدت المشكلة تتمثل في كلمة(sheet)إذا حذفتها من السطر نفذ الأمر وظهرت الساعة.

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

لذا أريد شرح الطريقة التي أحفظ بها الورقة التي فيها الساعة وإذا فتحتها مرة ثانية أجدها شغاله.

وهنا فيه ملاحظة:

بالنسبة للأكواد هل لازم الأكواد كلها التي في الشرح أم يكتفى بالكود الأخير فقط. لأنني جربت الكود الأخير لوحده. وظهرت الساعة. فلا أدري إن كان للأول علاقه بالثاني أم لا؟

أرجو التكرم بالتوضيح. شكرا ومقدرا لك تجاوبك. وجزاك الله خيرا

قام بنشر

لا يمكن التخلي عن كود أو الأستغناء عن الأول أو حتى الثاني ...

إن لم تستطع تنفيذ الأمر أرفق الملف هنا وسوف أضع لك الساعة به

وشكراً

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

أخي العزيز/ حسام نور

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

أخي العزيز/ لوسمحت أعمل الساعة على ورقة أكسل وأرسلها لي حتى أشوف كيف نفذت معاك.

لأنني لم أستطيع حفظها بحيث إذا حفظتها ثم رجعت لها مرة ثانية تظهر الساعة ثابته لم تتحرك عبارة عن صورة.

حيث تظهر عندي مشكلة في البداية في الأمر وهي إذا مسحت كلمة(sheets clock) وأبقيت على الذي بعدها وهي كلمة(() Range("C7") = Now) تظهر الساعة وإذا حفظتها يطالبني بحفظها بعدة صيغ منها صيغة الحفظ مع ماكروا. وصيغ أخرى.

وهل أحفظ صفحت الفجوال بيسك لوحدها؟ وأحفظ صفحة الأكسل لوحدها ؟ أم يكفي أن أحفظ صفحة العمل في الأكسل بأي اسم وتكفي؟

أخي الكريم لو سمحت أشرح لي الطريقة الصحيحة من البداية حتى النهاية. شاكرا ومقدرا لك مجهودك على التكرم بالرد؟ وجزاك الله خيرا........ ياأبا نور

تم تعديل بواسطه الصامت
قام بنشر

صدقني أخي الفاضل .. لو أتبعت الخطوات السابقه بدقه فستحصل على المطلوب

ملف الأكسيل المرفق فيه ساعه وتتحرك .. وأعضاء آخرون حملوه ويعمل معهم إذاً أين الخلل ؟؟؟

أرفق لي الملف الذي تريد عمل الساعه به وسأضعها لك في الخلية التي تريد

وفقك الله

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

أخي العزيز/ حسام نور

إليك هذا النموذج ضع الساعة فيه

أما أنا فقد عجزت أن أضعها في أي ورقة من الأكسل.

وقد سبق وأن أوضحت لك المشاكل التي تظهر عندي في الرسائل السابقه أرجو التكرم بمراجعتها وحل المشكلة

وهل يمكن حفظها بإمتداد معين أم بنفس أمتداد الأكسل.؟

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

ملاحظة:

الرجاء الإجابه على ألأسئلة التي سبق وأن وجتها لك.

في الرساله التي قبل هذه الرسالة.

أرجو أن تصبر على أخوك في الله تراني تعبتك كثيرا.

__________.zip

__________.zip

تم تعديل بواسطه الصامت
قام بنشر

أخي العزيز/ حسام نور

هذه الرسالة التي تظهر عندي كلما أردت تنفيذ الساعة

بعد تطبيق كل الخطوات التي شرحتها وعند تنفيذ الأمر تظهر هذه الرسالة ولا أدري ماذا تعني . هل عندي مشكلة في النظام. علما عندي الأكسل 2007

وعن الملف الذي أرسلته طلعت عندي صورة للساعة فقط وهي ثابته لاتتحرك.

هل من حل لهذه المشكلة جزاك الله خيرا. وجميع من شارك معانا في هذا الموضوع.

Doc1.zip

قام بنشر

هل تستطيع إزالة برنامج الأوفيس من لديك الأصدار 2007

وتحميل أوفيس XP أو أوفيس 2003 ؟

إن كان نعم فستنتهي المشكله فوراً ... إن كنت لا تستطيع فأنتظر حتى أقوم بتحميل الأوفيس 2007 من النت وبعدها تحميله على جهازي وعمل الملف على هذا الأصدار

وشكراً

قام بنشر

أخي العزيز/ حسام نور

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

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

إذا أشرت على تمكين الماكرو تشتغل الساعة مادمت شغال على الورقة التيى فيها الساعة

وإذا أقفلت الملف وأفتحه من جديد تكون الساعة واقفه حتى أفتح الماكروا وأشر عليه بتمكين. ثم تشتغل وهكذا القصة.

لكن السؤال هو كيف أفعل الماكرو وأجعله يشتغل على طول . حيث الماكرو دائما يكون على آمان عالي. وهذا يمنع تشغيل الساعة أثناء فتحة الصفحة .؟

فهل من حل أوطريقة لتفعيلة؟

وشكرا لك على مجهودك الذي بذلته معي جعل الله ما تقدمه في موازين حسناتك آمين.

قام بنشر

الاخوان الاعزاء

السلام عليكم

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

بعد التجربه اكتشفت الخلل الذي يقع به الذي يحاول تطبيق الكود

الخلل هو ان الكل يبقي الكود كما هو بدون اي تغيرر في حين انه من الضروري تغيير اسم الشيت المراد تطبيق الساعه عليه

لابد من تغيير اسم الشيت لان اسم الشيت في الكود هو clock بينما يجب ان يطابق اسم الشيت الفعلي

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

ولكن بعد المراجعه اكتشفت الخلل , والساعه الان تعمل وبشكل جيد

شكرا لمجهودكم

اخوكم

كمال

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information