الحفظ التلقائي كل 10 ثواني

[ياسر خليل أبو البراء]

السلام عليكم

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

 

طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 10 ثواني مثلا ..

في حدث الورقة ضع الكود التالي

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub

Private Sub Workbook_Open()
StartTimer
End Sub

وفي موديول جديد ضع الكود التالي

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"


Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub
Sub The_Sub()
ActiveWorkbook.Save
StartTimer
End Sub
Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

ويمكنك بالطبع تغيير الوقت المراد عمل الحفظ التلقائي على أساسه من خلال السطر الثاني

Public Const cRunIntervalSeconds = 10

إليكم الملف المرفق 

 

Auto Save Every 10 Seconds.rar

[عاشق الاسلام]

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

[ياسر خليل أبو البراء]

مشكور على المرور العطر أخي عاشق الإسلام

أنا قلت كدا بردو مفيش حاجة تمنع الأعضاء عن المنتدى غير الكورة (أنا بقا مليش في الكورة نهائي .. مش أحسن بردو)

[أسامة عطاالله]

شكرا لمجهودك اخى واستاذى / YasserKhalil

[ياسر خليل أبو البراء]

 

شكرا لمجهودك اخى واستاذى / YasserKhalil

 

بارك الله فيك أخي أسامة .. وجزيت خيرا على مرورك الكريم

[محمد الورفلي1]

السلام عليكم استاذ ياسر

 

بارك الله فيك دئماً نحتاج للحفظ وفرت عليناً الحفظ  شكراَ

[ياسر خليل أبو البراء]

السلام عليكم استاذ ياسر

 

بارك الله فيك دئماً نحتاج للحفظ وفرت عليناً الحفظ  شكراَ

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

[ا بو سليمان]

رائع رائع 

 

الان انا ابغي  كيف يتم عمل تحديث  تلقائي  للبيانات  كل عشرة ثواني  وليس فقط الحفظ

[ياسر خليل أبو البراء]

أخي الفاضل ماذا تقصد بتحديث البيانات ...ارفق مثال للتوضيح

[الصـقر]

استاذى الفاضل / ياسر خليل

رائع رائع

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

بس طبعا المره دى فهمته وغيرت فيه كمان ههههههههههههه

بس عايز استفسارين منك يعنى استشارة  

1-ليه معملناش هنا مباشرة (TimeSerial(0, 0, 10 بدلا من (TimeSerial(0, 0, cRunIntervalSeconds  وبكدا مش فى احتياج الى التعريف Public Const cRunIntervalSeconds = 10

2-Application.OnTime earliesttime:=RunWhen, _

procedure:=cRunWhat, schedule:=False  هل هذه داله فى البيسك او معادله ثابته ممكن تشرحها لى 

3-هل يمكن حدوث مشكله اثناء الظغط على تنفيذ كود ترحيل من ورقه الى ورقة اخرى فى لحظة الحفظ التلقائى بهذا الكود  (هههههههههههه طبعا انا قلت استفسارين)

وبعدين يا كبير فى الكود الاول مش فى حدث الورقه تلميذك صاحى ومفتحلك دا فى حدث الملف this workbook 

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

تقبل احترامى وتقديرى

تم تعديل نوفمبر 17, 2014 بواسطه حسام عيسى

[ا بو سليمان]

 

أخي الفاضل ماذا تقصد بتحديث البيانات ...ارفق مثال للتوضيح

 

اقصد تحديث بيانات الصفحة  عندما تكون مرتبطة في بيانات  اخرى  من صفحة ثانية 

 

مصال شيت 1  فيه بيانات  

 

شيت 2  فيه بيانات مربوطة مع  الشيت رقم  1  وعامل فيها تصفيحة حسب اكبر رقم  اواصغر رقم مثلا 

 

 

مطلوب عندما تتحدث الارقام في الشيت  1  في خلاياها     يتم تحديث الخلية في الشيت رقم  2  من حيث الترتيب و التصفية 

[ياسر خليل أبو البراء]

الأخ الغالي المحاسب الجراح المصري السعودي

بالنسبة للنقطة الأولى مفيش مشكلة إنك تكتبها مباشرة بس كدا أفضل عشان لو حد عايز يغير في الكود هيغير الوقت فقط ...

النقطة الثانية نعم هذه من دوال الفيجوال بيسك

الكائن Application المراد به طبعا الإكسيل كتطبيق ، متبوعا بنقطة ثم الطريقة Method المسماة OnTime أي عند التزامن مع وقت محدد ، ثم مسافة متبوعة بمعطيات الدالة التي ستعمل على أساسها ... أول المعطيات earliesttime:=RunWhen أي وقت التنفيذ وقد تم تعريفه في السطر السابق لهذا السطر بالمتغير RunWhen ..

ثاني المعطيات اسم الإجراء المراد تنفيذه في هذا الوقت بالتحديد .. ثالث المعطيات schedule:= إما القيمة True لتشغيل التايمر أو False لإيقاف التايمر

النقطة الثالثة أنا مجربتش أكواد تانية مع الملف بس أعتقد أنه لن يكون هناك تعارض إن شاء الله وجرب بنفسك وأبلغني بالنتيجة

النقطة الأخيرة يوجد بالحدث Workbook_BeforeClose الإشارة إلى وقف التايمر (عداد الوقت)

، والحدث Workbook_Open أي عند فتح المصنف يبدأ العداد بالعمل .. ليس للموضوع علاقة بورقة العمل لأن الكود يعمل على حفظ المصنف ككل وليس على ورقة العمل فقط.

[الصـقر]

استاذى الغالى والحبيب

ياسر بك الكبير

تعبت ايدك انت كتير هههههههههههههه

اشكرك واتمنى منك المزيد فى ابداعات اخرى

ملحوظه / الشرح كان ناقص شئ وهو (المايك)

تقبل احترامى وتقديرى

[ياسر خليل أبو البراء]

ولا يهمك يا أخي حسام ايدي تحت أمرك في أي وقت ..

بارك الله فيك وجزيت خيرا أما بالنسبة للمايك صوتي وحش فخايف الناس تنفر من المنتدى بسببه!!

[ليلى الهلالي]

السلام عليكم

شكراً لك أستاذي على هذا الكود وعلى الشرح.

سؤالي في ورقة الحدث الخاصة بي فيها كودات سابقة هل أقوم بنسخ الكود في أسفل آخر كود بدون تغيير في السطور الأولى من الكود الخاص بك.

 

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

[ياسر خليل أبو البراء]

أخي الحبيب

بالنسبة لأول 3 أسطر لابد أن تكون في أول الموديول

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"

أما بالنسبة لباقي الكود فميش مشكلة

 

ومتنساش فيه أكواد مرتبطة بحدث WorkBook

[عاشق الاسلام]

استاذ ياسر ماسبب ظهور هذه الرسالة التحذيرية (الصورة المرفقة) هل هناك مشكلة بالماكرو وماهو الحل

حفظ.rar

[ياسر خليل أبو البراء]

لالغاء هذه الرسالة ادخل على Trust Center ثم Privacy ثم أزل علامة الصح بجانب الخيار Remove Personal Information  ثم احفظ الملف وأغلقه وافتحه وشوف هتظهر لك تاني أو لا

[عاشق الاسلام]

لالغاء هذه الرسالة ادخل على Trust Center ثم Privacy ثم أزل علامة الصح بجانب الخيار Remove Personal Information  ثم احفظ الملف وأغلقه وافتحه وشوف هتظهر لك تاني أو لا

استاذ انا عندي اوفس 2010 وعربي

[ياسر خليل أبو البراء]

طيب أنا معنديش عربي بس نترجم .. مركز الثقة أو الأمان ودي طبعا من خلال خيارات الإكسيل .. هتلاقي كلمة الخصوصية وهتلاقي فيها خيار .. أزل المعلومات الشخصية .. شيل العلامة اللي جنبها .. قد لا تكون الترجمة صحيحة بنسبة 100% .. بس حاول هتوصل إن شاء الله

[عاشق الاسلام]

 

طيب أنا معنديش عربي بس نترجم .. مركز الثقة أو الأمان ودي طبعا من خلال خيارات الإكسيل .. هتلاقي كلمة الخصوصية وهتلاقي فيها خيار .. أزل المعلومات الشخصية .. شيل العلامة اللي جنبها .. قد لا تكون الترجمة صحيحة بنسبة 100% .. بس حاول هتوصل إن شاء الله

 

شكرا يااخي واستاذي ياسر على المعلومة الرائعة وبار ك الله فيك يامبدع

[ياسر خليل أبو البراء]

هل تم حل المشكلة أخي في الله عاشق الإسلام ؟

[عاشق الاسلام]

 

هل تم حل المشكلة أخي في الله عاشق الإسلام ؟

 

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

[ياسر خليل أبو البراء]

الشكر لله عزوجل وحده ، أما إذا أردت أن تقول : فلابد من كلمة ( ثم ) ، وإن كنت أفضل أن تشكر الله عزوجل وحده ..

اللهم اجعل اعمالنا في ميزان حسناتنا يوم القيامة

[عاشق الاسلام]

الشكر لله عزوجل وحده ، أما إذا أردت أن تقول : فلابد من كلمة ( ثم ) ، وإن كنت أفضل أن تشكر الله عزوجل وحده ..

اللهم اجعل اعمالنا في ميزان حسناتنا يوم القيامة

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