البسيسي قام بنشر أغسطس 9, 2006 قام بنشر أغسطس 9, 2006 السلام عليكم : لدي برنامج على الاكسل هل استطيع ان اجعل هذا البرنامج يحفض تلقائي كل خمس دقائق لاني استخدم هذا البرنامج في مجال صرافة وكهرباء غير مضبوطة عندنا ودائما افقد معلوماتي هل احد يستطيع ان يساعدني في هذه المشكلة وجزاكم الله الف خير
هادى محمد المامون سالم قام بنشر أغسطس 9, 2006 قام بنشر أغسطس 9, 2006 السلام عليكم :لدي برنامج على الاكسل هل استطيع ان اجعل هذا البرنامج يحفض تلقائي كل خمس دقائق لاني استخدم هذا البرنامج في مجال صرافة وكهرباء غير مضبوطة عندنا ودائما افقد معلوماتي هل احد يستطيع ان يساعدني في هذه المشكلة وجزاكم الله الف خير افتقدناك منذ فتره و فى انتظار البرنامج الذى سبق ان وعدتنا به بعد أنتهاءه أصل المشاركه هنـــــــا و قد قمت بتعديل بسيط فيها اتمنى ان يكون المطلوب الملف بالمرفقات Save.rar
البسيسي قام بنشر أغسطس 12, 2006 الكاتب قام بنشر أغسطس 12, 2006 اشكرك اخي الكريم قدوصل المطلوب وايضاً انا استخدمت نفس المثال وعدلت عليه وحليت المشكلة لكن الموقع عندي صارله يومين مو راضي يفتح معاي حتى اخبركم وكان التعديل التالي Option Explicit Dim OK As Boolean Sub timerMsg() Dim alertTime If OK Then alertTime = Now + TimeValue("00:00:03") Application.OnTime alertTime, "msg" End If End Sub Sub msg() ActiveWorkbook.Save timerMsg ومع ذالك الف الف شكر لك اخي الكريم وبالنسبة لانقطاعي عنكم : ضروف العمل عندي تعيسة جدا حيث لا استطيع احياناً الدخول الى النت والضرف الثاني هو قمت بالانتحار ( الزواج) وصارت عندي ضروف ومشاكل وارتباطات الها اول ما الها اخـــر ونأسف على طول المشاركة ولكم جزيل الشكر
خالد نور قام بنشر أغسطس 12, 2006 قام بنشر أغسطس 12, 2006 لمزيد من القاء الضؤ على موضوع الحفظ كل مدة معينة تلقائيا ممكن أن يتم أيضا بدون أكواد وذلك تسهيلا لمن ليس له درايه بالاكواد من شريط القوائم نختار tools & options& يخرج مربع الاختيارات نختار save ونعلم على أختيار save auto recover info every ثم نحدد عدد الدقائق المراد ان يقوم الحفظ بعدها ونضغط ok مع الآخذ فى الاعتبار بأن هذا التغيير يتم على كل ملفات الاكسيل فى الجهاز ولا تنتقل هذه الخاصية مع الملف الى أى جهاز أخر أما بالاكواد فتنتقل الى أى جهاز ولكن تكون خاصة بالملف المكتوب فيها الكود فقط أرجو ان يكون الموضوع واضح وتقبلوا تحياتى
omar elhosseini قام بنشر أغسطس 12, 2006 قام بنشر أغسطس 12, 2006 بسم الله الرحمن الرحيم بعد التحية اسمحوا لى بالتدخل وابداء ملاحظاتى فى هذا الموضوع hs889 بعد التحية هذا شرف لى ولى ملحوظة الاقضل ان يكون الحقظ تلقائى بدون استخدام الزر ارجو ان تتقبل ملحوظتى بصدر رحب الاخ البسيسي بعد التحية الف مبروك على الانتحار الجميل الكود الذى قمت بتعديلة لن يقوم بالحفظ ابدا والسبب وجود "If" الشرطية يجب الغائها حتى يعمل الكود مع ملاحظة ان لتشغيل الحفظ يجب تشغيل المكرو يدويا او باستخدام زر ولكن يجب ان يتم الحفظ تلقائيا بدون تدخل منا انظر المرفق الاخ خالد نور بعد التحية اولا الف مبروك على التميز ثانيا : لى ملاحظة على "save auto " فهو يقوم بالحفظ من اجل الاسترداد التلقائى فى حالة اغلاق الملف بطرقة غير امنة لأى سبب فى المسار C:\Documents and Settings\1_Omar\Application Data\Microsoft\Excel\ وهنا نأتى الى طلب اخونا البسيسي الذى يريد حفظ كل فترة للبيانات بطرقة امنة وتلقائية بدون تشغيل ماكرو يدويا او عن طريق الضغظ على زر وهنا عامل الانسان غير امن تحت بند السهو او الانشغال فيكون افضل حل استخدام كود يقوم بالحفظ التلقائى بدون تدخل فنشاهد المرفق وزمن الحفظ كل 10 ثوان ويمكن تعديل ذلك . ارجو الا اكون اخطأت فى عرضى للموضوع تحياتى للجميع المرفق : autosave.rar
البسيسي قام بنشر أغسطس 12, 2006 الكاتب قام بنشر أغسطس 12, 2006 اشكر جميع الاخوان الذين بذلو جهد وقدمو بكل ما يستطيعون لمساعدتي وهذا يدل على كرمهم وحسن اخلاقهم ومدى قدرتهم على فعل الخير والله يبارك فيهم جميعا ملاحظة: ان الكود الذي كتبتة فعلا لا يفي بالغرض بهذا الشكل لان الانتحار اثر حتي على تركيزي لاني لم اقوم بنسخ الكود كامل والان وضعت لكم الكود الذي عملته في المرفقات واخيرا لكم مني الف الف شكر والله يوفق الجميع _________________.rar
هادى محمد المامون سالم قام بنشر أغسطس 13, 2006 قام بنشر أغسطس 13, 2006 بعد التحية اسمحوا لى بالتدخل وابداء ملاحظاتى فى هذا الموضوع hs889 بعد التحية هذا شرف لى ولى ملحوظة الاقضل ان يكون الحقظ تلقائى بدون استخدام الزر ارجو ان تتقبل ملحوظتى بصدر رحب تقبلت بصدر رحب و لكن لماذا أفضل؟؟؟؟ السلام عليكم
هادى محمد المامون سالم قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 اخى تامر : مشكور على الافاده ة لكن الاسباب المذكوره و جهات نظر اضافيه مشكور عليها 1 - الملف يحفظ بعد 5 دقائق حاول تجربه الملف و انتظر او غير المده 0 2 - افضل خيار استعمال المفاتيح خاصه فى الحفظ حتى تستطيع عمل تراجع Undo 3- معلومات اضافيه اختياريه 0 مشكور على المجهود
omar elhosseini قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 بسم الله الرحمن الرحيم الاخ hs889 بعد التحية 1 - الملف يحفظ بعد 5 دقائق حاول تجربه الملف و انتظر او غير المده 02 - افضل خيار استعمال المفاتيح خاصه فى الحفظ حتى تستطيع عمل تراجع Undo اخى لماذا انت صعب الاقناع " التجربة والخطاء هى اساس التعلم " ارجو سعة صدرك قم بتعديل الفنرة الزمنية الى 3 ثوان ثم لا حظ شريط المعلومات كما فى شرحى المستفيض الظاهر انك لم تقرأه فأذا قام بالحفظ سيظهر موشر الحقظ لك واذا لم يظهر موشر الحقظ لك فهو لايقوم بالحفظ 1 - الملف لا يقوم بالحفظ الا عند الضغط على الزر كل مرة نريد الحفظ . " ارجو من عمالقة ال " VBA " توضيح هذا الامر . Option Explicit Dim OK As Boolean Sub timerMsg() Dim alertTime If OK Then alertTime = Now + TimeValue("00:0:10") ActiveWorkbook.Save End If End Sub Sub StartTimer() OK = True timerMsg End Sub Sub SopTimer() OK = False timerMsg End Sub يقوم الزر ينتفيذ الماكرو " timerMsg " الكود السابق هو الكود المراد من الاخوة تأكيد هل يقوم بالحفظ كل فترة زمنية بعد الضغط على الزر مرة واحدة فقط . ام هذا الكود لا يقوم بالحقظ الا عند الضغط على الزر كلما اردنا الحفط . 2 - لا يمكن عمل تراجع Undo بعد الحفظ . فى انتظار ردك وفى انتظار توضيح احد الاخوة تحياتى
omar elhosseini قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 الاخ hs889 اليك ما يقول مستر اكسيل عن استخدام " OnTime " ويمكن الوصول اليها بكتابة " OnTime " فى محرر الاكواد ثم الضغط على " F1 " ليكون سراجا منيرا لاقناعك بما اقول تحياتى وفى انتظار تأكيد ما قمت بشرحه
هادى محمد المامون سالم قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 اخى تامر : مشكور على الافاده و لكنك سألت و قمت بالرد على ما اقصد بنفسك يقوم الزر ينتفيذ الماكرو " timerMsg "الكود السابق هو الكود المراد من الاخوة تأكيد هل يقوم بالحفظ كل فترة زمنية بعد الضغط على الزر مرة واحدة فقط . ام هذا الكود لا يقوم بالحقظ الا عند الضغط على الزر كلما اردنا الحفط . هذه مشاركتى الملف يحفظ بعد 5 دقائق حاول تجربه الملف و انتظر او غير المده 0 لم اقل انى اريد الحفظ بصفه مستمره و قد قمت انت بالرد على ما اقصد ام هذا الكود لا يقوم بالحقظ الا عند الضغط على الزر كلما اردنا الحفط . السلام عليكم
omar elhosseini قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 (معدل) الاخ hs889 اخى تامر :مشكور على الافاده ة لكن الاسباب المذكوره و جهات نظر اضافيه مشكور عليها 1 - الملف يحفظ بعد 5 دقائق حاول تجربه الملف و انتظر او غير المده 0 2 - افضل خيار استعمال المفاتيح خاصه فى الحفظ حتى تستطيع عمل تراجع Undo 3- معلومات اضافيه اختياريه 0 مشكور على المجهود لماذا مرة اخرى اخى اقول لك ان الملف لايقوم بالحفظ بعد 5 دفائق ويقوم بالحفظ بمجرد الضغط على الزر مباشرة من غير انتظار مدة ال 5 دقائق . وهذا ما شرحته من البداية تحياتى تم تعديل أغسطس 14, 2006 بواسطه tameromar
هادى محمد المامون سالم قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 اخى تامر : مشكور على المجهود اخى لماذا انت صعب الاقناع " التجربة والخطاء هى اساس التعلم " كلامك غير صحيح لانى موافقك على هذه المشاركه مرة اخرى اخى اقول لك ان الملف لايقوم بالحفظ بعد 5 دفائق ويقوم بالحفظ بمجرد الضغط على الزر مباشرة من غير انتظار مدة ال 5 دقائق . السلام عليكم
ابو احمد 3 قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 (معدل) السلام عليكم ورحمه الله من منطلق دعوه الأستاذ تامر : (وفى انتظار توضيح احد الأخوة) اسمح لى ياسيدى المشرف الكريم طلب الأخ البسيسى المساعدة للحفظ كل 5 دقائق وحضرتك عامل زرا للحفظ عند الضغط عليه يقوم بالحفظ وعامل زر أخر لايقاف الحفظ ولكنه لا يوقف عملية الحفظ لان الحفظ لا يتم كل خمس دقائق كما طلب الأخ البسيسى وحضرتك تقول : (الملف يحفظ بعد 5 دقائق حاول تجربه الملف و انتظر أو غير المدة) وقد قلت للأستاذ تامر مانصة: مشكور على الافاده لكن الأسباب المذكورة و جهات نظر اضافيه مشكور عليها ياسيدى ما قام به الأستاذ تامر ليس وجهات نظر ولكنه الإجابة الوافية لطلب الأخ البسيسى فانه انشأ زر فعلى للحفظ التلقائى وزر فعلا لايقاف الحفظ الذى يتم تلقائى نتيجة تشغيل التايمر ياسيدى إن الأستاذ تامر لم يقل إن كوده أفضل قل ما قال توجيه لكل المستفيدين من قراءة الموضوع وهو بان: (الاقضل إن يكون الحفظ تلقائى بدون استخدام زر لذلك) وهذا أكيد لتفادى عملية نسيان الحفظ ياسيدى الفاضل لقد قلت مرتين للأستاذ تامر شكرا على المجهود واسمح لى إن أقول له أحسنت وشكرا يااستاذ تامر بما أضفته إلينا زادك الله وزادنا علما وشكر ا لمشرفنا العزيز الذى طالما تعلمنا منه الكثير والذى يبذل الكثير من الجهد بالمنتدى تم تعديل أغسطس 14, 2006 بواسطه ابو احمد 3
هادى محمد المامون سالم قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 (معدل) بسم الله الرحمن الرحيمو انا اقول لهشكرا يااستاذ تامر بما أضفته إلينا زادك الله وزادنا علمااخى ابو احمدالاختلاف فى الراى لا يفسد فى الود قضيهالاهم من ذلك عدم الاستمرار فى الجدال دون حق طالما أقتنعت بالنتيجهالسلام عليكم تم تعديل أغسطس 14, 2006 بواسطه hs889
omar elhosseini قام بنشر أغسطس 14, 2006 قام بنشر أغسطس 14, 2006 بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية شكرا لك اخى على تفهمك للموضوع فعلا كان هدفى الافادة والاستفادة فنحن جميعا نتعلم من بعضنا البعض فلا نستطيع ان نقول ان فلان محترف اكسيل لسبب بسيط هو ان الاكسيل برنامج بالاضافة الى محرر الاكواد معا يحتويان كم هائل من الامكانيات من الصعب ان يقوم احدنا بتغطيتها بالكامل . واذا قام احد بالدارسة والتدريب الشامل واجادة التعامل مع الاكسيل يبقى امامنا الجزء البرمجى للاكواد التى تفتح المجال امام الابتكار و التميز . فأنا مثلا توجود الكثير من الامكانيات والاوامر التى لا اجروء على الاقتراب منها لجهلى بها وفى المقابل توجد بعض الاجزاء التى قمت بأستيعابها واجيد استخدامها وليس عيبا او خطأ عدم معرفتى ببعض الاجزاء ولا استطيع ان اجادل فيها لجهلى بها ولكن الاجزاء التى اجيدها استطيع الحوار عنها مدعما بالشرح ولست معصوما من الخطأ فيها ايضا وانما اذا اخطأت فى كود برمجى لن يقلل اعترافى بالخطأ من شئ . ما قصدت هنا اننا يجب ان نكمل بعضنا البعض بتقبل المناقشة الديمقراطية كعرب لنعبر جسر المعرفة . وتحياتى لك على تفهمك للموضوع .
ابو اسامة العينبوسي قام بنشر سبتمبر 3, 2006 قام بنشر سبتمبر 3, 2006 (معدل) انشئ موديل وكتب فيه الكود التالي Public Sub save() ThisWorkbook.save RunWhen = Now + TimeSerial(0, 2, 0) Application.OnTime RunWhen, "save", , True End Sub في ورقة العمل عند الحدث open اكتب الكود التالي Private Sub autosave_Click() Dim RunWhen As Double ThisWorkbook.save RunWhen = Now + TimeSerial(0, 2, 0) Application.OnTime RunWhen, "save", , True End Sub سيقوم بالحفظ تلقائيا بعد كل دقيقتين انا اعمل عليه منذ اكثر من 5 اشهر وهو شغال %100 تم تعديل سبتمبر 3, 2006 بواسطه هادى سالم
الردود الموصى بها