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

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

قام بنشر

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

لو سمحتوا كنت عايزة اول ما افتح صفحة الاكسيل

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

msgbox

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

الملف المرفق يحتفظ بآخر تاريخ تم فتح الملف فيه ويظهره فى رسالة عند فتح الملف المرة الثانية

اتمني ان يكون هذا هو المطلوب اما بالنسبة لمدة الفتح

فى انتظار احد الاخوة فى اكمال المطلوب للافادة العامة

Book5.rar

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

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

استاذ DBA.Oracle

بس ممكن حضرتك ترفع لى الملف تانى

او تكتب لى الكود اصل طلع فيه خطأ

555555555t.png

لما ضغطت نعم ظهرت لى الرسالة التالية

99999999999.png

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

تم اضافة ساعة الفتح والاغلاق

اتمني ان تكون الطريقة صحيحة برجاء تجربة المرفق والرد بالنتيجة

Book5.rar

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

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

فى انتظار الرد من احد الاخوة

اما بالنسبة لمشكلة ان البروجكت مش بيفتح فبصراحة لا اعلم ما حلها لكن هو يعمل عندي علي اوفيس 2007

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


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Range("Now").Copy

Range("Now_2").PasteSpecial xlPasteValues

Range("close").Value = Time

Range("open").Copy

Range("between").PasteSpecial xlPasteValues


End Sub


Private Sub Workbook_Open()

Sheets("sheet1").Range("a1").Select

MsgBox "The File Was Open Last Time In This Date " & Range("Now_2") & vbNewLine & "Open Time :" & Range("between") & vbNewLine & "Close Time : " & Range("close")

Range("open").Value = Time


End Sub


يجب تسمية خلايا بالاسماء التالية

خلية يكون اسمها = open

خلية يكون اسمها = close

خليه اسمها = between

وخليه اخري اسمها = now

وخلية اخري باسم = now_2

وبالنسبة للخلية now >>> اكتبي فيها المعادلة

=now()

واعادة عمل فورمات للخلايا السابقة بالفورمات التالي

dd/mm/yyyy hh:mm

عن طريق Format cells

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

عفوا وفى انتظار احد اخوتنا الافاضل باستكمال المطلوب والتعديل علي المرفقات اذا لزم الامر

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

واذا حولته عربي اثناء تنزيل الويندوز فيعمل البروجكت الخاص بي

برجاء من احد الاخوة ايضا توضيح المشكلة وحلها ان وجد

ولكم جزيل الشكر

قام بنشر

فى مشكلة فى الكود ظهرت الآن

دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح

لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه

اذا فالفكرة غير مجدية للاسف

فى انتظار طريقة اخري

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

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

استاذ هشام شلبى

بس فيه حاجات مش فاهماها

بس ممكن حضرتك تقولى معنى

    Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)

    LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")
    SaveSetting "XYZ Corp", "Budget", "Count", Counter

    SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen

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

فى مشكلة فى الكود ظهرت الآن

دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح

لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه

اذا فالفكرة غير مجدية للاسف

فى انتظار طريقة اخري

بس الفكرة جميلة وسهلة

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

قام بنشر

سؤال تانى لو سمحتوا

طيب لو عايزة احسب الفرق بين

الوقت و التاريخ الحالى وتاريخ اخر مرة فتحت فيها الاكسيل

يعنى اول ما افتح الاكسيل تظهر لى رساله

ولتكن لم يتم فتح الاكسيل منذ 5 ايام

قام بنشر

السلام عليكم

==========

شاهد المرفق

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

بارك الله فيك استاذ / هشام

دا شغل عباقره وعمل رائع لكن بالله عليك تعرفنا اذاى نطبقها عندنا على الملفات وكذلك طريقه عملها؟؟؟؟؟؟؟

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

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