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

سؤال ((الاحتفاظ بآخر تاريخ تم فتح الاكسيل به))


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

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

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

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

msgbox

رابط هذا التعليق
شارك

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

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

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

Book5.rar

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

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

استاذ DBA.Oracle

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

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

555555555t.png

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

99999999999.png

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

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

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

اما بالنسبة لمشكلة ان البروجكت مش بيفتح فبصراحة لا اعلم ما حلها لكن هو يعمل عندي علي اوفيس 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 ايام

رابط هذا التعليق
شارك

السلام عليكم

==========

شاهد المرفق

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information