نور الرحمة قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 السلام عليكم ورحمة الله وبركاته لو سمحتوا كنت عايزة اول ما افتح صفحة الاكسيل يعطينى رسالة فيها تاريخ و مدة اخر مرة تم فتح الاكسيل msgbox رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 (معدل) الملف المرفق يحتفظ بآخر تاريخ تم فتح الملف فيه ويظهره فى رسالة عند فتح الملف المرة الثانية اتمني ان يكون هذا هو المطلوب اما بالنسبة لمدة الفتح فى انتظار احد الاخوة فى اكمال المطلوب للافادة العامة Book5.rar تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 (معدل) جزاك الله كل خير استاذ DBA.Oracle بس ممكن حضرتك ترفع لى الملف تانى او تكتب لى الكود اصل طلع فيه خطأ لما ضغطت نعم ظهرت لى الرسالة التالية تم تعديل أبريل 14, 2010 بواسطه نور الرحمة رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 (معدل) تم اضافة ساعة الفتح والاغلاق اتمني ان تكون الطريقة صحيحة برجاء تجربة المرفق والرد بالنتيجة Book5.rar تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 بصراحة لا اعلم المشكلة من اين لكن هذه صورة للملف من جهازي يعمل والماكرو يخبرنا بالوقت كما هو مطلوب رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 عموما فى جميع الاحوال الكود بحاجة لتعديل بسيط من احد الاخوة بخصوص اظهار الفرق بين وقت الفتح ووقت الاغلاق فى انتظار الرد من احد الاخوة اما بالنسبة لمشكلة ان البروجكت مش بيفتح فبصراحة لا اعلم ما حلها لكن هو يعمل عندي علي اوفيس 2007 رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 ظهرت لى نفس المشكلة ممكن حضرتك تكتب لى الكود وانا اطبقه رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 (معدل) 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 تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 هو الطريقة طويلة اكيد فى طريق اسهل لكن هو دا اللى قدرت اوصله حتي الان رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 شكرا جزيلا استاذ DBA.Oracle رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 عفوا وفى انتظار احد اخوتنا الافاضل باستكمال المطلوب والتعديل علي المرفقات اذا لزم الامر وبالنسبة لمشكلة عدم فتح الملف فى جهازك فأعتقد انها مشكلة فى تاريخ الجهاز علي ما اعتقد تختلف من بين انها عربي او انجليزي فواجهتنى ومازالت تواجهني فى بروجكت انا عملته وكلما نزلت ويندوز وجعلت التاريخ لنجليزي لا يفتح الملف ويعطي نفس الخطأ الذي يظهر عندك واذا حولته عربي اثناء تنزيل الويندوز فيعمل البروجكت الخاص بي برجاء من احد الاخوة ايضا توضيح المشكلة وحلها ان وجد ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 فى مشكلة فى الكود ظهرت الآن دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه اذا فالفكرة غير مجدية للاسف فى انتظار طريقة اخري رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 السلام عليكم ========== شاهد المرفق مرات فتح.rar رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 (معدل) جزاك الله كل خير استاذ هشام شلبى بس فيه حاجات مش فاهماها بس ممكن حضرتك تقولى معنى 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 تم تعديل أبريل 14, 2010 بواسطه نور الرحمة رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 فى مشكلة فى الكود ظهرت الآن دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه اذا فالفكرة غير مجدية للاسف فى انتظار طريقة اخري بس الفكرة جميلة وسهلة وجزاك الله كل خير على مجهودك الرائع رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 جزانا واياكم رابط هذا التعليق شارك More sharing options...
نور الرحمة قام بنشر أبريل 14, 2010 الكاتب مشاركة قام بنشر أبريل 14, 2010 سؤال تانى لو سمحتوا طيب لو عايزة احسب الفرق بين الوقت و التاريخ الحالى وتاريخ اخر مرة فتحت فيها الاكسيل يعنى اول ما افتح الاكسيل تظهر لى رساله ولتكن لم يتم فتح الاكسيل منذ 5 ايام رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 السلام عليكم و رحمة الله و بركاته بعد اذن اخواني الاستاذ/ هشام شلبى و الاستاذ/ DBA.Oracle برجاء الاطلاع على المرفق Date & Time.rar رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 14, 2010 مشاركة قام بنشر أبريل 14, 2010 السلام عليكم ========== شاهد المرفق السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذ / هشام دا شغل عباقره وعمل رائع لكن بالله عليك تعرفنا اذاى نطبقها عندنا على الملفات وكذلك طريقه عملها؟؟؟؟؟؟؟ وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان